Bài 7. Câu lệnh lặp

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ố đó
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.
For i:=1 to 10; do x:=x+1
For i:=10 to 1 do x:=x+1;
For i:=1 to 10 do x:=x+1;
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
For i:=1 to 10 do x:=x+1;
For i:=1 to 10 do x:=x+1;
For i:=1 to 10 do x:=x+1;
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.
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
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.