Giáo án Tin học 8 - Tiết 44, 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 - Phạm Tuấn Anh

Dạy lớp: 8A; 8B; 8E. Ngày soạn: 30/01/2010. 
Tiết PPCT: 44. Ngày dạy: 03/02/2010.
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. Chuẩn bị của GV: - Giáo án, SGK, phòng máy, phần mềm pascal
2. Chuẩn bị của HS: - SGK, vở ghi, bút
III. Tiến trỡnh lờn lớp:
HOẠT ĐỘNG CỦA THẦY VÀ TRề
NỘI DUNG KIẾN THỨC
Hoạt động 1: Bài 2
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.
III. Củng cố, hướng dẫn học ở nhà:
- 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
3. Hướng dẫn học ở nhà
- Về nhà xem lại bài học tiết sau chỳng ta chữa bài tập.