Cara Membuat Program Array Untuk Menentukan Bil.Prima

Pada Hari minggu Ku turut Ayah ke Kota...
SeLamat TAHUN BARU 2012 yaa, uda telat tapi ga papa lah Dari pada nganggur,...nHa???

Pada Hari ini i'm Mao berbagi2 Rejeki, eh mao Berbagi2 iLMU aja deh...haha33x
im mo Share cara Membuat Program untuk menentukan bilangan PRIMA dengan menggunakan "ARRAY" pada penggunaan Pascal.

Langsng AJa i'm Praktekin,..
Oiiyaa Kalo lom punya PASCAL nya download aja nih.. Free PASCAL, OKAY

program Array_PRIMA;
uses wincrt;

var
prim: array[1..100] of integer;
x,y,bil: integer;
begin
clrscr;
for x:= 2 to 100 do
begin
prim[x]:=x;
for y:=2 to x-1 do
begin
bil:= x mod y;
if bil= 0 then
prim[x]:=0;
end;
if prim[x] <> 0 then
write(prim[x],' ');
end;

end.

Lihat juga: Perkembangan Terbaru Bitcoin di Digital currency exchange listing 

Dan Setelah di RUN hasilnya seperti ini ,
















SELAMAT MENCOBA
''SEMOGA BERMANFAAT'' Amin