real, boolean, integer, longint.[r]
(1)BÀI TẬP SGK TIN 11
1- Viết chương trình nhập từ bàn phím số ngun dương N(N<= 100) dãy A gồm N số
ngun A(1),A(2), A(N) có giá trị tuyệt đối khơng lớn 1000 Hãy cho biết dãy A có
phải cấp số cộng hay không thông báo kết hình
2- Viết chương trình nhập từ bàn phím số nguyên dương N(N<= 100) dãy A gồm N số
nguyên A(1),A(2), A(N) có giá trị tuyệt đối không lớn 1000 Hãy đưa
thông tin sau:
a) Số lựuong số chẵn số lẻ dãy;
b) Số lượng số nguyên tố dãy;
3- Hãy viết chương trình nhập từ bàn phím xâu kí tự S có độ dài khơng q 100 Hãy cho
biết có chữ số xuất xâu S Thơng báo kết hình
Bài 5/79 var n,i:byte;
a: array [1 100] of integer; dung: boolean;
begin
write('so phan tu cua day : '); readln(n);
for i:=1 to n begin
write('phan tu thu ',i,' :'); readln(a[i]);
end;
a[1]:=a[2]-a[1]; i:=2;
dung:=true;
while (dung) and (i<n) if a[i+1]-a[i]=a[1] then i:=i+1 else dung:=false;
if i=n then write('day la cap so cong') else write('day khong la cap so cong'); readln;
end
Bài 6/79
var n,i,chan,le:byte;
a: array [1 100] of integer; dung: boolean;
(2)write('so phan tu cua day : '); readln(n);
chan:=0; le:=0;
for i:=1 to n begin
write('phan tu thu ',i,' :'); readln(a[i]);
if a[i] mod 2=0 then chan:=chan+1 else le:=le+1;
end; i:=1; writeln;
Writeln('so luong so chan: ',chan); writeln('so luong so le : ',le); chan:=0;
while i<=n begin
dung:=true;
if a[i]<2 then dung:=false else
for le:=2 to trunc(sqrt(a[i])) if a[i] mod le=0 then dung:=false; if dung then chan:=chan+1;
i:=i+1; end;
write('so luong so nguyen to la: ',chan); readln;
end readln; end
Bài 7/ 79
Uses crt;
var a:array [1 190] of real; n,i:integer;
Begin Clrscr;
write('can tinh so Fibo thu :'); readln(n);
a[1]:=0; a[2]:=1;
for i:= to n a[i]:=a[i-1]+a[i-2]; write(a[n]:10:0);
(3)
Bài 10/80
var i,t: byte; a:string[100]; Begin
Clrscr;
write('nhap vao xau: '); readln(a);
t:=0; i:=1;
while i<=length(a) begin
if (a[i]<='9') and (a[i]>='0') then t:=t+1; i:=i+1;
end;
writeln('co ',t,' chu so xuat hien (tinh ca cac chu so giong nhau)'); readln;
end
BÀI TẬP SGK TIN 11!! var n,i:byte;
a: array [1 20] of real; t:real;
begin t:=0; n:=0;
for i:=1 to 20 begin
write('phan tu thu ',i,' :'); readln(a[i]);
if a[i]>0 then begin t:=t+a[i]; n:=n+1; end; end;
writeln ('Day da nhap la : '); for i:=1 to 20 write(a[i]:5:1); writeln;
writeln('Trung binh cong cua cac phan tu duong la : ',t/n:5:5); t:=a[1];
(4)writeln(' Phan tu nho nhat day la : ',t:5:5); readln;
end
BÀI TẬP SGK TIN 11!!
Tặng xấp này! Bài tập chơng
1 Mảng kiểu liệu có cấu trúc mảng kiểu có cấu trúc đề cập tới
sớm ngôn ngữ lập trình Nó xây dựng từ kiểu liệu có theo quy tắc khn dạng ngơn ngữ lập trình cung cấp Nó dùng để
chỉđịnh nhóm đối tượng tính chất
2 Chúng ta phải khai báo kích thước mảng để cách đánh số phần tử
nó
3 real, boolean, integer, longint
4 Tham chiếu đến phần tử mảng chiều xác định tên mảng
với số, viết cặp ngoặc [ ] (Ví dụ A[1]) Cịn tham chiếu đến phần
tử mảng chiều xác định tên mảng với số phân
cách dấu phẩy viết cặp ngoặc [ ] (A[1,2]) Bài 5.
uses crt;
var a:array[1 100] of integer; n,i,d:integer;
csc:boolean; begin
clrscr;
write('Nhap n: ');readln(n); for i:=1 to n
begin repeat
write('Nhap phan tu thu ',i,': '); readln(a[i]);
if abs(a[i])>1000 then writeln('Nhap so nho hon 1000'); until abs(a[i])<=1000; end;
csc:=false; d:=a[2]-a[1]; for i:=2 to n
if a[i+1]-a[i]=d then csc:=true; if
if if
if csc thenthenthen writeln('Day la cap so cong') elsethen elseelseelse
16
write('Day khong la cap so cong'); readln end end end end
VÝ Dô Bai Bai Bai Bai
program bai6; uses crt;
var A:array[1 100] of integer; i,n,dem,u,d:integer;
begin clrscr;
write('Nhap so luong phan tu: ');readln(n); for i:=1 to n
(5)repeat
write('Nhap phan tu thu ',i,': '); readln(a[i]);
if abs(A[i])>1000 then write('Nhap so <1000 OK'); until abs(A[i])<1000;
end; dem:=0;
for i:=1 to n begin
if a[i] mod 2= then dem:=dem+1 end;
writeln('So luong so le: ',n-dem); writeln('So luong so chan: ',dem); for i:=1 to n
if a[i]>1 then
17
begin u:=2;
while (u<=sqrt(A[i])) and (A[i] mod u <> 0)
u:=u+1;
if u>sqrt(A[i]) then d:=d+1; end;
write('So luong so nguyen to: ',d); readln
end VÝ Dô Bài 7.
program bai7; uses crt;
var n, i:word; f, f1,f2:word; begin
clrscr; repeat
write('Nhap N: ');readln(n);
if n<2 then writeln('Nhap N>2 OK!'); until n>=2;
f1:=1; f2:=2;
for i:=3 to n begin
f:=f1+f2; f1:=f2; f2:=f; end;
write('So fibonaxi thu ',n,' la ' ,f); readln
(6)VÝ Dô
Chơng trình thực đến Nmax=10001
Bài 8.
Chương trình thực việc hốn đổi vị trí dịng thứ i với dịng thứ N-i+1, nghĩa hốn đổi vị trí dịng với dịng cuối mảng hai chiều, dòng thứ hai từ
xuống với dịng thứ hai từ lên,… Việc hốn đổi vị trí dịng thứ i với dịng đối xứng
với thực i nhận giá trị từ đến N, làm cho dịng hốn đổi vị
trí lần Vì mạng A sau hốn đổi khơng thay đổi so với ban đầu
Bài
program bai9; uses crt;
var A:array[1 15,1 15] of integer; N, i, j, max, ind, vsp:integer; begin
clrscr;
write('Nhap N: ');readln(n); for i:=1 to n
for j:=1 to n begin
write('Nhap A[',i,',',j,']: '); readln(A[i,j]);
end;
for i:=1 to n begin
max:=A[1,i];ind:=1; for j:=2 to n if A[j,i] > max then begin
max:=A[j,i]; ind:=j; end; vsp:=A[i,i]; A[i,i]:=max; A[ind,i]:=vsp; end;
for i:=1 to n begin
writeln;
for j:=1 to n write(A[i,j]:3); end;
(7)Bài 10
program bai10; uses crt;
var S:string; i,dem,n:integer; begin
clrscr;
write('Nhap xau: ');readln(S); n:=length(S);
dem:=0; for i:=1 to n
if (s[i]>='0') and (s[i]<='9') then inc(dem); write('Co ',dem,' chu so xau vua nhap'); readln
end Bai 11
program bai11;
uses crt;
const max=60;
type Hocsinh = record
hoten:string[30]; ngaysinh:string[10]; diachi:string[50]; toan, van:real; xeploai:char; end;
var lop:array[1 max] of hocsinh;
N, i:byte; begin
clrscr;
write('Nhap so luong hoc sinh: ');readln(n);
for i:=1 to n do
with lop[i] do {Chú ý câu lệnh này}
begin
writeln('Nhap so lieu hoc sinh thu ',i,':'); write('Ho va ten: ');readln(hoten); write('Ngay sinh: ');readln(ngaysinh); write('Dia chi : ');readln(diachi); write('Diem toan: ');readln(toan); write('Diem van : ');readln(van);
if toan+van>=18 then xeploai:='A';
(8)xeploai:='B';
if (toan+van>=10) and (toan+van<14) then
xeploai:='C';
if (toan+van<10) then
xeploai:='D';
end; clrscr;
writeln('Danh sach hoc sinh:');
for i:=1 to n do with lop[i] do
writeln(hoten:30,'- xep loai: ',xeploai); writeln('Danh sach hoc sinh loai A:');
for i:=1 to n do with lop[i] do 21
if xeploai='A' then
writeln(hoten:30); readln
end
BÀI TẬP SGK TIN 11!!
1 Nhập mảng chiều,đếm số cặp phần tử khác mảng
2 Nhập dãy số N dương,sắp xếp dãy sốđó thuật tốn tráo đổi,đếm số lần thực
tráo đổi đo
3 Nhập dãy số nguyên dương N,CHO BIẾT CÓ BAO NHIÊU SỐ CHIA HẾT CHO7
4 Nhập dãy số nguyên N cho biết có phần tử chia hết cho 3.Tính tổng
số chia hết cho đo
Giúp dùm nha,,, BÀi 1:
var a,b:array [1 100] of integer; n,i,t:byte;
begin
write('so phan tu cua hai day la : '); readln(n);
writeln('Nhap day thu nhat: '); for i:=1 to n
begin
write('Phan tu thu ',i,' : '); readln(a[i]);
(9)writeln('Nhap day thu hai : '); for i:=1 to n
begin
write('Phan tu thu ',i,' : '); readln(b[i]);
if a[i]<>b[i] then t:=t+1; end;
write('so cap phan tu khac : ',t); readln;
end Bài 2:
var a: array [1 100] of word; n,i,j,dem:byte;
tg:word; begin
write('so phan tu cua day : '); readln(n);
for i:=1 to n begin
write('Phan tu thu ',i,' : '); readln(a[i]);
end; dem:=0;
for i:=N downto for j:=1 to i if a[i]<a[j] then begin
tg:=a[i]; a[i]:=a[j]; a[j]:=tg; dem:=dem+1; end;
write('Day da sap xep : '); for i:=1 to n write(a[i]:4); writeln;
write('so lan trao doi: ',dem); readln;
(10)
var a: integer; n,i,dem:byte; begin
write('so phan tu cua mang; '); readln(n);
dem:=0; for i:=1 to n begin
write('Phan tu thu ',i,' : '); readln(a);
if a mod = then dem:=dem+1; end;
write('Co ',dem,' so chia het cho '); readln;
end Bài 4:
var a,b:integer; n,i,j:byte; begin
write('so phan tu cua day : '); readln(n);
b:=0; j:=0;
for i:=1 to n begin
write('phan tu thu ',i,' : '); readln(a);
if a mod = then begin
j:=j+1; b:=b+a; end; end;
writeln('co ',j,' phan tu chia het cho 3'); write('tong cac phan tu chia het cho la: ',b); readln;