Contoh Program sederhana Menggunakan If then Else Pada Delphi

 Codding

procedure TForm1.Button1Click(Sender: TObject);

var

uts:integer;

uas:integer;

nilai:real;

grade:string;

begin

uts:=StrToInt(edit2.Text);

uas:=StrToInt(edit3.Text);

nilai:=(uts+uas)/2;

edit4.Text:=FloatToStr(nilai);

begin

if nilai>=90 then begin

showMessage('SELAMAT ANDA MENDAPATKAN GRADE A');

Edit2.SetFocus;

end;

if (nilai>=70) and (nilai<=80)then begin

showMessage('SELAMAT ANDA MENDAPATKAN GRADE B');

Edit2.SetFocus;

end

else

if nilai<=60 then begin

showMessage('MAAF ANDA TIDAK LULUS GRADE ANDA C');

Edit3.SetFocus;

end;

edit5.Text:=grade;

end;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Application.Terminate;

end;

end.

LA, Novrianto Ramadhan 11 Oktober 2011