Sabtu, 31 Maret 2012

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.... ^_^

Follow by Email

Daftar Kunjungan

sejak tanggal 11 agustus 2010

Date

dot_exe

Promosi dikit neh... ^_^

Jika anda ingin meningkatkan kinerja perusahaan atu tempat anda bekerja, saya penulis dapat memenuhi kebutuhan anda . baik atas nama kelompok (CV) atau perorangan:
penulis menyediakan softaware-software seperti:
1. Dinas pemerintahan / Swasta
2. Percetakan
3. Toko / swalayan
4. Dinas pendidikan
5. dll

software dapat berbentuk desktop atau model jaringan (client server).
Selain itu menerima pemesanan pembuatan Website baik yang pribadi maupun perusahaan.

bagi yang berminat dapat mengirim e-mail ke alamat dotexe.chili@gmail.com

Popular Posts

Daftar Komentar

temen-temenku