- 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.. Hướng dẫn học sinh tự học ở nhà.d[r]
(1)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ả đọc chương trình, tìm hiểu tác dụng kết hợp 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,
3 TIẾN TRÌNH BÀI DẠY
a Kiểm tra cũ (Kết hợp dạy)
b Dạy 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 số ví dụ lặp với số lần chưa biết trước
GV: Đưa tập SGK ? Gọi học sinh nêu ý tưởng - GV hướng dẫn
HS: Làm tập
Hoạt động 30’
HS: Đánh máy tập vào máy
Bài 1. Viết chương trình sử dụng lệnh lặp While… do để tính trung bình n số thực x1, x2, x3, ,
xn Các số n x1, x2, x3, , xn nhập vào
từ bàn phím
Ý tưởng: Sử dụng biến đếm lệnh lặp
While…do để nhập cộng dần số vào biến
kiểu số thực nhập đủ n số
a) Mơ tả thuật tốn chương trình, biến dự định sử dụng kiểu chúng
b) Gõ chương trình sau lưu chương trình với tên Tinh_TB:
(2)tính
GV: Kiểm tra chạy chương trình
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 tìm hiểu ý nghĩa câu lệnh Dịch chương trình sửa lỗi, có Chạy chương trình với liệu gõ từ bàn phím kiểm tra kết nhận
b) Viết lại chương trình cách sử dụng câu lệnh for…do thay cho câu lệnh while…do
c Củng cố, luyện tập 4’
- Hiểu 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
d Hướng dẫn học sinh tự học nhà 1’
- Về nhà xem lại học tiết sau chỳng ta hc tip
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 (TT)
(3)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ả đọc chương trình, tìm hiểu tác dụng kết hợp 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,
3 TIẾN TRÌNH BÀI DẠY.
a Kiểm tra cũ (Kết hợ bài) b Dạy mới
HOẠT ĐỘNG CỦA GV VÀ HS NỘI DUNG KIẾN THỨC
Hoạt động 1: Bài 41’
GV: Đưa tập SGK ? Gọi học sinh nêu ý tưởng - GV hướng dẫn
HS: Làm tập Hoạt động 2:
HS: Là ý 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 số tự nhiên N được nhập vào từ bàn phím có phải số nguyên tố hay không
Ý tưởng: Kiểm tra N có chia hết cho số tự nhiên ≤ i ≤ N hay không Kiểm tra tính chia hết phép chia lấy phần dư (mod)
a) Đọc tìm hiểu ý nghĩa 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')
(4)begin i:=2;
while (n mod i<>0)
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
b) Gõ, dịch chạy thử chương trình với
vài độ xác khác
c Củng cố, luyện tập 3’
- Hiểu 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
d Hướng dẫn học sinh tự học nhà 1’