var a : Integer; ket : String; begin a := StrToInt(edit1.Text); if (a mod 0) then if (a>=0) then ket : ‘Genap Positif’; else ket : ‘Genap negatif’; else if (a<=0) then ket : ‘Ganjil Negatif’; else ket : ‘Ganjil Positif’; edit2.Text := ket; end; end.
Archive for May, 2008
TUGAS SBD 2
Posted in Uncategorized on May 27, 2008 | Leave a Comment »
