Pages

Membedakan Angka Ganjil dan Genap Delphi7

Senin, 31 Maret 2014
Kali ini saya akan membuat program membedakan Angka Ganjil dan Genap
dan tanpa banyak bicara saya akan langsung postingkan kodingnya...
Taaaa Daaaaaa....!!!
hasilnya akan seperti dibawah ini., sederhana memang... tapii buat pelajar delphi7...
dapat memberikan pelajaran tambahan...
Asseeekkkkk












Ini koding sobat...
.langsung saJa ea... selamat mencoba!

procedure TForm1.Button1Click(Sender: TObject);
var a : integer;
begin
a := strtoint(edit1.Text);
if a mod 2 =0 then
    begin
      label1.Caption:= 'Bilangan Genap';
      end
     else
     label1.Caption:= 'Bilangan Ganjil';
     Edit1.SetFocus;
  end;
end.

Tidak ada komentar:

Posting Komentar

perhatian!
tolong komentarnya berhubungan dengan artikel yang ada.
komentar yang mengarah ke tindakan spam
akan dihapus atau terjaring secara otomatis oleh spam filter