Tài liệu học tin 11 Thử nghiệm Tin11 Bai10

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 a Repeat…Until  Cú pháp: Repeat ; Until ;  Công dụng: Thực công việc biểu thức điều kiện có giá trị Program vidu; Uses crt; Var N:integer; Begin clrscr; repeat write(‘Nhap so nguyen duong N:’); readln(N); until N>0; 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 N0; S:=0; i:=1; While 1/(a+i)>= 0.0001 Begin S:=S+1/(a+i); i:=i+1; End; Writeln(‘Tong cac phan so la ’, S:4:2); Readln; End  Cho câu hỏi bất kỳ, nhập đáp án mong muốn xuất lời khen, không nhập đáp án mong muốn bắt nhập lại câu trả lời Program cauhoi; Uses crt; Var traloi:string Begin clrscr; repeat write(‘Toan co dep trai khong? (co/khong) ’); readln(traloi); until traloi=‘co’; Writeln(‘Ban tra loi dung roi, cam on ban’); Readln; End program ucln; uses crt; var n,m:integer; begin clrscr; write('Chuong trinh tim uoc chung lon nhat '); repeat write('Nhap m=');readln(m); until m>0; repeat write('Nhap n=');readln(n); until n>0; while mn if m>n then m:=m-n else n:=n-m ; write('Uoc chung lon nhat la ',n); readln; end Tham khảo SGK /47-48 { x +y x + y ≤1 2 x +y x2 + y > y≥x 0.5 x + y >1 y