Berikut adalah algoritma, sintak serta flowchart untuk mencari bilangan prima dengan menggunakan program Turbo Pascal:
Algoritma (pseudocode)
1.Start
2.a,b,c,n : integer
3.Input n
4.For a←1 to n
do
5.c ←0
6.For b ←1 to a do
7.If a mod b ←0 then c ←c+1
8.End if
9.If c ←2 then write
(a,’ ‘)
10.End if
11.End
script
Uses crt;
Var
a,b,c,n : integer;
BEGIN
Clrscr;
Writeln(‘Masukkan Nilai :’);readln(n);
For a:=1 to n
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 write (a,’ ‘);
end;
Readln;
End.
Flowchart
Semoga bermanfaat
0 komentar:
Posting Komentar