Saindra Santyadiputra

SOURCE


Program mengecek_suatu_bilangan_adalah_bilangan_prima;
uses wincrt;
var bil,i,x : integer;
prima : boolean;
batas : integer;
ulang : char;

begin
repeat
clrscr;
write('Masukkan bilangan : ');{input bilangan yg akan dicek}
read(bil);
{inisialisasi awal}
batas := round(sqrt(bil))+1;
prima := true;
if (bil=2) or (bil=3) then {jika bilangan 2 dan 3 maka prima}
prima := true
else{jika bukan 2 dan 3 maka}
for i:=2 to batas do{dari i:=2 to batas}
if bil mod i = 0 then{jika bilangan dibagi i = 0 maka bukan prima}
prima := false;
if prima = true then
writeln(bil,' Adalah prima')
else
writeln(bil,' Bukan prima');
writeln;
write('Ulang lagi [Y/T] : ');ulang:=upcase(readkey);
writeln(ulang);
until ulang <> 'Y';{akan terus mengulang jika di inputkan [y,Y]}
end.



Output