Tài liệu Bài tập cấu trúc lặp

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.