Flowcart, Pseucode, dan Program Pascal Bilangan Prima

 

pseucode :

Deskripsi

bil_awal,bil_akhir,b,c : integer;

Deklarasi

write(‘bilangan prima dari : ‘ );

write(‘bilangan prima sampai : ‘);

for bil_awal:=bil_awal to bil_akhir 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;
write(‘ ‘);

writeln(bil_awal);

readln

end.

program pascal bilangan prima

uses crt;
var
a,b,c:integer;

begin
clrscr;
write(‘Bilangan Prima Batas Bawah =’);readln(a);
write(‘Bilangan Prima Batas Atas =’);readln(b);

for a:=a to b 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;
writeln(a);
end;
end;
readln;
end.