In dãy số nguyên tố

In dãy số nguyên tố từ 1 tới 500.

Program tim_so_nguyen;
Uses crt ;
Const n = 500;
Var i,k,j:integer;
    kt:boolean;
Begin
   clrscr;
   Write(2:4,3:4);
   For j:=4 to n do
     Begin
        i:=2;
        while (j mod i)<>0 do i:=i+1;
        if i=j then write(j:4);
      End; {for}
 Readln;
End.

Số nguyên tố

Để xác định một số có phải là nguyên tố không ta tiến hành chia thử cho 2,3,4,5,6… vòng lặp while khi số cần kiểm tra(j) chia không hết cho số thử (i) thì tiến hành chia cho số tiếp theo i tăng lên 1. Vòng lặp sẽ kết thúc khi j chia hết cho 1 số nào đó. Hoặc i sẽ tăng từ từ cho tới khi bằng j, lúc này vòng lặp sẽ thoát và nếu i tăng tới j thì j là số nguyên tố.

Lấy ví dụ số 7 ta sẽ phải chia cho 2, 3, 4, 5, 6, 7

Ví dụ số 9 ta chia 2, 3 là kết thúc vì 9 chia hết cho 3.

Ta có thể rút ngắn số lần lặp bằng cách giới hạn giá trị của i, một số chỉ có thể chia hết cho số nhỏ hơn hoặc bằng căn bậc hai SQRT của nó. Ví dụ 16 chỉ có thể chia hết tới 4 thôi, lớn hơn 4 thì chắc chắn là không chia hết. Ý tưởng là như vậy, các bạn tự hoàn chỉnh bài in dãy số nguyên tố nhé.

Ngoài ra khi học tới hàm rồi thì nên viết một hàm để kiểm tra số nguyên tố ví dụ:

Function KiemTra(n:integer):boolean ;