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

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