Tin học Pascal số nguyên tố

[Minh Tín]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Viết chương trình Pascal xác định các số nguyên tố trong phạm vi từ 1 đến n, với n là 1 số cho trước.

 

[Trâm Nguyễn Thị Ngọc]

Viết chương trình Pascal xác định các số nguyên tố trong phạm vi từ 1 đến n, với n là 1 số cho trước.

Var
  i,n,j:integer;kt:boolean;
Begin
  Readln(n);
  For i:=2 to n do
      Begin
           kt:=true;
           For j:=2 to i-1 do
                 If i mod j=0 then kt:=false;
           If kt=true then write(i,'  ');
       end;
   readln
End.

 

[Hải Ham Học]

Var
  i,n,j:integer;kt:boolean;
Begin
  Readln(n);
  For i:=2 to n do
      Begin
           kt:=true;
           For j:=2 to i-1 do
                 If i mod j=0 then kt:=false;
           If kt=true then write(i,'  ');
       end;
   readln
End.

for j:=2 to trunc(sqrt(i-1)) do
=> sẽ tiết kiệm settime hơn

 

[02-07-2019.]

Viết chương trình Pascal xác định các số nguyên tố trong phạm vi từ 1 đến n, với n là 1 số cho trước.

Function ktnt(x:int64):boolean;
var i:int64;
Begin
    If x<2 then exit(false);
    If (x=2) or (x=3) then exit(true);
    If (x mod 2 =0) or (x mod 3=0) then exit(false);
    i:=5;
    While i<=trunc(sqrt(x)) do
    If (x mod i=0) or (x mod i+2=0) then exit(false)
    Else                            inc(i,6);
    Exit(true);
End;
var n,i:longint;
Begin
         Assign(input,'ngthgilinh.inp');reset(input);
         Assign(output,'ngthgilinh.out');rewrite(output);
            Read(n);
              For i:=1 to n do
                 If ktnt(i) then write(i,' ');
End.

Cách khác nè! Bổ sung hàm nguyên tố luôn!

 

[Hải Ham Học]

Function ktnt(x:int64):boolean;
var i:int64;
Begin
    If x<2 then exit(false);
    If (x=2) or (x=3) then exit(true);
    If (x mod 2 =0) or (x mod 3=0) then exit(false);
    i:=5;
    While i<=trunc(sqrt(x)) do
    If (x mod i=0) or (x mod i+2=0) then exit(false)
    Else                            inc(i,6);
    Exit(true);
End;
var n,i:longint;
Begin
         Assign(input,'ngthgilinh.inp');reset(input);
         Assign(output,'ngthgilinh.out');rewrite(output);
            Read(n);
              For i:=1 to n do
                 If ktnt(i) then write(i,' ');
End.

Cách khác nè! Bổ sung hàm nguyên tố luôn!

:>> cái này đi thi hsg thì bưng ra được chứ, học căn bản thì cái trên vừa sức rồi