Sabtu, 31 Maret 2012

Cetak Bilangan Prima

Ass.wr.wb...
halo temen2 bloger, sorry baru nongol neh...mau posting baru neh, karen ada pertanyaan dari seorang temen bloger yang minta cetak bilang prima, oleh karena itu ta kasi ini :Berikut formnya



prinsip untuk menentukan bliulang prima yaitu dimana bilangannya yang hanya bisa di bagi 2 kali yaitu bilangan 1 dan bilangan dirinya sendiri jdi logika nya itu bagaimana menentukan bilangan bilangan habis di bagi dan pembaginya hanya 2 kali

berikut perintah nya :

procedure TForm1.Button1Click(Sender: TObject);
var
i,j,prima,jml:integer;
begin
jml:=StrToInt(Edit1.Text);
ListBox1.Clear;
For i:=1 to jml do
Begin
j:=0;
For prima:=1 to i do
Begin
If i mod prima = 0 Then
j:=j+1
End;
If j=2 then
ListBox1.Items.Add(IntToStr(i));
End;
end;


dimana penggunaan MOD berfungsi untuk sisa bagi, sehingga mencari angka yang habis jika dibagi dengan bilangan dalan pengulangan yang kita buat.

0 komentar:

Posting Komentar

makasih sudah mampir.... ^_^

 
Powered by dot_exe.production