Contoh Percabangan Menghitung Grade Nilai dengan Prolog

hitung:-

    write("UAS: "),read(Uas),

    write("UTS: "),read(Uts),

    write("Tugas: "),read(Tugas),

    write("Presensi: "),read(Presensi),

    Nilai is ((Uas*40)+(Uts*30)+(Tugas*20)+(Presensi*10))/100,

    write(Nilai),nl,

    (   Nilai >= 80,write("Grade A");

            Nilai >= 65,write("Grade B");

        Nilai >= 55,write("Grade C");

        Nilai >= 40,write("Grade D");

        write("Grade E")

        )

    .