Contoh program :
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | Program Mencari_Bilangan_Prima_Dengan_Array; Uses Crt; Var Prima : Array[1..100] of Integer; i,j : Integer; bil : Integer; Begin ClrScr; For i := 2 to 100 Do Begin Prima[i]:=i; For j:= 2 to i-1 Do Begin bil := (i mod j); {* i dibagi j dicek apakah 0*} If bil = 0 then Prima[i]:=0; {*jika habis dibagi,berarti bkn prima*} End; If Prima[i] <> 0 Then Write(Prima[i],' '); {*cetak array yg prima*} End; Readln; End. sumber nusinau.com |
Tidak ada komentar:
Posting Komentar