Contoh program membuat bilangan prima dengan pascal

Contoh program membuat bilangan prima dengan pascal

  05:40    Unknown

---

CONTOH PROGRAM MEMBUAT BILANGAN PRIMA DENGAN PASCAL

Demikian codingnya :

            Uses crt;

            Var

                        a,b,c,x : integer;

            begin

                        clrscr;

                        writeln(‘Masukkan bilangan prima sampai :’);readln(x);

                        writeln(‘======================== :’);

                        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;

                                    if c=2 then

                                    begin

                                    write(a,’,’);

                                    end;

                                    end;

                                    readln;

                        end.

Demikianlah hasil daripada coding diatas :

Semoga apa yang saya ini bermamfaat bagi saudara sekalian, kami sangat bersyukur jika saudara hendaknya meninggalkan pesan di blog kami…….

Terima kasih.