Program Pascal Untuk Menampilkan Bilangan Prima Dengan Array dan Record

Program Pascal Untuk Menampilkan Bilangan Prima Dengan Array dan Record - Sebelumnya saya sudah pernah membuat program pascal untuk menampilkan bilangan prima ke - n , sekarang saya akan menunjukan salah satu contoh program pascal untuk menampilkan bilangan prima dengan menggunakan array dan juga record. untuk lebih jelasnya langsung saja ke programnya :

program test;
uses crt;

type
nilai = record
      prim : integer;
end;

var
sis : array[1..100] of nilai;
i,j,n : integer;
bil,ang : integer;

begin
clrscr;

readln(n);
for i := 1 to n do
    begin
    sis[i].prim:=i;
    For j:= 2 to i-1 Do
        Begin
        bil := (i mod j);
            If bil = 0 then
               sis[i].prim:=0;
            End;

            If sis[i].prim <> 0 Then
               write(sis[i].prim);
            End;
Readln;
End.

Coba anda jalankan maka hasilnya akan terlihat pada gambar di atas tadi.

Baca juga : Program Record Dengan Pascal

Program Pascal Untuk Menampilkan Bilangan Prima Dengan Array dan Record anda sekarang sudah selesai, baca juga tutorial program pascal lainnya.