Selasa, 07 Agustus 2012

contoh program mencari bilangan prima di delphi

procedure TForm2.Button1Click(Sender: TObject);
var
  i, j, prima, jml: integer;
begin
  jml := StrToInt(Edit2.Text);
  ListBox1.Items.Clear;
  For i := StrToInt(Edit1.Text) 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;

procedure TForm2.FormCreate(Sender: TObject);
begin
  Edit1.Clear;
  Edit2.Clear;
end;

end.

illank bundrank

Author & Editor

Has laoreet percipitur ad. Vide interesset in mei, no his legimus verterem. Et nostrum imperdiet appellantur usu, mnesarchum referrentur id vim.

1 komentar:

  1. Menangkan Jutaan Rupiah dan Dapatkan Jackpot Hingga Puluhan Juta Dengan Bermain di www(.)SmsQQ(.)com

    Kelebihan dari Agen Judi Online SmsQQ :
    -Situs Aman dan Terpercaya.
    - Minimal Deposit Hanya Rp.10.000
    - Proses Setor Dana & Tarik Dana Akan Diproses Dengan Cepat (Jika Tidak Ada Gangguan).
    - Bonus Turnover 0.3%-0.5% (Disetiap Harinya)
    - Bonus Refferal 20% (Seumur Hidup)
    -Pelayanan Ramah dan Sopan.Customer Service Online 24 Jam.
    - 4 Bank Lokal Tersedia : BCA-MANDIRI-BNI-BRI

    8 Permainan Dalam 1 ID :
    Poker - BandarQ - DominoQQ - Capsa Susun - AduQ - Sakong - Bandar Poker - Bandar66

    Info Lebih Lanjut Hubungi Kami di :
    BBM: 2AD05265
    WA: +855968010699
    Skype: smsqqcom@gmail.com

    BalasHapus