1. Kiểm diện:
8A: 8 C: 8 B: 8D: 2. Kiểm tra bài cũ:
Câu 1: Viết CT tìm USCLN của 2 số nguyên a,b nhập vào từ bàn fím? Câu 2:Một số nh thế nào gọi là nào là số nguyên tố ?
3. Bài mới:
Hoạt động thầy - Trò Nội dung bài học
GV: Một số nh thế nào gọi là nào là số nguyên tố?
HS: chỉ có Ư là 1 và chính nó GV: Vậy nếu ta bỏ Ư1 vàƯ N thì số N không chia hết cho số nào cả
GV: HS suy nghĩ tìm thuật toán.
HS: Thảo luận và trình bày ý tởng
GV: Nhận xét và hớng dẫn Nếu n không chia hết cho tất cả các số từ 2 đến n-1 thì số đó là số nguyên tố còn lại là hợp số HS viết chơng trình GV: biến i có thể chạy từ 2 đến số nào HS: ????????
1. Nhập vào số tự nhiên N kiểm viết chơng trình kiểm tra xem n có phải số nguyêntố hay không?
program TimsoNT; USES CRT;
Var n,i: integer; KT: boolean; BEGIN CLRSCR;
Write(‘Nhap vao so nguyen dơng n =’); Readln(n); KT:=True;
for i:=2 to n-1 do
if n mod i=0 then KT:=False;
If kt then Writeln(n,‘ la so nguyen to ’) Else
Writeln(n,‘La hop so ’); Readln;
GV: n div 2
tốt hơn là Trunc(sqrt(n))
program TimsoNT; USES CRT;
Var n,i: integer; KT: boolean; BEGIN CLRSCR;
Write(‘Nhap vao so nguyen dơng n =’); Readln(n); KT:=True;
for i:=2 to Trunc(sqrt(n)) do if n mod i=0 then KT:=False;
If kt then Writeln(n,‘ la so nguyen to ’) Else
Writeln(n,‘La hop so ’); Readln;
END.
4, Củng cố:
GV: Những chú ý khi viết chơng trình. - Hệ thống lại bài học
5, H ớng dẫn về nhà:
- Viết chơng trình và chạy thử trên máy?
- Nhập vào số tự nhiên N kiểm viết chơng trình kiểm tra xem n có phải số chính phơng hay không?