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.
