Mlente Banget

Posts Tagged ‘pascal bilangan prima


Silahkan copy paste untuk teman-teman sekampus atau siapapun yang membutuhkan listing program pascal untuk mencari bilangan prima seperti dibawah ini :

uses wincrt;
var a,b,c,d,e:longint;
begin clrscr;
write(‘Input Bilangan Prima Sampai Nilai : ‘); readln(c);
writeln(‘2’:7);
for a:=3 to c do
begin
for b:= 2 to a-1 do
begin
if a mod b = 0 then begin
d:=a ; end else begin e:=a; end;end;
if a=d then
begin
b:= a-1;
end else
writeln(e:7);
end;
end.

Advertisements

About Me

Unknown unordinary creature
 






October 2017
M T W T F S S
« Sep    
 1
2345678
9101112131415
16171819202122
23242526272829
3031  

Blog Stats

  • 132,544 hits

Your Information

Tracker