Contoh program percabangan

Ini adalah program untuk menampilkan data nilai yang biasanya di gunakan dalam pemberian nilai saat kita menerima hasil dari ujian, dan akan tampil kalimat penyemangat atau bahkan akan menjatuhkan anda, tergantung si pembuat program  Contoh : ketika kita memasukkan data nama : Mr.XXX nilai : 100 keterangan : Pintar Tampilan program :
Komponen/Objek yang digunakan dan pengaturan propertiesnya adalah : List perintah program : procedure TForm1.SpeedButton1Click(Sender: TObject); var n : double; begin n := StrToFloat(edNilai.Text); if n >= 90 then edKet.Text := 'Sangat Baik' else if (n >= 70) and (n <= 89) then edKet.Text := 'Baik' else if (n >= 50) and (n <= 69) then edKet.Text := 'Cukup' else if (n >= 30) and (n <= 49) then edKet.Text := 'Kurang' else if (n < 30) then edKet.Text := 'Mengecewakan' end; procedure TForm1.SpeedButton2Click(Sender: TObject); begin edNama.Clear; edNilai.Clear; edKet.Clear; end; procedure TForm1.SpeedButton3Click(Sender: TObject); begin Close; end; Program ini saya pelajari saat menempuh materi kuliah antar muka di semester 4 jurusan teknik elektro universitas negeri malang. Yang di bimbing oleh bapak Ilham Ari Elbaith Zaeni Karena ilmu yang kita sampaikan tidak akan pernah hilang :)