Tin8 Bai7 Caulenhlap

Câu lệnh 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 Lop8A2_Maso_BTCLL_1; uses crt; var Tong,n,i: integer; begin clrscr; writeln('Chuong trinh tinh tong cac so chan tu toi n'); write('Nhap n: '); readln(n); Tong:=0; for i:=1 to n if (i mod 2=0) then Tong:=Tong+i; write('Tong cac so chan tu toi n la: ',Tong); readln; end program tinhtongsole; uses crt; var Tong,n,i: integer; begin clrscr; writeln('Chuong trinh tinh tong cac so le tu toi n'); write('Nhap n: '); readln(n); Tong:=0; for i:=1 to n if (i mod 20) then Tong:=Tong+i; write('Tong cac so le tu toi n la: ',Tong); readln; end program tinhgiaithua; uses crt; Var giaithua,n,i: integer; begin clrscr; writeln('Chuong trinh tinh N giai thua'); write('Nhap n: '); readln(n); giaithua:=1; for i:=1 to n giaithua:=giaithua*i; write(N, ‘ ! = ‘ ,giaithua); readln; end 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