Giáo án Tin học Lớp 8 - Tiết 52: Bài thực hành 6: Sử dụng lệnh lặp While...do (Tiết 2) - Năm học 2009-2010 - Trần Hữu Quyết

Ngày soạn: ......................................... 	 	Ngày giảng: ........................................
Tiết 52
Bài thực hành 6:	Sử dụng lệnh lặp while...do (t2)
I - MỤC TIÊU
1. 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.
2. 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. 
3. Thái độ: Nghiêm túc
II. CHUẨN BỊ
1. Giáo viên: giáo án, máy chiếu
2. Học sinh: Kiến thức cũ, sách, vở.
III - PHƯƠNG PHÁP
- Thuyết trình, giảng giải, vấn đáp.
IV - TIẾN TRÌNH LÊN LỚP
1 - ỔN ĐỊNH (1’)
2 - KIỂM TRA BÀI CŨ (3’)
- Hãy cho một số ví dụ về lặp với số lần chưa biết trước.
3 - BÀI MỚI (38’)
HOẠT ĐỘNG CỦA THẦY VÀ TRÒ
NỘI DUNG KIẾN THỨC
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
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.
	4 - CỦNG CỐ (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
5 - HƯỚNG DẪN VỀ NHÀ (2’)
- Về nhà hoàn thành các bài tập trong SGK, tiết sau là tiết bài tập.
IV. RÚT KINH NGHIỆM :
*****™&™*****