Tiet 38: Cau lenh lap-Cuc Hay

Trường trung học cơ sở đại đức
Trường trung học cơ sở đại đức
Môn : Tin học Lớp 7
Môn : Tin học Lớp 7
Giáo viên giảng dạy:
Giáo viên giảng dạy:
? Cho 1 ví dụ với số lần lặp biết trước?
? Cho 1 ví dụ với số lần lặp biết trước?
? Cho 1 ví dụ với số lần lặp không biết trước?
? Cho 1 ví dụ với số lần lặp không biết trước?
1. Các công việc thực hiện nhiều lần.
1. Các công việc thực hiện nhiều lần.
2. Câu lệnh lặp một lệnh thay cho
2. Câu lệnh lặp một lệnh thay cho
nhiều lệnh.
nhiều lệnh.
3. Ví dụ về câu lệnh lặp.
3. Ví dụ về câu lệnh lặp.
- Cú pháp câu lệnh lặp trong Pascal:
For tên biến := giá tri đầu To giá trị
cuối Do câu lệnh trong vòng lăp ;
- Trong đó:
For, To, Do là các từ khoá.
Biến là kiểu số nguyên.
Sau từ khoá Do không có dấu chấm phẩy.
Câu lệnh trong vòng lặp nếu có nhiều hơn
1 lệnh thì đặt trong cặp từ khoá Begin
End.
4. Tính tổng và tích bằng câu lệnh lặp
- Kiểu dữ liệu số nguyên: Longint có
phạm vi lơn hơn so với kiểu Integer.

Quan sát ví dụ sau:
Quan sát ví dụ sau:
For
For
i:=1
i:=1
To
To
10
10
Do
Do
Writeln
Writeln
(lan lap thu,i)
(lan lap thu,i)
;
;
Ví dụ 3:
Program lap;
Var i: Integer;
Begin
For i:=1 to 10 do Writeln ( lan lap thu ,i);
Readln;
End.
Ví dụ 4:
Uses crt;
Var i: Integer;
Begin
clrscr;

For i:=1 to 20 do
Begin Writeln ( O ); delay (100); end;
Readln;
End.
Ví dụ 5:
Program TinhTong;
Var N, i: Integer; S: Longint;
Begin
Writeln (Nhap so N =); Readln (N);
S:= 0;
For i:=1 to N do S:= S + i;
Write (Tong cua,N,So tu nhien dau tien S,S);
Readln;
End.
Ví dụ 6:
Program TinhGiaiThua;
Var N, i: Integer; P: Longint;
Begin
Writeln (Nhap so N =); Readln (N);
P:= 1;
For i:=1 to N do P:= P*i;
Write (N,!=,P);
Readln;
End.
ViÕt ch­¬ng trình tÝnh tæng: S=1+2+3+4+5

®¸p ¸n
Program Tinh_tong;
Var i: integer;
S: longint;

Begin
S:=0;
For i:= 1 to 5 do S:= S + 1;
Writeln (‘Tong cua S = ’,s);
Readln;
end.

Học bài theo vở ghi và SGK.
Học bài theo vở ghi và SGK.

Làm bài tâp 3, 4, 5, 60 trang 60, 61 SGK.
Làm bài tâp 3, 4, 5, 60 trang 60, 61 SGK.

Chuẩn bị kiến thức cho bài thực hành
Chuẩn bị kiến thức cho bài thực hành
s
s
ố 5
ố 5
.
.