MENENTUKAN BILANGAN PRIMA MENGGUNAKAN PASCAL

Hai sobat sobat pengunjung  VR blog.. Kali ini aku mau bagi bagi pengalaman nihh.. Kita akan membahas tentang sintaks Pascal.. Hehehe lagi-lagi pemrograman pascal.. Pemrograman yang akan kita bahas sekarang adalah pemrograman menentukan bilangan prima atau bukan.. Ini dia sintaksnya... Cekidot

Program Menentukan_Bilangan_Prima;
uses crt;
label MULAI;
var bil,s : longint;

BEGIN clrscr;
      writeln('------------------------------');
      WRITELN('-VORZENTRAVALESS.BLOGSPOT.COM-');
      writeln('------------------------------');
      write('Masukan Bilangan [1-2 miliyar] : '); readln(bil);
      if bil<= 1 then
      begin
      write('Bukan Bilangan Prima');
      goto MULAI;
      end;

      s:=2;
      repeat
      if (bil mod s = 0) and (bil<>2) then
      begin
      write('Bukan Bilanagn Prima');
      goto MULAI;
      end;

      s:= s+1;
      until(s>=bil div 2);
      write('Bilangan Prima');
      MULAI:
      readln;
END.

Itulah sintaksnya kawan-kawan sekalian... Semoga bermanfaat.. And.. have a nice day.. Bye