Trường trung học cơ sở đại đức

Môn : Tin học - Lớp 7

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 không biết trước?
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 nhiều lệnh.
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:
For i:=1 To 10 Do Writeln (`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.
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 số 5.