Berbagi dan Belajar

Untuk Menentukan bilangan ganjil dan Genap pada Delphi

 yang perlu disiapkan :
     1. Tedit
     2. Tbutton
     3. Tlabel
Cara nya :
     Pilih Tbuton lalu events lalu klin 2 kali pada onklick.
    kemudian copikan kode dibawah ini

procedure TForm1.Button1Click(Sender: TObject);

var
angka:integer;
begin
angka:=strtoint(edit1.text);
if (angka mod 2)=0 then
begin
showmessage('bilangan genap');
edit1.Text:=inttostr(angka)+' GENAP';
end
else
begin
showmessage('bilangan ganjil');
edit1.Text:=inttostr(angka)+' GANJIL';
end;
end;

Coba Saja Sobat....