Tuesday, 30 October 2012

Menentukan bilangan Genap dan Ganjil dengan Delphi

Menentukan bilangan  genap dan ganjil


emhh langsung saja..
Dalam program ini kita membagi inputan bilangan menjadi 2 dengan perintah :

if a mod 2 = 0

nah perintah mod  disini yaitu membagi bilangan.
langsung desain form nya saja.

Desain form :




selanjutnya rubah properties :



setelah dirubah propertiesnya :


nahh langsung aja kode program nya :)

untuk button 1 (keluar) :

procedure TForm1.Button1Click(Sender: TObject);
begin
close;
end;

untuk button 2 (proses) :


procedure TForm1.Button2Click(Sender: TObject);
var a : integer;
begin
a := strtoint(edit1.Text);

if a mod 2 =0 then
    begin
      label4.Caption:= 'Bilangan Anda Genap';
      end
     else
     label4.Caption:= 'Bilangan Anda Ganjil';
  end;

untuk button 3 (ulang) :

procedure TForm1.Button3Click(Sender: TObject);
begin
edit1.clear;
label4.Caption:='Hasil';
end;

nahh itu td programnya kalo anda ingin yg udah jadi download disini ....


No comments:

Post a Comment