Đang tải... (xem toàn văn)
- Viết được chương trình có sử dụng vòng lặp với số lần biết trước;.. - Rèn luyện kĩ năng đọc hiểu chương trình có sử dụng vòng lặp với số lần biết trước.[r]
(1)BÀI THỰC HÀNH 5: SỬ DỤNG LỆNH LẶP FOR…DO
I MỤC TIÊU:
1 Kiến thức: Sử dụng câu lệnh ghép. 2 Kĩ năng:
- Viết chương trình có sử dụng vịng lặp với số lần biết trước;
- Rèn luyện kĩ đọc hiểu chương trình có sử dụng vịng lặp với số lần biết trước 3 Thái độ: Học tập nghiêm túc, có ý thức tự giác, tinh thần vươn lên vượt qua khó khăn. II CHUẨN BỊ:
1 Giáo viên: Sách giáo khoa, máy tính điện tử, giáo án, máy chiếu. 2 Học sinh: Vở ghi, sách giáo khoa.
III CÁC HOẠT ĐỘNG DẠY – HỌC: 1 Ổn định lớp: (1’)
8A1:……… 8A2:……… 2 Kiểm tra cũ: (4’)
Câu 1: Trình bày câu lệnh lặp Pascal? 3 Bài mới:
Hoạt động GV Hoạt động HS Nội dung ghi bảng
Hoạt động 1: (5’) Củng cố lý thuyết. + GV: Củng cố cho HS cấu trúc
lặp với số lần lặp cho trước câu lệnh for…to…do
+ GV: Cách sử dụng câu lệnh lặp với lần biết trước
+ HS: Ôn lại cú pháp thực hiện: for <biến đếm>:=<giá trị đầu to <giá trị cuối> <câu lệnh>; + HS: Câu lệnh thực câu lệnh nhiều lần, lần vòng lặp
Hoạt động 2: (34’) Nội dung tập 2. + GV: Đưa yêu cầu tập
+ GV: Yêu cầu HS gõ ví dụ Câu lệnh lặp
+ GV: Trình chiếu nội dung mẫu yêu cầu HS gõ
+ GV: Quan sát trình em thực hiện, giúp đỡ em thực chưa tốt
+ GV: Cho học sinh thực với giá trị N = 3, 4, 5, …
+ GV: Kiểm tra kết giá trị bảng so với kết chạy chương trình em
+ HS: Chú ý lắng nghe
+ HS: Chú ý lắng nghe hướng dẫn GV
Program Tinh_tong; Var N, i, S: integer; Begin
Write(’Nhap N = ’); readln(N); S := 0;
For i:= to N S:= S + i; Writeln(’Tong cua ’,N,’ so tu nhien dau tien S = ’,S);
Readln; End
+ HS: Thực với giá trị theo yêu cầu GV
+ HS: Quan sát nhận xét kết đạt chạy liệu so sánh với
1 Bài tập 1.
Program Tinh_tong; Var N, i, S: integer; Begin
Write(’Nhap N = ’); readln(N);
S := 0;
For i := to N
If i mod = then S := S + i;
Writeln(’Tong cac so chan nho hon hoac bang ’,N,’ la = ’,S);
Readln; End
Ngày soạn: Ngày dạy: Tuần 21
(2)+ GV: Thao tác mẫu bước thực nhập chương trình cho HS quan sát để thực
+ GV: Quan sát, hướng dẫn HS thực máy
+ GV: Giúp đỡ hướng dẫn HS thực gõ chương trình
+ GV: Sửa chữa sai sót em mắc phải
+ GV: Yêu cầu HS thay đoạn chương trình Writeln(’Tong cua ’,N,’ so tu nhien dau tien S = ’,S); đoạn chương trình sau:
For i := to N
If i mod = then S := S + i;
Writeln(’Tong cac so chan nho hon hoac bang ’,N,’ la = ’,S);
+ GV: Cho biết kết thực chương trình với N = 8, 9, 10 gì? + GV: Yêu cầu HS giải thích câu lệnh lặp sử dụng + GV: Gọi ý yêu cầu số HS trả lời theo hướng dẫn GV
+ GV: Nhận xét chốt ý cho em khác nắm bắt
+ GV: + GV: Hướng dẫn phân tích câu lệnh em chưa rõ + GV: Phân tích cách thực chương trình cho HS nhận biết + GV: Giải thích cho HS câu lệnh em vướng mắc
+ GV: Chỉ lỗi em thường gặp viết chương trình
+ GV: Chốt nội dung tập
+ HS: Chu ý qua sát trình thực viết chương trình GV ý lệnh khó
+ HS: Tự giác thực theo hướng dẫn GV
+ HS: Thực theo hướng dẫn GV
+ HS: Sửa lỗi mà em hay gặp phải dấu
Program Tinh_tong; Var N, i, S: integer; Begin
Write(’Nhap N = ’); readln(N); S := 0;
For i := to N
If i mod = then S := S + i; Writeln(’Tong cac so chan nho hon hoac bang ’,N,’ la = ’,S); Readln;
End
+ HS: Kết thực cộng số chẵn nhỏ N
+ HS: Giải thích cách chạy câu lệnh lặp
+ HS: Câu lệnh lặp có sử dụng câu lệnh kiểm tra điều kiện, i thảo mãn chia hết cho (số chẵn) câu lệnh tính tổng thực
+ HS: Chú ý lắng nghe hiểu nội dung
+ HS: Chú ý lắng nghe hiểu nội dung ý nghĩa câu lệnh + HS: Chú ý lắng nghe hiểu
+ HS: Tìm hiểu câu lệnh em chưa thật nắm rõ
+ HS: Chú ý sửa lỗi thường mắc phải
+ HS: Tập trung ý lắng nghe 4 Củng cố
- Củng cố nội dung học 5 Dặn dò: (1’)
- Xem trước nội dung phần IV RÚT KINH NGHIỆM:
(3)