Program Sederhana Grade Nilai dengan Delphi 7

1. Buka Aplikasi Delphi anda, tampilan awal akan muncul form 1

2. Isi dengan label untuk memberikan keterangan pada langkah langkahnya, pilih menu label pada icon " A" , kemudian sesuaikan dengan kebutuhan anda

3. Kemudian Buatlah tempat untuk penginputan data dengan memilih menu edit.text pada icon, seperti berikut 

untuk membuat kolom inputan

4. kemudian buatlah button untuk memproses program tersebut dengan memilih menu button click

button.click

5. Kemudian klik 2x pada button click tersebut untuk mengisi script. isi script seperti contoh dibawah ini 

procedure TForm1.Button1Click(Sender: TObject);

Var

  N1, N2, N3, NA : real;

begin

  N1 := strtofloat(edit1.Text);

  N2 := strtofloat(edit2.Text);

  N3 := strtofloat(edit3.Text);

  NA := (N1+N2+N3)/3;

  edit4.Text := floattostr(NA);

  if (NA >= 90) AND (NA <= 100) then

  edit5.Text := 'A'

  else if (NA >= 75) AND (NA <= 89) then

  edit5.Text := 'B'

  else

  edit5.Text := 'C';

end;

6. Setelah itu coba jalankan program tersebut dengan menekan F9,

Program sederhana penentuan grade nilai anda telah selesai.