Bài 7: CÂU LỆNH LẶP
I. Mục tiêu cần đạt:
1. Về kiến thức
- Hiểu được lệnh lặp với số lần biết trước.
- Biết được tình huống sử dụng lệnh lặp với số lần đình trước.
- Biết sử dụng câu lệnh ghép.
2. Về kĩ năng
Biết dùng lệnh lặp với số lần định trước.
II. Chuẩn bị
- GV: Sgk, giáo án…
- HS: Sgk, bài mới…
III. Tiến trình dạy học.
1. Ổn định lớp: Kiểm tra sĩ số HS.
2. Kiểm tra bài cũ: Không kiểm tra.
3. Bài mới.
Hoạt động của GV và HS
Nội dung

Hoạt động 1: Công việc dẫn đến lặp với số lần định trước.

- GV yêu cầu HS mở trang 41 sgk, xem ví dụ 3 và thuật toán ở 4 dòng cuối cùng của trang này.
- GV. Chúng ta thay SUM bằng biến s và thay kí hiệu bằng kí hiệu := trong Pascal. Em hãy viết thuật toán bằng sự thay thế đó.
- HS chép thuật toán vào vở.
- Gv. Cho điểm HS lên bảng.
- Nhận xét: Nhìn vào bước 2 và bước 3 của thuật toán, chúng ta thấy việc tăng i lên 1 đơn vị , rồi gán s + i cho s được thực hiện đi thực hiện l;ại 100 lần.

Câu lệnh lặp
1. Bài toán:
Tính s = 1 + 2 + 3 +… + 100
2. Thuật toán:
Bước 1: S := 0; i := 0;
Bước 2: i := i + 1;
Bước 3: Nếu i <= 100 thì S := S + i; quay lại bước 2;
Bước 4: Thông báo đáp số;
Bước 5: Kết thúc.


Hoạt động 2: Tìm hiểu câu lệnh FOR của Pascal.

- GV. Ngôn ngữ lập trình Pascal có câu lệnh cho phép thực hiện lặp với số lần biết trước.
- GV. Giới thiệu cú pháp và hoạt động của câu lệnh For.
- HS. Ghi vào vở.
- GV. Cho hs xung phong lên bảng viết chương trình theo thuật toán và cú pháp của câu lệnh For đã học ở trên.
- HS theo dõi bạn viết chương trình và nghe sự điều chỉnh của Gv, chép chương trình vào vở.
Lệnh For
Cú pháp: For := to do ;
Hoạt động: Từ giá trị đầu đến giá trị cuối biến đếm nhận bao nhiêu giá trị thì câu lệnh được thực hiện bấy nhiêu lần.
Chương trình
Program Tinh_tong;
Uses crt;
Var i,s:Integer;
Begin
Clrscr;
S := 0;
For i := 1 to 100 do s := s +i;
Writeln(‘Dap so la’,s);
Readln
End.

Hoạt động 4: Sử dụng vòng For tìm hiểu chương trình ví dụ 4 trang 58 sgk, giới thiêu lệnh ghép.

- Gv cho Hs đọc ví dụ 4 trang 58 và treo bảng phụ lên tường chương trình của ví dụ 4 như cột bên, nghe Gv giải thích chương trình (không chép chương trình vì đã có trong sách giáo khoa.
Lí do viết nhiều hơn một lệnh sau từ khóa Do trong Pascal dẫn đến giới thiêu lệnh ghép trong Pascal.
- GV liệt kê những từ khóa mà sau nó chỉ cho viết một lệnh. Trình bày cấu trúc của lệnh ghép.
Áp dụng
Ví dụ 4 sgk.
Uses crt;
Var i: Integer;
Begin
Clrscr;
For i := 1 to 20 do
Begin
Writeln(‘0); Delay(100);
end;
Readln
End.
Chú ý: lệnh ghép
Trong Pascal sau từ kháo Then, Else, Do muốn viết nhiều hơn một lệnh thì phải viết chúng ở giữa hai từ khóa begin và end để tạo thành một câu lệnh ghép.
Begin
Các lệnh cần ghép
End

Hoạt động 5: Tìm hiểu chương trình ví dụ 5.

- GV. cho Hs đọc ví dụ 5 trang 58 và treo bảng phụ lên tường chương trình của ví dụ 4 như cột bên, giải thích chương trình.