Showing posts with label arimatika. Show all posts
Showing posts with label arimatika. Show all posts

Thursday, 19 June 2025

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")

        )

    .

Friday, 14 June 2024

Contoh Lain dari contoh percabangan dengan penambahan syarat

 Contoh Lain dari Contoh percabangan dengan penambahan syarat


Gambar Output

/*catatan
 * jika BMI dan Usia>=40 munculkan pesan "Obesitas II" dan "Awas Bahaya"
 * dll
 */


mulai:-
    write("Masukkan Berat Badan: "),read(BB),
    write("Masukkan Tinggi Badan: "),read(TB),
    write("Masukkan Usia: "),read(Usia),
    
    BMI is BB/((TB/100)*(TB/100)),
    
    write("Berat Badan: "),write(BB),nl,
    write("Tinggi Badan: "),write(TB),nl,
    write("Usia: "),write(Usia),nl,
    write("BMI: "),write(BMI),nl,
    (
        BMI>=30,Usia>=40,write("Obesitas II"),write(", Awas Bahaya");
        BMI>=30,Usia<40,write("Obesitas II"),write(", Lakukan Diet!");
        BMI>=25,Usia>=40,write("Obesitas I"),write(", Hati-Hati");
        BMI>=25,Usia<40,write("Obesitas I"),write(", Kurangi Lemak");
        BMI>=23,Usia>=40,write("Berlebih"),write(", Waspada");
        BMI>=23,Usia<40,write("Berlebih"),write(", Banyakin Olah Raga");
        BMI>=18.5,Usia>=40,write("Normal"),write(", Pertahankan");
        BMI>=18.5,Usia<40,write("Normal"),write(", Tetap Imbangi dengan olah raga");
        BMI<18.5,Usia>=40,write("Kurang"),write(", Tingkatkan Nutrisi");
        BMI<18.5,Usia<40,write("Kurang"),write(", Tingkatkan BB Anda");
        mulai
    )
    .