Kĩ năng: Làm các bài tập về câu lệnh lặp với số lần biết trước for … to … do … trong Pascal2. 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.[r]
(1)BÀI TẬP THỰC HÀNH
I MỤC TIÊU: 1 Kiến thức:
- Ôn tập câu lệnh lặp với số lần biết trước for … to … … Pascal; - Kết hợp câu lệnh điều kiện với câu lệnh lặp với số lần biết trước
2 Kĩ năng: Làm tập câu lệnh lặp với số lần biết trước for … to … … Pascal. 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ũ: (5’)
Câu 1: Em trình bày cú pháp cách sử dụng câu lệnh lặp? 3 Bài mới:
Hoạt động GV Hoạt động HS Nội dung ghi bảng
Hoạt động 1: (8’) Tìm hiểu tập 1. + GV: Yêu cầu HS tìm lỗi sai sửa
lại cho
a) for i:=100 to writeln(‘A’); b) for i:=1.5 to 10.5 writeln(‘A’); c) for i=15 to 40 writeln(‘A’); d) for i:=7 to 120 do; writeln(‘A’); e) for i:=8 108 to writeln(‘A’);
+ HS: Thực theo yêu cầu GV đưa
a) for i:=1 to 100 writeln(‘A’); b) for i:=1 to 10 writeln(‘A’); c) for i:=15 to 40 writeln(‘A’); d) for i:=7 to 120 writeln(‘A’); e) for i:=8 to 108 writeln(‘A’);
1 Bài tập 1:
Hoạt động 2: (15’) Tìm hiểu tập 3. + GV: Yêu cầu HS đọc làm
bài tập SGK/61
+ GV: Chia lớp thành nhóm học tập làm tập
+ GV: Sau thực chương trình:
j := 0;
for i := to j := j + 2;
Giá trị biến j + GV: Yêu cầu HS từ thuật toán tập SGK viết chương trình tính tổng A
+ GV: Hướng dẫn HS thực viết chương trình
+ GV: Yêu cầu HS dựa gợi mở GV viết chương trình
+ GV: Hướng dẫn em sử dụng
+ HS: Đọc nghiên cứu SGK làm tập theo yêu cầu + HS: Thảo luận nhóm trả lời câu hỏi đề
+ HS: Sau thực chương trình lệnh lặp thực vòng lặp, lần j tăng thêm đơn vị Vậy kết thúc vòng lặp j có giá trị 12
+ HS: Đọc nghiên cứu SGK dựa thuật toán tiết trước thực theo yêu cầu
+ HS: Trả lời nội dung theo yêu cầu GV
Program bai6; Uses Crt; Var A: Real;
2 Bài tập 2:
* Bài toán: Bài tập SGK viết chương trình tính tổng A
Program bai6; Uses Crt; Var A: Real; n, i: Integer; BEGIN
Clrscr;
Write(‘Nhap n: ’); Readln(n);
A := 0;
For i := To n Do A := 1/(i*(i+2)); Write(‘Tong A = ’,A); Readln
Ngày soạn: Ngày dạy: Tuần 22
(2)câu lệnh lặp for <biến đếm>:=<giá trị đầu> to <giá trị cuối> <câu lệnh>; Pascal, để viết chương trình?
+ GV: Quan sát hướng dẫn, thao tác mẫu trình làm em bên
+ GV: Cho HS lên bảng thực tập theo yêu cầu đưa + GV: Hướng dẫn em sửa tập, yêu cầu bạn khác quan sát nhận xét
+ GV: Hướng dẫn sửa sai cho HS, lỗi em thường gặp + GV: Yêu cầu HS sau gõ xong thực lưu với tên bai6.pas + GV: Yêu cầu HS sau gõ xong biên dịch chương trình
+ GV: Cho HS chạy chương trình xem kết đạt gõ xong
+ GV: Giải thích cho HS câu lệnh chương trình cho em nhận biết
+ GV: Cho HS thực chạy chương trình với thông số khác
+ GV: Quan sát trình thực em
+ GV: Trình chiếu có chương trình chạy bị lỗi, hướng dẫn em cách trình bày khắc phục lỗi thường gặp
n, i: Integer; BEGIN
Clrscr;
Write(‘Nhap n: ’); Readln(n); A := 0;
For i := To n Do A := 1/(i*(i+2)); Write(‘Tong A = ’,A); Readln
END
+ HS: Thực quan sát giúp đỡ GV
+ HS: Một HS lên thực yêu cầu giống bạn bên + HS: Sửa lỗi theo hướng dẫn GV gặp khó khăn
+ HS: Nhận biết lỗi em hay gặp trình thực + HS: Thực lưu với tên yêu cầu
+ HS: Thực biên dịch (Alt + F9) chương trình kiểm tra lỗi, sửa lỗi có
+ HS: Thực chạy chương trình (Ctrl + F9) kiểm chứng, xem kết đạt
+ HS: Biết câu lệnh sử dụng
+ HS: Chú ý quan sát kiểm tra kết tự tính so với chương trình đưa
+ HS: Thực thao tác theo hướng dẫn GV đưa + HS: Tập trung, ý lắng nghe hướng dẫn GV, cách trình bày lỗi thường mắc phải gõ chương trình
END
4 Củng cố
- Củng cố nội dung học 5 Dặn dò: (1’)
- Xem trước nội dung IV RÚT KINH NGHIỆM :
