English French German Spain Italian Dutch Russian Portuguese Japanese Korean Arabic Chinese Simplified

Minggu, 17 April 2011

Menentukan Bilangan Dengan Delphi 7

Dari postingan sebelumnya, saya telah sedikit menjelaskan tentang Pengenalan Delphi 7. Dan pada saat ini saya mencoba berbagi cara membuat Program "Menentukan Bilangan Ganjil, Bilangan Genap dan Bilangan Prima" dengan menggunakan Pemrograman Delphi 7.
Saya yakin bahwa anda sudah tau apa itu Bilangan Ganjil,Bilangan Genap dan Bilangan Prima.
Bilangan Ganjil adalah Bilangan yang tidak habis dibagi 2 atau sisa hasil baginya adalah 1,
Bilangan Genap adalah kebalikan dari Bilangan Ganjil yaitu Bilangan yang habis dibagi 2, sedangkan
Bilangan Prima adalah Bilangan lebih dari 1 dan hanya habis dibagi 1 dan dirinya sendiri.
Namun sekarang kita akan membahas dengan format yang berbeda, yaitu dengan membuat suatu program yang dapat menampilkan semua Bilangan Ganjil, Bilangan Genap dan Bilangan Prima sesuai yang kita inginkan dengan menggunakan Program Delphi7.
Langsung saja,.,.,.,

1. Menentukan Bilangan Ganjil

Contoh gambar program yang sudah saya buat:

Inti dari kode perintahnya adalah sebagai berikut:

procedure TForm1.Button1Click(Sender: Tobject);
var a,b:integer;
begin
Memo1.Clear;
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
for b:=a to b do
if (b mod 2 <> 0) then
Memo1.Lines.Append(IntToStr(b));
end;

Atau
Download Kode Lengkapnya Disini
Dan
Download Hasil Programnya Disini

2. Menentukan Bilangan Genap

Contoh gambar program yang sudah saya buat:

Inti dari kode perintahnya adalah sebagai berikut:

procedure TForm1.Button1Click(Sender: Tobject);
var a,b:integer;
begin
Memo1.Clear;
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
for b:=a to b do
if (b mod = 0) then
Memo1.Lines.Append(IntToStr(b));
end;

Atau
Download Kode Lengkapnya Disini
Dan
Download Hasil Programnya Disini

3. Menentukan Bilangan Prima

Contoh gambar program yang sudah saya buat:

Inti dari kode perintahnya adalah sebagai berikut:

procedure TForm1.Button1Click(Sender: Tobject);
var a,b:integer;
begin
Memo1.Clear;
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
for b:=a to b do
if (b = 2)or(b=3)or(b=5)or(b=7)or(b>3)and(b mod 2 <> 0)and(b mod 3 <> 0)and(b mod 5 <> 0)and(b mod 7 <> 0) then
Memo1.Lines.Append(IntToStr(b));
end;

Atau
Download Kode Lengkapnya Disini
Dan
Download Hasil Programnya Disini

3 komentar:

Anonim mengatakan...

http://lh3.ggpht.com/_RVpTV2JOOxA/SzuirB6Ds2I/AAAAAAAABeM/WKrYNRurRYs/s128/t4belajarblogger43.gif
http://lh3.ggpht.com/_RVpTV2JOOxA/Szuiq50sC8I/AAAAAAAABeE/anUz0mmKHuU/s128/t4belajarblogger41.gif

Anonim mengatakan...

:58

Anonim mengatakan...

:31
:47

:10 :11 :12 :13
:14 :15 :16 :17
:18 :19 :20 :21
:22 :23 :24 :25
:26 :27 :28 :29
:30 :31 :32 :33
:34 :35 :36 :37
:38 :39 :40 :41
:42 :43 :44 :45
:46 :47 :48 :49
:50 :51 :52 :53
:54 :55 :56 :57
:58 :59 :60
:61 :62 :63

Posting Komentar

Mars Master © 2008. Design by :Yanku Templates Sponsored by: Tutorial87 Commentcute