Selamat Datang di infoproindo.blogspot.com, disi saya akan membagi informasi sedikit tentang MEMBUAT BILANGAN PRIMA DENGAN PASCAL, mungkin sudah banyak sehabat-sehabat bloger yang ahli dalam pemrograman pascal, tpi di sini saya juga turut ikut serta memberikan informasi kepada teman-teman yang mungkin membutuhkannya... agar tidak lama lagi, langsung aja saya kasi tau caranya yaaa?????
Program bil_prima;
uses crt;
var
a,b,c,x : integer;
BEGIN
clrscr;
writeln('-------------------------------');
writeln('-VORZENT RAVALESS.BLOGSPOT.COM-');
writeln('-------------------------------');
write('Masukan Bilangan Prima sampai : '); readln(x);
for a:= 1 to x do
Begin;
c:=0;
for b:=1 to a do
Begin;
if a mod b=0 then
c:=c+1;
end;
if c=2 then
begin;
write(a,' ');
write('');
end;
end;
readln;
END.
END.
Ini dia skrin sot hasilnya..
Semoga bermanfaat ya kawan.....!!!
Contoh program pascal lainnya :
Program bil_prima;
uses crt;
var
a,b,c,x : integer;
BEGIN
clrscr;
writeln('-------------------------------');
writeln('-VORZENT RAVALESS.BLOGSPOT.COM-');
writeln('-------------------------------');
write('Masukan Bilangan Prima sampai : '); readln(x);
for a:= 1 to x do
Begin;
c:=0;
for b:=1 to a do
Begin;
if a mod b=0 then
c:=c+1;
end;
if c=2 then
begin;
write(a,' ');
write('');
end;
end;
readln;
END.
END.
Ini dia skrin sot hasilnya..
Semoga bermanfaat ya kawan.....!!!
Contoh program pascal lainnya :
+ komentar + 1 comment
makasih ya kodingannya.
Terimakasih girl edelwaise atas Komentarnya di MEMBUAT BILANGAN PRIMA DENGAN PASCALPosting Komentar