Contoh Percabangan menentukan Nilai Genap dan ganjil pada Delphi

untuk code pembuatan aplikasi ini, pada onclick button, sebagai berikut :

procedure TForm1.Button1Click(Sender: TObject);
var
 angka:integer;
begin
 angka:=strtoint(edAngka.Text);
 if angka mod 2 = 0 then
    edhasil.Text:='genap'
 else
    edhasil.Text:='ganjil';
end;

ScreenShoot program :



bagi yang mau download, silahkan klik disini.