Program periksa hasil ujian dengan delphi 7 (penerapan Algoritma IF ELSE)

1.     Desain Form

Label1 untuk (Periksa Hasil ujian)

Label2 untuk(masukkan nilai)

Label3 untuk (Hasil)

Edit1 untuk(menginput nilai yang dimiliki)

Edit2 untuk(Hasil dari Nilai yang diinput Lulus/Tidak lulus)

Button1 untuk (periksa)

2.     Masukan kode programnya kedalam Button1 “Periksa”, caranya klik dua kali pada button1 maka akan muncul form untuk kode program. Berikut Algortimanya :

procedure TForm1.Button1Click(Sender: TObject);

Var nilai:integer;

    hasil:string;

begin

  nilai:=strtoint(edit1.Text);

  if nilai<60 then

    hasil:='Tidak lulus'

  else

    Hasil:='Lulus';

  edit2.Text:=hasil;

end;

3.     Lalu Compile program atau dengan menggunakan tombo F9, maka program akan tampil seperti ini