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 1Giáo án tin
GV: Tr !"#$ PTDT ' trú Ngân *+
Ngày -. Ngày $0$
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
2 Kỹ năng
Rèn
3 Thái độ: Nghiêm túc
II CHUẨN BỊ
1 Giáo viên: giáo án, máy
2 Học sinh: D E F@ sách, 9G/
III - PHƯƠNG PHÁP
- trình, $0$ $0@ 9I ?/
IV - TIẾN TRÌNH LÊN LỚP
1 - ỔN ĐỊNH (1’)
2 - KIỂM TRA BÀI CŨ (3’)
- Hãy cho
3 - BÀI MỚI (38’)
HOẠT ĐỘNG CỦA
GV: M"3 ra bài N 2 SGK
?
- GV
HS: Làm bài N
Bài 2 Tìm A "+$ trình N ; ' -: S
nhiên N ?"B N vào T bàn phím có 0 là -:
nguyên : hay không
Ý tưởng: DA tra "B N có chia cho các -:
S nhiên 2 W i W N hay không DA tra tính chia
;X$ phép chia I 5" (mod)
a)
trong "+$ trình sau ?)
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')
Lop8.net
Trang 2Giáo án tin
GV: Tr !"#$ PTDT ' trú Ngân *+
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.
b) Gõ,
?' chính xác khác nhau
4 - CỦNG CỐ (3’)
-
- b -4 56$ câu 7 while do
5 - HƯỚNG DẪN VỀ NHÀ (2’)
- 1L nhà hoàn thành các bài N trong SGK, sau là bài N/
IV RÚT KINH NGHIỆM :
………
………
………
**********
Lop8.net
... Gõ,?'' xác khác
4 - CỦNG CỐ (3’)
-
- b -4 56$ câu 7 while
5 - HƯỚNG DẪN VỀ NHÀ (2’)
- 1L nhà hoàn thành N SGK, sau N/...
so nguyen to'')
Lop8.net
Trang 2Giáo án tin
GV: Tr !"#$... "B N có chia cho -:
S nhiên W i W N hay không DA tra tính chia
;X$ phép chia