Mô tả:
Bài 1: Viếết chương trình tnh tổng tch các biểu th ức S = 1*1+1*2+…1*10 + 2*1+2*2+…+…+ M*N.
Bài 2: Viếết chương trình đưa ra màn hình 2 câu: “Chào b ạn. B ạn có kh ỏe không!”. In 5 lâần lến màn hình.
Bài 3: Viếết chương trình veẽ hình chữ nh ật và điếần dâếu * nh ư hình sau:
*****
*****
*****
Bài 4: Viếết chương trình tm ước chung lớn nhâết c ủa hai sôế nguyến. In kếết qu ả ra màn hình.
Bài 5: Viếết chương trình tnh trung bình c ộng c ủa các sôế nh ập vào t ừ bàn phím. Khi muôến kếết thúc nh ập
để tnh trung bình thì nhâến phím 0. In kếết quả ra màn hình.
Bài 6: Viếết chương trình tnh tổng bình ph ương c ủa n sôế nguyến đâầu tến. In kếết qu ả ra màn hình.
Bài 7: Viếết chương trình tnh tổng bậc 3 c ủa n sôế nguyến đâầu tến. In kếết qu ả ra màn hình.
Bài 8: Viếết chương trình nhập vào một sôế nguyến rôầi in ra màn hình tâết c ả các ước sôế c ủa sôế đó.
Bài 9: Viếết chương trình veẽ 1 tam giác cân bằầng dâếu . In ra màn hình tam giác đó.
Bài 10: Viếết chương trình tnh tổng nghịch đảo c ủa n sôế nguyến đâầu tến .
Bài 11: Viếết chương trình tnh tổng bình ph ương các sôế chằẽn t ừ 1 đếến n; v ới n đ ược nh ập t ừ bàn phím.
Bài 12: Viếết chương trình nhập vào n sôế nguyến , tm sôế l ớn nhâết trong các sôế đó. In kếết qu ả ra màn
hình.
Bài 13: Viếết chương trình tnh giai thừa c ủa n, v ới n đ ược nh ập t ừ bàn phím.
Bài 14: Viếết chương trình chứng minh rằầng phép chia gi ữa hai sôế nguyến, ch ẳng qua ch ỉ là phép tr ừ. In
kếết quả ra màn hình là sôế thương và sôế d ư.
Bài 15: Viếết chương trình nhập vào một sôế và kiểm tra xem sôế đó có ph ải là sôế nguyến tôế hay không?
Bài 16: Viếết chương trình tnh xn, với x, n đ ược nh ập t ừ bàn phím.
Bài 17: Viếết chương trình nhập vào một sôế nguyến, in ra màn hình sôế nguyến đó có mâếy ký t ự sôế.
Bài 18: Viếết chương trình tnh tổng S = 1+2+3+…+ n sao cho S > 1000. H ỏi khi đó c ụ th ể S bằầng bao
nhiếu?
Bài 19: Viếết chương trình tnh tổng S = 12 +22 +…+n2 . In kếết qu ả ra màn hình.
Bài 20: Viếết chương trình tnh tổng c ủa n sôế nguyến đâầu tến. Sôế n và các sôế h ạng c ủa t ổng đ ược nh ập
từ bàn phím. In kếết quả ra màn hình.
========================
Câu 1
var i,j,n,s: integer;
begin
s:= 0;
write('Nhap so lan lap: '); readln(n);
for i:= 1 to n do
for j:= 1 to 10 do
s:= s+(i*j);
write('S = ',s);
end.
------------------------------------------------Câu 2
var i: integer;
begin
for i:= 1 to 5 do
writeln ('Chao ban. Ban co khoe khong?');
end.
-------------------------------------------------Câu 3
var i,j: integer;
begin
for i:= 1 to 3 do
begin
for j:= 1 to 5 do
write('*');
writeln;
end;
end.
-------------------------------------------------Câu 4
var x,y,u: longint;
begin
write('Nhap x: '); readln(x);
write('Nhap y: '); readln(y);
while x<>y do
if x>y then x:=x-y else y:=y-x;
u:=x;
write('Uoc chung lon nhat cua x va y la: ',u);
end.
---------------------------------------------------Câu 5
var t,i: integer;
k: real;
begin
t:=0; i:=0;
writeln('Nhap so muon tnh trung binh cong, nhan phim 0 de ket thuc');
repeat
begin
i:=i+1;
write('Nhap so thu ',i,': '); readln(t);
k:=k+t;
end;
untl t=0;
k:=k/(i-1);
write('Trung binh cong cua day so vua nhap: ',k);
end.
--------------------------------------------------------------
Câu 6
var i,n,m: integer;
begin
m:=0;
write('Nhap n: '); readln(n);
for i:=1 to n do
m:= m+i*i;
write('Tong binh phuong: ',m);
readln;
end.
-------------------------------------------------------------Câu 7
var i,n,m: integer;
begin
m:=0;
write('Nhap n: '); readln(n);
for i:=1 to n do
m:= m+i*i*i;
write('Tong binh phuong: ',m);
readln;
end.
---------------------------------------------------------------Câu 8
var i,n: integer;
begin
write('Nhap n: '); readln(n);
write('Cac uoc so cua ',n,':');
for i:=1 to n do
if n mod i = 0 then
write(i:4);
readln;
end.
---------------------------------------------------------------Câu 9
var i,j,n: integer;
begin
write('Nhap n: '); readln(n);
for i:=1 to n do
begin
for j:=0 to n-i do
write(' ');
for j:=0 to i-1 do
write('* ');
writeln;
end;
readln;
end.
------------------------------------------------------------Câu 10
var i,n: integer;
t: real;
begin
t:=0;
write('Nhap n: '); readln(n);
for i:=1 to n do
t:= t+(1/i);
write('Tong nghich dao: ',t:2);
readln;
end.
------------------------------------------------------------
Câu 11
var i,n,t: integer;
begin
t:=0; i:=2;
write('Nhap n: '); readln(n);
while i<=n do
begin
t:= t+i*i;
i:= i+2;
end;
write('Tong binh phuong cac so chan: ',t);
readln;
end.
---------------------------------------------------------Câu 12
var i,n,min,max,a: integer;
begin
max:=0;
write('Nhap bao nhieu so de so sanh: '); readln(n);
for i:= 1 to n do
begin
write('Nhap so thu ',i,': ');
readln(a);
min:=a;
if min>max then
max:=min;
end;
write('So lon nhat: ',max);
readln;
end.
Câu này có nhược điểm là không so sánh được sôế âm, các bạn t ự c ải tếến thu ật toán nhe.
- Xem thêm -