Menentukan Bilangan Ganjil dan Genap Di delphi 7

Ini adalah toturial bagi yang baru mempelajari pemrograman delphi. Toturial ini merupakan toturial sederhana yang saya buat karena saya baru di dlam dunia delphi.. :)

Ok langsung saja.Bilangan Ganjil adalah bilangan yang sisa pembaginya <> (tidak sama) dengan 0 sedangkan Bilangan genap sebaliknya. Jika di implementasikan ke dalam program akan seperti gambar di samping : 

Terdapat 6 label, 4 edit.text dan 1 button. Langkah - langkah yang harus dilakukan yaitu :

• Jalankan Delphi (recomended delphi 7)  ,
• Desain program seperti diatas, boleh dibedakan tapi sesuaikan jumlah dan jenis objek.
• Klik button Cek dan ikuti listing program di bawah ini :

 //Buat variabel x,y, dan i tipe integer. 
 var x:Integer;
 var y:Integer;
 var i:Integer;

//lakukan loop untuk melooping bilangan awal sampai bilangan akhir
//dan lakukan if jika bilangan termasuk bil.Ganjil dan Bil. Genap
for  i:=x to y do
begin
     if i mod 2 = 1 then
      BilGanjil.Text := BilGanjil.Text + IntToStr(i)+','


  else
     BilGenap.Text := BilGenap.Text + IntToStr(i)+',';

end;

•  Listing lengkap program seperti di bawah ini :

procedure TForm2.Button1Click(Sender: TObject);
     var x:Integer;
     var y:Integer;
     var i:Integer;
begin
x:=StrToInt(EditBilAwal.Text);
y:=StrToInt(EditBilAkhir.Text);

for  i:=x to y do
begin
     if i mod 2 = 1 then
      BilGanjil.Text := BilGanjil.Text + IntToStr(i)+','


  else
     BilGenap.Text := BilGenap.Text + IntToStr(i)+',';

end;
end;

end.

Gax mau bersusah payah silakan download disini Full Program

Teriama kasih atas kunjungannya ..sukses selalu

Categories: Delphi 7