logika program pascal array

_ LOGIKA PROGRAM :

a.     Membuka program pascal

b.     Mengetik coding nya di editor pascal

c.      Dengan mengetik :

Uses crt;

     Untuk memulai program pascal

Var prima : array [1..50] of integer;

     Untuk variabel bilangan prima

I,j,bil : integer;

     I,j adalah variabel bilangan prima

Begin

     Untuk mengawali program

Clrscr;

     Untuk membersihkan layar

For i :=2 to 50 do

     Untuk i 2 to 50

Begin

     Untuk mengawali program

Prima [i]:=i ;

     Bilangan prima

For j := 2 to i-1 do

     Untuk j 2 to i-1

Begin

     Untuk mengawali program

Bil :=(i mod j);

     Bilangan i mod j

If bil =0 then prima [i]:=0

     Jika bilangan 0 bilangan prima i

End;

     Untuk mengakhiri program pertama

If prima [i]<>0 then write (prima [i],’ ‘);

     Jika bilangan prima lebih kecil lebih besar dari 0

End;

Untuk mengakhiri program <>        

Readln;

     Untuk membaca program yang dibuat

End.

     Untuk mengakhiri seluruh program yang telah dibuat

d.     Di running dengan CTRL+F9

Menemukan hasil dari coding di atas

e.      Output nya adalah  2 3 5 7 11 13 17 19 23 29 31 37 41 43 47

Hasil nilai output dari program yang telah dibuat