MEMBUAT BILANGAN PRIMA DENGAN PASCAL

Hai Sobat-sobat pengunjung VR blog.. Pada kesempatan ini aku mau mempubliskan tentang sintaks pemrograman pada Pascal untuk membuat deret bilangan prima... Ini dia sintaksnya.. Kita langsung ke TKP..

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.. And.. Good Luck bro..