Chương trình con kiểm tra 1 số có là số nguyên tố hay không

[fantasysl06]

procedure KT(x:integer);
var d,i:integer;
begin
d:=0;
for i:=2 to x-1 do
if x mod i=0 then d:=d+1;
if d=0 then write(x,'la so nguyen to') else write(x,'k la so nguyen to');
end;

bạn nên cho chạy đến trunc(sqrt(x)) để ct chạy nhanh hơn [IMG]data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAABAQMAAAA l21bKAAAAA1BMVEXh5PJm+yKVAAAAAXRSTlMAQObYZgAAAApJR EFUCNdjYAAAAAIAAeIhvDMAAAAASUVORK5CYII=[/IMG]

[hongson1992]

Bạn Việt Đức ơi, bạn tính sử dụng thủ tục theo kiểu true false à? (d=0,d=1)[IMG]data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAABAQMAAAA l21bKAAAAA1BMVEXh5PJm+yKVAAAAAXRSTlMAQObYZgAAAApJR EFUCNdjYAAAAAIAAeIhvDMAAAAASUVORK5CYII=[/IMG] Nếu vậy bạn nên để biến d thành biến boolean để thể hiển rõ chương trình hơn, dùng function nhé, ví dụ:
function test(x:integer):boolean;
var i:integer;
begin
i:=2;
while x mod i<>do inc(i);
if i=x then test:=true else test:=false;
end;
Có lẽ như vậy sẽ dễ hiểu hơn bạn ạ!:botay:
Thân.

[muabanxe]

binhnguyen đọc code k hỉu ùi . d là biến đếm ước của n ( k tính 1 và chính nó ). Nếu d=0 thì n là số nguyên số ngược lại

[sudo]

Giải bài tập pascal

Các bạn hãy viết các cách để kiểm tra 1 số có là số nguyên tố hay không (dùng chương trình con.
Trong nhiều sách mình thấy dùng hàm sau nhưng mình chạy với số 1 thì in ra là số nguyên tố. Các bạn đọc và cho ý kiến nhé
Function ngto(N:integer):Boolean;
Var i:integer;
Begin
ngto:=false;
For i:=2 to trunc(sqrt(N)) do
if N mod i = 0 then exit;
ngto:=true;
End;

các bác ơi giải hộ em bài này với: Viết chương trình pascal Tính tổng các số nguyên tố từ 1 đến 3000 dùng chương trình con mai e phải nộp rùi mong các bác nhanh hộ em

[htkkplus]

Var i,S:Integer;
Function sont(x:integer):boolean;
Begin
sont:=(x>1);
For i:=2 to trunc(sqrt(x)) do 
    if x mod i=0 then
     Begin
        sont:=false;
        break;
    End;
End;
BEGIN
S:=0;
For i:=1 to 3000 do 
  if sont(i)=True then S:=S+i;
write('tong la:',S);
Readln
END.