Thuật toán pascal về số nguyên tố!

[aukey2006vn]

với học sinh lớp 8 mà làm như mấy bạn sau thì học sinh càng rối thêm, còn bài đầu tiên của bạn chưa chính xác một số chỗ cần sửa lại. để hoàn chỉnh có thể làm như sau:
<Code>
program snt;
var so, d, i : integer;
begin
d:=0;
write(' Nhap so='); readln(so);
if (so=2) or (so=3) then writeln('So vua nhap la SNT!')
else if (so>3) then
begin
for i:=2 to so div 2 do
if so mod i=0 then inc(d);
if d=0 then writeln('So vua nhap la SNT!')
else writeln('So vua nhap khong la SNT!');
end
else writeln('So vua nhap khong la SNT!');
readln;
end.
</code>

[hoangphong1996]

xin chào các anh các chị
em năm nay học lớp 10 và đang học pascal để thi....
thuật toán: em nghĩ bài này nên cho i chạy từ 1 tới n, nếu n mod i = 0 thì gán so:= so + 1
nếu so=2 thì số đó là số nguyên tố
code:
var N, so, i: integer;
begin
so:= 0;
write('nhap so N: '); readln(N);
for i:= 1 to n do if (n mod i = 0) then so:= so + 1;
if so = 2 then writeln(n,' la so nguyen to')
else writeln(n,' khong phai la so nguyen to');
readln
end.

[auauau97]

xin chào các anh các chị
em năm nay học lớp 10 và đang học pascal để thi....
thuật toán: em nghĩ bài này nên cho i chạy từ 1 tới n, nếu n mod i = 0 thì gán so:= so + 1
nếu so=2 thì số đó là số nguyên tố
code:
var N, so, i: integer;
begin
so:= 0;
write('nhap so N: '); readln(N);
for i:= 1 to n do if (n mod i = 0) then so:= so + 1;
if so = 2 then writeln(n,' la so nguyen to')
else writeln(n,' khong phai la so nguyen to');
readln
end.

cho i chạy từ 1 tới n thì mệt quá, bạn có thể cho chạy từ 2 tới căn n là ổn rồi:
for i:=2 to round(sqrt(n)) do là được

[haplinhavxt]

Vậy nếu n<= 10^18 thì bạn sẽ chạy như thế nào?

[ThangA3]

Vậy nếu n<= 10^18 thì bạn sẽ chạy như thế nào?

TH này có lẽ phải xài cái này.
1 số là sô nguyên tố THÌ số đó mod 6 = 1 or = 5, điều ngược lại thỳ ko xảy ra.
kiểu dữ liệu thì chắc chắn là extended rùi.

[HGMinh95]

TH này có lẽ phải xài cái này.
1 số là sô nguyên tố THÌ số đó mod 6 = 1 or = 5, điều ngược lại thỳ ko xảy ra.
kiểu dữ liệu thì chắc chắn là extended rùi.

2 mod 6 = 2 mà????????

[ThangA3]

2 mod 6 = 2 mà????????

sorry, mình bị thiếu:
a nguyên tố, a>3 => a mod 6 = 1 or 5.
VD:
5 mod 6 =5;
7 mod 6 =1;
11 mod 6 = 5;
19 mod 6 = 1;
29 mod 6 = 5 v.v.v..... và nhìu nữa ( trừ 2 và 3 thôi )

[haplinhavxt]

25 thì sao bạn! 1 số nguyên tố => có dạng 6*k+ 1 hoặc 6* k- 1! Đây là => chứ ko phải là <=>! Ví

[ThangA3]

25 thì sao bạn! 1 số nguyên tố => có dạng 6*k+ 1 hoặc 6* k- 1! Đây là => chứ ko phải là <=>! Ví

Ừ thì sao ???????? có gì sai đâu

[haplinhavxt]

Vậy cho bạn số có 9999...7 (16 số 9) bạn định kiểm tra số này ntn?? (Kiểu dữ liệu chỉ là qword, real cũng được nhưng sài số thực làm gì cho mệt người =))))