Eko Nopyanto

domains
nama=symbol
datatree=tree(nama,datatree,datatree,datatree,datatree,datatree);kosong

predicates
cetak_data(datatree)

clauses
cetak_data(kosong).
cetak_data(tree(U,V,W,X,Y,Z)):- write(U),nl,cetak_data(V),cetak_data(W),cetak_data(X),cetak_data(Y),cetak_data(Z).

Program dalam bahasa prolog untuk memasukkan dan menampilkan elemen list. Elemen list tersebut adalah nilai keanggotaan dari fungsi linear seperti pada gambar :

Kriteria Penilaian :
klausa : MURAH, SEDANG, dan TINGGI.
klausa input_list
klausa : tampil_elemen_list
domain dan predikat

Jawab :

domains
x=integer L=integer*

predicates
input_List(L)
tampil_elemen_list(L)
MURAH(X)
SEDANG(X)
TINGGI(X)
mulai

clauses

input_List([]):-!.
input_List([K|E]):-nl, write(K," "), input_List(E).

tampil_elemen_list([],0):-!.
tampil_elemen_list()

MURAH(X):-X>=0,X<=68,Z=1;X>68,X<=86, Z=(85-X)/(85-68);X>85,Z=0.
SEDANG(W):-W>=0,W<=77,A=(W-0)/(77-0);W>77,A=1.
MAHAL(Y):-X>=68,X<85,B=(Y-68)/(85-68);Y=85,Z=1;Y>85,Y<=100, B=(100-X)/(100-85);X>85;Y<68,B=0;Y>100,B=0.