1. MỤC TIÊU
a. Kiến thức
- Viết chương trình Pascal sử dụng câu lệnh lặp với số lần chưa biết trước.
b. Kỹ Năng
- Rèn luyện khả năng đọc chương trình, tìm hiểu tác dụng và kết hợp các câu lệnh.
c. Thái độ: Nghiêm túc
2. CHUẨN BỊ CỦA GV VÀ HS.
a. Giáo viên: giáo án, phòng máy
b. Học sinh: Kiến thức cũ, sách, vở.
3. TIẾN TRÌNH BÀI DẠY
a. Kiểm tra bài cũ (Kết hợp trong bài dạy)
b. Dạy bài mới
Ngµy So¹n:11/01/10 Ngµy gi¶ng: Líp 8A:18/01/10 Líp 8B: 15/01/10 Líp 8C: 18/01/10 TiÕt 43 : Bµi thùc hµnh 6: Sö dông lÖnh lÆp while...do 1. MỤC TIÊU a. Kiến thức - Viết chương trình Pascal sử dụng câu lệnh lặp với số lần chưa biết trước. b. Kỹ Năng - Rèn luyện khả năng đọc chương trình, tìm hiểu tác dụng và kết hợp các câu lệnh. c. Thái độ: Nghiêm túc 2. CHUẨN BỊ CỦA GV VÀ HS. a. Giáo viên: giáo án, phòng máy b. Học sinh: Kiến thức cũ, sách, vở. 3. TIẾN TRÌNH BÀI DẠY a. Kiểm tra bài cũ (Kết hợp trong bài dạy) b. Dạy bài mới HOẠT ĐỘNG CỦA GV VÀ HS NỘI DUNG KIẾN THỨC Hoạt động 1: 10’ KiÓm tra bµi cò: Hãy cho một số ví dụ về lặp với số lần chưa biết trước. GV: Đưa ra bài tập 1 SGK ? Gọi học sinh nêu ý tưởng - GV hướng dẫn HS: Làm bài tập Hoạt động 2 30’ HS: Đánh máy bài tập vào máy tính GV: Kiểm tra và chạy chương trình Bài 1. Viết chương trình sử dụng lệnh lặp Whiledo để tính trung bình n số thực x1, x2, x3,..., xn. Các số n và x1, x2, x3,..., xn được nhập vào từ bàn phím. Ý tưởng: Sử dụng một biến đếm và lệnh lặp Whiledo để nhập và cộng dần các số vào một biến kiểu số thực cho đến khi nhập đủ n số. a) Mô tả thuật toán của chương trình, các biến dự định sẽ sử dụng và kiểu của chúng. b) Gõ chương trình sau đây và lưu chương trình với tên Tinh_TB: Program Tinh_Trung_binh; uses crt; Var n, dem: Integer; x, TB: real; begin clrscr; dem:=0 ; TB:=0 ; write('Nhap so cac so can tinh n = '); readln(n); while dem<n do begin dem:=dem+1; write('Nhap so thu ',dem,'= '); readln(x); TB:=TB+x; end; TB:=TB/n; writeln('Trung binh cua ',n,' so la = ',TB:10:3); writeln('Nhan Enter de thoat ...'); readln end. a) Đọc và tìm hiểu ý nghĩa của từng câu lệnh. Dịch chương trình và sửa lỗi, nếu có. Chạy chương trình với các bộ dữ liệu được gõ từ bàn phím và kiểm tra kết quả nhận được. b) Viết lại chương trình bằng cách sử dụng câu lệnh fordo thay cho câu lệnh whiledo. c. Củng cố, luyện tập. 4’ - Hiểu các hoạt động lặp với số lần chưa biết trước - Biết sử dụng câu lệnh while..do d. Hướng dẫn học sinh tự học ở nhà 1’ - Về nhà xem lại bài học tiết sau chúng ta học tiếp. Ngµy So¹n:15/01/10 Ngµy gi¶ng: Líp 8A: 19/01/10 Líp 8B: nt Líp 8C: nt TiÕt 44 : Bµi thùc hµnh 6: Sö dông lÖnh lÆp while...do (TT) 1. MỤC TIÊU a. Kiến thức Viết chương trình Pascal sử dụng câu lệnh lặp với số lần chưa biết trước. b. Kỹ Năng Rèn luyện khả năng đọc chương trình, tìm hiểu tác dụng và kết hợp các câu lệnh. c. Thái độ: Nghiêm túc 2. CHUẨN BỊ CỦA GV VÀ HS a. Giáo viên: giáo án, máy chiếu b. Học sinh: Kiến thức cũ, sách, vở. 3. TIẾN TRÌNH BÀI DẠY. a. Kiểm tra bài cũ. (Kết hợ trong bài) b. Dạy bài mới HOẠT ĐỘNG CỦA GV VÀ HS NỘI DUNG KIẾN THỨC Hoạt động 1: Bài 2 41’ GV: Đưa ra bài tập 2 SGK ? Gọi học sinh nêu ý tưởng - GV hướng dẫn HS: Làm bài tập Hoạt động 2: HS: Là các ý a, b, c vào máy GV: kiểm tra đánh giá Bài 2. Tìm hiểu chương trình nhận biết một số tự nhiên N được nhập vào từ bàn phím có phải là số nguyên tố hay không. Ý tưởng: Kiểm tra lần lượt N có chia hết cho các số tự nhiên 2 ≤ i ≤ N hay không. Kiểm tra tính chia hết bằng phép chia lấy phần dư (mod). Đọc và tìm hiểu ý nghĩa của từng câu lệnh trong chương trình sau đây: Uses Crt; Var n,i:integer; Begin Clrscr; write('Nhap vao mot so nguyen: ');readln(n); If n<=1 then writeln('N khong la so nguyen to') else begin i:=2; while (n mod i0) do i:=i+1; if i=n then writeln(n,' la so nguyen to!') else writeln(n,' khong phai la so nguyen to!'); end; readln end. Gõ, dịch và chạy thử chương trình với một vài độ chính xác khác nhau. c. Củng cố, luyện tập. 3’ - Hiểu các hoạt động lặp với số lần chưa biết trước - Biết sử dụng câu lệnh while..do d. Hướng dẫn học sinh tự học ở nhà. 1’ - Về nhà xem lại bài học tiết sau chúng ta học tiếp.
Tài liệu đính kèm: