Minggu, 22 Juli 2012

Program Menentukan Bilangan Prima Menggunakan Delphi

Hai Sahabat Blogger Semua. Kali ini, penulis ingin sharing ne gimana cara menentukan bilangan Prima menggunakan Delphi. Sebelumnya kita harus tau dulu pengertian bilangan Prima.
Bilangan Prima adalah bilangan asli yang hanya bisa di bagi dengan 1 dan bilangan itu sendiri.
Contohnya : 2, 3, 5, 7, 11...

Untuk Membuat Program Menentukan Bilangan Prima, maka Langkah-Langkah yang harus dilakukan adalah:


Listing Programnya!!!

procedure TForm1.Button1Click(Sender: TObject);
var a,b : integer;
hasil : String;
begin
a:=StrToInt(Edit1.Text);
if a = 2 then hasil:='Bilangan Prima'
else if a < 2 then hasil:='Bukan Bilangan Prima'
else
begin
for b:=2 to a-1 do
begin
if a mod b = 0 then
begin
hasil:='Bukan Bilangan Prima';
break;
end
else hasil:='Bilangan Prima';
end;
end;
ShowMessage(hasil);
end;
end.

Hasil Running!!!


Terima Kasih Atas Kunjungan Anda ^_^
Lebih dan Kurang Penulis Mohon Maaf
Silahkan Tinggalkan Komentar Anda!!!


Tidak ada komentar:

Poskan Komentar

Labels