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.. 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.[r]
Trang 1Trường THCS Sơn Tiến Giáo viên: Phạm Tuấn Anh.
Giáo án tin học lớp 8.
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)
a) Đọ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 i<>0) 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.
Lop8.net
Trang 2Trường THCS Sơn Tiến Giáo viên: Phạm Tuấn Anh.
Giáo án tin học lớp 8.
b) 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
Lop8.net