Program test penyakit memakai software strawberry prolog

LISTING

Penyakit(demam).
Penyakit(pilek).
Penyakit(typus).
Penyakit(bisul).
Penyakit(diare).
Penyakit(sariawan).
Penyakit(muntahber).
Penyakit(kesemutan).
Ciri(demam,kedinginan,badan_panas,pusing,lemas,menggigil).
Ciri(pilek,pusing,batuk,meriang,meler,mampet).
Ciri(tyfus,mual,maag,lemas,pusing,panas).
Ciri(bisul,bisul,nanah,sakit,benjolan,bau).
Ciri(diare,diare,mules,berak,lemas,pusing).
Ciri(sariawan,bibir_pecah,panas_dalam,bau_mulut,tenggorokan_sakit,berdarah).
Ciri(muntahber,mules,panas_dingin,muntah,lemas,pusing).
Ciri(kesemutan,pegal,mati_rasa,ngilu,geli,susah_bergerak).
tespenyakit(X,Y,Z,A,B,C):-
Penyakit(X),
Ciri(X,Y,Z,A,B,C).
Ciri(X,Y,Z,A,B,C).
Ciri(X,Y,Z,A,B,C).
Ciri(X,Y,Z,A,B,C).
Ciri(X,Y,Z,A,B,C).
Ciri(X,Y,Z,A,B,C).
Ciri(X,Y,Z,A,B,C).
Ciri(X,Y,Z,A,B,C).
?-
read(M,"Masukan gejala 1: "),
read(N,"Masukan gejala 2: "),
read(O,"Masukan gejala 3: "),
read(P,"Masukan gejala 4: "),
read(Q,"Masukan gejala 5: "),
tespenyakit(X,M,N,O,P,Q),
write(M),nl,
write(N),nl,
write(O),nl,
write(P),nl,
write(Q),nl,
write(X).

OUTPUT PROGRAM SETELAH DICOMPILE TETAPI BELUM DIJALANKAN ATAU DI-RUN


OUTPUT SAAT PROGRAM DIJALANKAN

Dalam praktikum kali ini kita akan membahas mengenai suatu program untuk mengetest nama penyakit berdasarkan ciri-cirinya. Program merupakan program prolog file pada strawberry project, yang mana keluarannya akan tampil dalam window output yang berada disamping kanan (bukan seperti program strawberry project keluaran tampil berupa message box).

Jadi pada saat program dijalankan maka akan tampil jendela message box, pada messege box itu kita harus menginput ciri – ciri atau gejala- gejala penyakit yang akan di test.
Misalnya kita akan menampilkan penyakit demam, maka kita arus menginput gejala-gejala yang ada secara berurutan sesuai dengan apa yang ada pada Listing program.
Untuk penyakit demam gejala-gejalanya sebagai berikut:
- kedinginan
- badan_panas
- pusing
- lemas
- mengigil






Jika semua gejala telah diinput maka output akhirnya adalah seperti gambar dibawah ini



Hal yang perlu diingat dalam membuat program ini ada huruf dan kata. Strawberry prolog merupakan aplikasi yang bersifat case sensitif. Jika kita salah menuliskan nama gejala atau tidak menginput secara urut maka program tersebut akan error.

LOGIKA PROGRAM

#Dibawah ini adalah sript untuk mendeklarasikan nama penyakit.
Penyakit(demam).
Penyakit(pilek).
Penyakit(typus).
Penyakit(bisul).
Penyakit(diare).
Penyakit(sariawan).
Penyakit(muntahber).
Penyakit(kesemutan).
#Dibawah ini adalah sript untuk mendeklarasikan ciri-ciri penyakit tersebut
Ciri(demam,kedinginan,badan_panas,pusing,lemas,menggigil).
Ciri(pilek,pusing,batuk,meriang,meler,mampet).
Ciri(tyfus,mual,maag,lemas,pusing,panas).
Ciri(bisul,bisul,nanah,sakit,benjolan,bau).
Ciri(diare,diare,mules,berak,lemas,pusing).
Ciri(sariawan,bibir_pecah,panas_dalam,bau_mulut,tenggorokan_sakit,berdarah).
Ciri(muntahber,mules,panas_dingin,muntah,lemas,pusing).
Ciri(kesemutan,pegal,mati_rasa,ngilu,geli,susah_bergerak).
#Dalam script dibawah ini menandakan setiap ciri yang akan diinput harus berurutan.
tespenyakit(X,Y,Z,A,B,C):-
Penyakit(X),
Ciri(X,Y,Z,A,B,C).
Ciri(X,Y,Z,A,B,C).
Ciri(X,Y,Z,A,B,C).
Ciri(X,Y,Z,A,B,C).
Ciri(X,Y,Z,A,B,C).
Ciri(X,Y,Z,A,B,C).
Ciri(X,Y,Z,A,B,C).
Ciri(X,Y,Z,A,B,C).
?- #memulai program utama
#script untuk menampilkan menu input gejala pada message box
read(M,"Masukan gejala 1: "),
read(N,"Masukan gejala 2: "),
read(O,"Masukan gejala 3: "),
read(P,"Masukan gejala 4: "),
read(Q,"Masukan gejala 5: "),
#megisi gejala pada messege box
tespenyakit(X,M,N,O,P,Q),
write(M),nl,
write(N),nl,
write(O),nl,
write(P),nl,
write(Q),nl,
write(X).