Percabangan Delphi

1. Buatlah program dengan menggunakan perintah if untuk mencari nilai rata-rata dan grade berdasarkan nilai rata-rata tersebut !

Input
Nilai 1, Nilai 2

Proses
Nilai rata-rata = ( Nilai 1 + Nilai 2 ) /2
Jika nilai rata-rata antara 0 - 59, grade D
Jika nilai rata-rata antara 60 - 69, grade C
Jika nilai rata-rata antara 70 - 79, grade B
selainnya grade A

Output
Nilai rata-rata . . . gradenya . . .
Selanjutnya tanyakan "Mau ulang lagi ?", jika dijawab Y or y program kembali memberikan kesempatan untuk input nilai 1 dan nilai 2, jika dijabab selain itu, program berhenti

Programnya :


Hasil :






2. Buatlah program dengan menggunakan perintah case of untuk mencari nilai rata-rata dan grade berdasarkan nilai rata-rata tersebut !

Input
Nilai 1, Nilai 2

Proses
Nilai rata-rata = ( Nilai 1 + Nilai 2 ) /2
Jika nilai rata-rata antara 0 - 59, grade D
Jika nilai rata-rata antara 60 - 69, grade C
Jika nilai rata-rata antara 70 - 79, grade B
selainnya grade A

Output
Nilai rata-rata . . . gradenya . . .
Selanjutnya tanyakan "Mau ulang lagi ?", jika dijawab Y or y program kembali memberikan kesempatan untuk input nilai 1 dan nilai 2, jika dijabab selain itu, program berhenti

Programnya :


Hasil :
(sama dengan nomer 1)


3. Buatlah program dengan menggunakan perintah if untuk mencari jumlah dibeli dan uang kembali

Input
harga (hrg) = 1500, jumlah uang (ju)

Proses
jika harga lebih kecil dari jumlah uang, cetak "Barang tidak dapat dibeli"
selainnya cetak "Barang dapat dibeli", "Jumlah barang dibeli" dan "Uang kembali (uk)-nya"

Programnya :


Hasil :