Dunia [masih] bersinar

Dalam matematika, bilangan prima adalah bilangan asli yang lebih besar dari angka 1, yang faktor pembaginya adalah 1 dan bilangan itu sendiri. 2 dan 3 adalah bilangan prima. 4 bukan bilangan prima karena 4 bisa dibagi 2. Sepuluh bilangan prima yang pertama adalah 2, 3, 5, 7, 11, 13, 17, 19, 23 dan 29.

Jika suatu bilangan yang lebih besar dari satu bukan bilangan prima, maka bilangan itu disebut bilangan komposit. Cara paling sederhana untuk menentukan bilangan prima yang lebih kecil dari bilangan tertentu adalah dengan menggunakan saringan Eratosthenes. [Wikipedia]

Nah, saya akan berikan source code program untuk mencari bilangan prima dari rentang 1...n bilangan bulat. Source code ini saya dapatkan dari sini dan saya konversi menjadi Pascal dengan sedikit perubahan. Berikut ini kodenya:

program bilPrima;

uses crt;

var
    n, i, j, pemicu: integer;

begin
    writeln('Program menentukan bilangan prima');
    write('Masukkan hingga rentang yang diinginkan: ');
    readln(n);

    for i := 1 to n do begin
        pemicu := 0;
        for j := 1 to i do begin
            if (i mod j = 0) then
                pemicu := pemicu + 1;
        end;
        if (pemicu = 2) then
            write(i, ' ');
    end;

    readln;
end.

Saat dijalankan, seperti inilah kira-kira hasilnya:

Program menampilkan bilangan prima dari rentang bilangan bulat 1 s.d. 20