Tin11 Bai10 Cautruclap tài liệu, giáo án, bài giảng , luận văn, luận án, đồ án, bài tập lớn về tất cả các lĩnh vực kinh...
Cấu Trúc Lặp Ví dụ: In hình số từ 1…100, số dòng Bài tốn giải cách dùng 100 lệnh writeln(): writeln(1); writeln(2); ……………… writeln(100); Ví dụ 2: Tính tổng từ tới 100 Các bước để tính tổng: Tong:=0; Tong:=Tong+1; Tong:=Tong+2; Tong:=Tong+3; ………… Tong:=Tong+100; a Dạng lặp tiến: Cú pháp: For biến_điều_khiển:=giá_trị_đầu giá_trị_cuối ; Lưu ý: Biến điều khiển, giá trị đầu, giá trị cuối: kiểu vơ hướng đếm (integer,boolean,char) to Ví dụ 1: For i:=1 to 100 writeln(i); Ví dụ 2: For i:=1 to 100 tong:=tong+i; Lưu đồ cú pháp: Ví dụ 1: Program vidu1; Uses crt; Var i:integer; Begin clrscr; for i:=1 to 100 Begin writeln(i); delay(100); End; readln; End Ví dụ 1: Program vidu1; Uses crt; Var i:integer; Begin clrscr; for i:=1 to 100 if i mod 25 = o then begin Writeln(i); Readln; end Else writeln(i); readln; End Ví dụ 2: Program vidu2; Uses crt; Var tong, i:integer; Begin clrscr; tong:=0; for i:=1 to 100 tong:=tong+i; writeln('Tong tu toi 100 la:',tong); Readln; End b Dạng lặp lùi: Cú pháp: For biến_điều_khiển:=giá_trị_đầu downto giá_trị_cuối ; Ví dụ 1: For i:=24 downto Writeln(i); Ví dụ 2: For i:=‘z’ downto ‘a’ Write(i:3); Ví dụ: In hình chữ nhật: ********** ********** ********** ********** Số hàng For i:=1 to Begin For j:=1 to 10 Write(‘*’); Writeln; End; Số cột Program vidu2; Uses crt; Var tong, i:integer; Begin clrscr; For i:=1 to Begin For j:=1 to 10 Write(‘*’); Writeln; End; Readln; End Số hàng Số cột Ví dụ: In hình chữ nhật: ********** ********** ********** ********** (N nhập vào từ bàn phím) Tính tổng số chẵn từ tới N Tính tổng số lẻ từ tới N Tính N!=1*2*3*…*N 1 Tính tổng các số chắn từ tới N Tính tổng số lẻ từ tới N Tính tổng số chia hết cho từ M tới N (M0; End b While…do Cú pháp: While Do Begin ; End Công dụng: Trong biểu thức điều kiện thực công việc Program vidu; Uses crt; Var N:integer; Begin clrscr; N:=-1; while N