Jawaban:

Berikut adalah program untuk menampilkan bilangan prima dari 1 sampai 20 menggunakan bahasa pemrograman Free Pascal:

Penjelasan:

program Prima;

var

i, j: integer;

prima: boolean;

begin

writeln('Bilangan Prima 1 sampai 20:');

for i := 2 to 20 do

begin

prima := true;

for j := 2 to trunc(sqrt(i)) do

begin

if i mod j = 0 then

begin

prima := false;

break;

end;

end;

if prima then

write(i, ' ');

end;

readln;

end.

Menampilkan Bilangan Prima (Displaying Prime Numbers)

Mentoljiwaraya87 Mentol87

buatlah program untuk tampilkan bilangan prima 1 sampai 20buatlah program untuk tampilkan bilangan prima 1 sampai 20

menggunakan free pascal

Berikut adalah program untuk menampilkan bilangan prima dari 1 sampai 20 menggunakan bahasa pemrograman Free Pascal:

yang di bawah sama kaya yang di atas

program Prima;

var

i, j: integer;

prima: boolean;

begin

writeln('Bilangan Prima 1 sampai 20:');

for i := 2 to 20 do

begin

prima := true;

for j := 2 to trunc(sqrt(i)) do

begin

if i mod j = 0 then

begin

prima := false;

break;

end;

end;

if prima then

write(i, ' ');

end;

readln;

end.

Penjelasan program di atas:

Variabel i digunakan untuk looping dari 2 hingga 20, karena 1 bukan bilangan prima.

Variabel j digunakan untuk mencari faktor dari bilangan i.

Variabel prima awalnya di-set sebagai true. Jika dalam looping ditemukan suatu faktor dari i, maka prima di-set sebagai false dan looping di-break.

Setelah selesai mencari faktor dari i, jika prima masih true, maka i adalah bilangan prima dan akan ditampilkan.

Output dari program di atas adalah:

Bilangan Prima 1 sampai 20:

2 3 5 7 11 13 17 19