Sebuah program yang berfungsi untuk menganalisa sebuah penyakit ,untuk menganalisa penyakit tersebut maka di butuhkan ciri-ciri dari penyakit tersebut.berikut ini macam-macam penyakit yang akan kita analisa:
penyakit(demam).
penyakit(flu).
penyakit(kanker).
penyakit(jantung).
penyakit(amnesia).
Penyakit yang akan dijadikan hasil analisis adalah demam, flu, kanker, jantung dan amnesia. Semua statement di atas haruslah kita akhiri dengan tanda titik (.) sebagai tanda berakhirnya statement tersebut.
Lalu kita buat cirri-ciri dari penyakit tersebut,ini memudahkan kita untuk menganalisa penyakit tersebut.agar tidak ada kerancuan atau keraguan saat menganalisa.berikut ciri” dari penyakit tersebut:
ciri(demam,pusing,malas,meriang,menggigil).
ciri(flu,ingusan,pusing,pilek,mata_sakit).
ciri(kanker,gada_duit,banyak_pikiran,ngopi_terus,cepat_tua).
ciri(jantung,rambut_ubanan,muka_menua,jidat_lebar,kelamin_ganda.
ciri(amnesia,pikun,kurang_rokok,galau,pmdk).
Lalu setelah kita buat cirri-ciri dari penyakit yang akan kita analisa,setelah itu kita buat sintaks:
tespenyakit(X,Y,Z,A,B):-penyakit(X),ciri(X,Y,Z,A,B),ciri(X,Y,Z,A,B),ciri(X,Y,Z,A,B),ciri(X,Y,Z,A,B),ciri(X,Y,Z,A,B).
?-
Pada syntax diatas, terdapat 5 buah tanda kurung yang didalamnya masing-masing terdapat huruf capital X,Y,A,B,C. 5 buah tanda kurung merupakan pengidentifikasian dari 5 jenis penyakit yang telah diberikan diatas. Variabel ‘Y,Z,A,B,C’ merupakan inisialisasi dari 5 gejala penyakit yang diinputkan user, sedangkan variable ‘X’ merupakan inisialisasi penyakit dari gejala-gejala yang telah diinputkan tadi. Jadi, variable ‘X’ mencocokkan 5 gejala yang sama dengan inisialisasi sebelumnya, apabila tidak sama maka jenis penyakitnya tidak akan tampil.
Lalu untuk kita memberikan jawaban terhadap cirri-ciri dari penyakit tersebut maka kita buat sintaks:
read(M,"Masukkan gejala 1 : "),
read(N,"Masukkan gejala 2 : "),
read(O,"Masukkan gejala 3 : "),
read(P,"Masukkan gejala 4 : "),
read(Q,"Masukkan gejala 5 : "),
tespenyakit(X,M,N,O,P,Q),
Read disini adalah sebagai pembaca dan menampilakn form untuk menjawab gejala-gejala pada penyakit.
LISTING PROGRAM
penyakit(demam).
penyakit(flu).
penyakit(kanker).
penyakit(jantung).
penyakit(amnesia).
ciri(demam,pusing,malas,meriang,menggigil).
ciri(flu,ingusan,pusing,pilek,mata_sakit).
ciri(kanker,gada_duit,banyak_pikiran,ngopi_terus,cepat_tua).
ciri(jantung,rambut_ubanan,muka_menua,jidat_lebar,kelamin_ganda.
ciri(amnesia,pikun,kurang_rokok,galau,pmdk).
tespenyakit(X,Y,Z,A,B):-penyakit(X),ciri(X,Y,Z,A,B),ciri(X,Y,Z,A,B),ciri(X,Y,Z,A,B),ciri(X,Y,Z,A,B),ciri(X,Y,Z,A,B).
?-
read(M,"Masukkan gejala 1 : "),
read(N,"Masukkan gejala 2 : "),
read(O,"Masukkan gejala 3 : "),
read(P,"Masukkan gejala 4 : "),
read(Q,"Masukkan gejala 5 : "),
tespenyakit(X,M,N,O,P,Q),
write("Gejala Penyakit : "),nl,
write("1. "),
write(M),nl,
write("2. "),
write(N),nl,
write("3. "),
write(O),nl,
write("4. "),
write(P),nl,
write("5. "),
write(Q),nl,
write("Berdasarkan hasil analisa, penyakit Anda adalah "),
write(X),nl..
Selamat Mencoba
Tidak ada komentar:
Posting Komentar