KIỂM TRA BÀI CŨ Câu 1: Kết quả của đoạn lệnh sau đây trong Pascal? x:=0; For i:=5 to 9 do begin x:=x+i; writeln(i, ‘: ’,x); end; In ra màn hình các số tự nhiên từ 5 đến 9, Mỗi số trên một dòng và tổng từ 5 đến số đó Lần lặp i x 1 5 5 2 6 11 3 7 18 4 8 26 5 9 35 KIỂM TRA BÀI CŨ Câu 2: Các câu lệnh Pascal sau đúng hay sai? Chỉ ra chỗ sai và sửa lại cho đúng. a) For i:=1 to 10; do x:=x+1 b)For i:=10 to 1 do x:=x+1; c) For i:=1 to 10 do x:=x+1; d)For i:=1 to 10 do x=x+1; S S S Đ Dấu ; sai vị trí Giá trị đầu phải nhỏ hơn giá trị cuối Sau Do là một lệnh chứ không thể là phép so sánh a) For i:=1 to 10 do x:=x+1; b)For i:=1 to 10 do x:=x+1; c) For i:=1 to 10 do x:=x+1; d)For i:=1 to 10 do x:=x+1; LUYỆN TẬP CÂU LỆNH LẶP Bài 1: Sử dụng câu lệnh lặp tính tích của các số từ 6 đến 20. P:=1; i:=5 i=i+1; P:=P*i; i=11? S Đ Lưu đồ P:=1; For i:=6 to 20 do p:=p*i; Writeln(‘Tich can tinh la:’,p); Program tich_cac_so; Uses Crt; Var i: Integer; p: Longint; BEGIN Clrscr; p:=1; For i:=6 to 20 do p:=p*i; Writeln(‘Tich cac so tu 6 ->20 la:’, p); Readln; END. Bài 2: In ra màn hình các số lẻ trong khoảng từ a đến b với a và b nhập từ bàn phím. B1: Nhập a và b B2: Duyệt vòng FOR từ a đến b thực hiện Nếu số nào chia 2 dư 1 thì in ra màn hình số đó For i:=a to b do if i mod 2 = 1 then writeln(i); If i mod 2 = 1 then writeln(i); For i:=a to b do if i mod 2 = 1 then writeln(i); Kiểm tra số có phải số lẻ không? Vòng FOR lồng nhau: Viết chương trình in ra màn hình các số từ 10 đến 99 theo dạng bảng 10 11 12 13 20 21 22 23 90 91 92 93 Biến j chạy theo cột Biến i chạy theo hàng Khi i = 1 thì thực hiện: Cho j chạy từ 0 đến 9, thực hiện 2 việc: + in ra giá trị của i, j. + Xuống dòng. Lặp lại với mỗi i For i:=1 to 9 do for j:=0 to 9 do Begin write(i,j,‘ ’); writeln; End; Program vong_FOR; Uses Crt; Var i,j:Integer; BEGIN Clrscr; For i:= 1 to 9 do For j:=0 to 9 do begin write(i,j,‘ ’); writeln; end; Readln; END. BTVN: Nghiên cứu – Viết chương trình in ra màn hình các số là ước của một số nhập từ bàn phím. . đúng. a) For i:=1 to 10; do x:=x+1 b )For i:=10 to 1 do x:=x+1; c) For i:=1 to 10 do x:=x+1; d )For i:=1 to 10 do x=x+1; S S S Đ Dấu ; sai vị trí Giá trị đầu phải nhỏ hơn giá trị cuối Sau Do là một. lại với mỗi i For i:=1 to 9 do for j:=0 to 9 do Begin write(i,j,‘ ’); writeln; End; Program vong _FOR; Uses Crt; Var i,j:Integer; BEGIN Clrscr; For i:= 1 to 9 do For j:=0 to 9 do begin write(i,j,‘. là một lệnh chứ không thể là phép so sánh a) For i:=1 to 10 do x:=x+1; b )For i:=1 to 10 do x:=x+1; c) For i:=1 to 10 do x:=x+1; d )For i:=1 to 10 do x:=x+1; LUYỆN TẬP CÂU LỆNH LẶP Bài 1: Sử