Showing posts with label percabangan. Show all posts
Showing posts with label percabangan. 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
    )
    .

Tuesday, 11 June 2024

Contoh percabangan dengan penambahan syarat

 

Ini adalah  Contoh percabangan dengan penambahan syarat

Seseorang dinyatakan lulus jika:

  1. Nilai bagus dan Tinggi Badan terpenuhi,
  2. Nilai bagus dan Tinggi Badan gagal,

Seseorang dinyatakan TDK lulus jika:

  1. Nilai gagal dan Tinggi Badan terpenuhi,
  2. Nilai gagal dan Tinggi Badan gagal, 

/*programs lulus
 * UTS:30
 * UAS:30
 * TUGAS:20
 * PRESENSI:20
 * Rerata>=80 dan Tinggi Badan >= 160
 *
 */

mulai:-
    nl,
    write("*************************************"),nl,
    write("Program Perhitungan Grade"),nl,
    write("*************************************"),nl,
    write("Input UTS Kamu: "),read(UTS),
    write("Input UAS Kamu: "),read(UAS),
    write("Input TUGAS Kamu: "),read(TuG),
    write("Input Presensi Kamu: "),read(Pre),
    write("Input Tinggi Badan: "),read(TB),
    Rerata is ((UTS*30) + (UAS*30) + (TuG*20) + (Pre*20))/100,
    write("Nilai UTS Kamu: "),write(UTS),nl,
    write("Nilai UAS Kamu: "),write(UAS),nl,
    write("Nilai TUGAS Kamu: "),write(TuG),nl,
    write("Nilai Presensi Kamu: "),write(Pre),nl,
    write("*************************************"),nl,
    write("Nilai Rerata Kamu: "),write(Rerata),nl,
    write("Input Tinggi Badan: "),write(TB),nl,
    (
        (   Rerata >=80,TB>=160), write("LULUS");
        (   Rerata <80,TB<160), write("TIDAK LULUS");
        (   Rerata >=80,TB<160), write("LULUS");
        (   Rerata <80,TB>=160), write("TIDAK LULUS")
    
    ).

Thursday, 6 June 2024

2 Contoh percabangan dalam Pemrograman Prolog

 Ini adalah 2 Contoh percabangan dalam Pemrograman Prolog


1. Program Menghitung Volume Balok:

go:- 

    write("Menghitung Volume Balok"),nl,

    write("Masukkan Panjang Balok: "),read(P),

    write("Masukkan Lebar Balok: "),read(L),

    write("Masukkan Tinggi Balok: "),read(T),

    Vol is P*L*T,

    write("Volume Balok: "),write(Vol).

2. Program Menghitung Volume Kerucut:

go:- 

    write("Menghitung Volume Kerucut"),nl,

    write("Masukkan Jari-jari: "),read(J),

    write("Masukkan Tinggi Kerucut: "),read(T),

    Vol is J^2*3.14*T/3,

    write("Volume Kerucut: "),write(Vol).

3. Program Percabangan 1:

go:-

    write("=============================="),nl,

    write("Ini Menu dalam program Kami: "),nl,

    write("=============================="),nl,

    write("1.Menghitung Volume Balok"),nl,

    write("2.Menghitung Volume Kerucut"),nl,

    write("Masukkan no Pilihan anda [1-2]: "),nl,

    read(X),nl,

    (   X=1,

        write("Menghitung Volume Balok"),nl,

        write("Masukkan Panjang Balok: "),read(P),

        write("Masukkan Lebar Balok: "),read(L),

        write("Masukkan Tinggi Balok: "),read(T),

        Vol is P*L*T,

        write("Volume Balok: "),write(Vol),nl,

        go;

    

        X=2,

        write("Menghitung Volume Kerucut"),nl,

        write("Masukkan Jari-jari: "),read(J),

        write("Masukkan Tinggi Kerucut: "),read(T),

        Vol is J^2*3.14*T/3,

        write("Volume Kerucut: "),write(Vol);

    

        write("No tidak tersedia!"),nl,

        go

    ).

4. Program Percabangan 2:

%Rerata= ((UTS*30) + (UAS*40) + (Tugas*20) + (Presensi*10))/100


n:- nl,

    write("*****************************"),nl,

    write("Mencari Grade Nilai"),nl,

    write("*****************************"),nl,

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

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

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

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

    Rerata is ((UTS*30) + (UAS*40) + (Tugas*20) + (Pre*10))/100,

    write("Nilai UTS Kamu: "),write(UTS),nl,

    write("Nilai UAS Kamu: "),write(UAS),nl,

    write("Nilai Tugas Kamu: "),write(Tugas),nl,

    write("Nilai Presensi Kamu: "),write(Pre),nl,

    write("Nilai Rerata Kamu: "),write(Rerata),nl,

    (

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

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

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

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

    write("Nilai Grade Kamu E"),n

    ).