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.
3 komentar:
http://www.gudangmateri.com/2008/05/penjelasan-alat-kelamin-jantan.html
aan tu ndi
Thanks udah berbagi,
bisa gak buat code untuk PL/SQL?
ada tugas neh...
Posting Komentar