Program mendiagnosa penyakit (artificial intelligence)
Download as DOCX, PDF0 likes60 views
Program ini digunakan untuk mendiagnosa penyakit THT berdasarkan gejala-gejala yang dirasakan pasien. Program akan menanyakan gejala-gejala tertentu dan mendiagnosa penyakit berdasarkan kombinasi gejala yang dirasakan pasien. Diagnosa yang diberikan antara lain tonsilitis, sinusitis, faringitis, dan berbagai jenis kanker di kepala dan leher.
![makewindow(1,29,30," DIAGNOSA PENYAKIT THT ",0,0,18,80),
go,
removewindow.
clauses
go:-
go_once,nl,nl,nl,nl,nl,
write("Ingin mengulang lagi [y/t] ? "),
readchar(Jawab),nl,
clearwindow,
Jawab = 'y',
go.
go_once:-
diagnosa(_),!,
save("test.dat"),
clear_fakta2.
go_once:-
write("Maaf penyakit tidak dapat didiagnosa "),nl,
clear_fakta2.
mengalami(_,Gejala):-
dbmengalami(Gejala),!.
mengalami(Query, Gejala):-
not(dbtakmengalami(Gejala)),
tanya(Query, Gejala, Jawab),
Jawab = 'y'.
takmengalami(_,Gejala):-
dbtakmengalami(Gejala),!.
takmengalami(Query, Gejala):-](https://image.slidesharecdn.com/programmendiagnosapenyakit-200325233741/85/Program-mendiagnosa-penyakit-artificial-intelligence-2-320.jpg)
![dbmengalami(Gejala),!.
gejala(Gejala):-
dbtakmengalami(Gejala),!, fail.
/****/
gejala(demam):-
mengalami("Apakah anda demam [y/t] ?",demam).
/**2*/
gejala(sakit_kepala):-
mengalami("Apakah anda merasa sakit kepala [y/t] ?", sakit_kepala).
/**3*/
gejala(nyeri_bicara_menelan):-
mengalami("Apakah anda merasa nyeri saat bicara atau menelan [y/t] ?",nyeri_bicara_me
nelan).
/**4*/
gejala(batuk):-
mengalami("Apakah anda batuk [y/t] ?",batuk).
/**5*/
gejala(hidung_tersumbat):-
mengalami("Apakah hidung anda tersumbat [y/t] ?",hidung_tersumbat).
/**6*/
gejala(nyeri_telinga):-
mengalami("Apakah telinga anda terasa nyeri [y/t] ?",nyeri_telinga).
/**7*/
gejala(nyeri_tenggorokan):-
mengalami("Aapakah tenggorokan anda terasa nyeri [y/t] ?",nyeri_tenggorokan).](https://image.slidesharecdn.com/programmendiagnosapenyakit-200325233741/85/Program-mendiagnosa-penyakit-artificial-intelligence-4-320.jpg)
![/**8*/
gejala(hidung_meler):-
mengalami("Apakah hindung anda mengeluarkan ingus [y/t] ?",hidung_meler).
/**9*/
gejala(letih_lesu):-
mengalami("Aapakah anda merasa letih dan lesu [y/t] ?",letih_lesu).
/**0*/
gejala(mual_muntah):-
mengalami("Apakah anda merasa mual atau muntah [y/t] ?",mual_muntah).
/****/
gejala(selaput_lendir_merah):-
mengalami("Apakah selaput lendir anda merah [y/t] ?",selaput_lendir_merah).
/**2*/
gejala(benjolan_leher):-
mengalami("Apakah pada leher anda terdapat benjoan [y/t] ?",benjolan_leher).
/**3*/
gejala(nyeri_leher):-
mengalami("Apakah terasa nyeri pada leher anda [y/t] ?",nyeri_leher).
/**4*/
gejala(getah_bening):-
mengalami("Apakah anda mengalami pembengkakan getah bening [y/t] ?",getah_bening)
.
/**5*/
gejala(pendarahan_hidung):-
mengalami("Apakah hidung anda mengalami pendarahan [y/t] ?",pendarahan_hidung).
/**6*/](https://image.slidesharecdn.com/programmendiagnosapenyakit-200325233741/85/Program-mendiagnosa-penyakit-artificial-intelligence-5-320.jpg)
![gejala(suara_serak):-
mengalami("Apakah suara anda terasa serak [y/t] ?",suara_serak).
/**7*/
gejala(bolamata_bergerak):-
mengalami("Apakah bola mata anda bergerak tanpa sadar [y/t] ?",bolamata_bergerak).
/**8*/
gejala(dahi_sakit):-
mengalami("Apakah dahi anda terasa sakit [y/t] ?",dahi_sakit).
/**9*/
gejala(leher_bengkak):-
mengalami("Apakah leher anda bengkak [y/t] ?",leher_bengkak).
/*20*/
gejala(tuli):-
mengalami("Apakah ada gejala tuli [y/t] ?",tuli).
/*2**/
gejala(tumbuh_dimulut):-
mengalami("Apakah ada yang tumbuh di mulut anda [y/t] ?",tumbuh_dimulut).
/*22*/
gejala(airliur_menetes):-
mengalami("Apakah air liur anda sering menetes [y/t] ?",airliur_menetes).
/*23*/
gejala(beratbadan_menurun):-
mengalami("Apakah berat badan anda menurun [y/t] ?",beratbadan_menurun).
/*24*/
gejala(nafas_abnormal):-
mengalami("Apakah bunyi nafas anda tidak normal [y/t] ?",nafas_abnormal).](https://image.slidesharecdn.com/programmendiagnosapenyakit-200325233741/85/Program-mendiagnosa-penyakit-artificial-intelligence-6-320.jpg)
![/*25*/
gejala(infeksi_sinus):-
mengalami("Apakah anda mengalami infeksi sinus [y/t] ?",infeksi_sinus).
/*26*/
gejala(nyeri_antara_mata):-
mengalami("Apakah anda merasa nyeri antara dua mata anda [y/t] ?",nyeri_antara_mata).
/*27*/
gejala(nyeri_pinggir_hidung):-
mengalami("Apakah anda merasa nyeri pada pinggir hidung [y/t]?",nyeri_pinggir_hidung
).
/*28*/
gejala(nyeri_pipi):-
mengalami("Apakah anda merasa nyeri pada pipi [y/t] ?",nyeri_pipi).
/*29*/
gejala(nyeri_wajah):-
mengalami("Apakah anda mengalami nyeri di wajah [y/t] ?",nyeri_wajah).
/*30*/
gejala(perubahan_kulit):-
mengalami("Apakah kulit anda mengalami perubahan [y/t] ?",perubahan_kulit).
/*3**/
gejala(perubahan_suara):-
mengalami("Apakah anda mengalami perubahan suara [y/t] ?",perubahan_suara).
/*32*/
gejala(radang_gendang_telinga):-
mengalami("Apakah anda mengalami radang gendang telinga [y/t]?",radang_gendang_tel
inga).](https://image.slidesharecdn.com/programmendiagnosapenyakit-200325233741/85/Program-mendiagnosa-penyakit-artificial-intelligence-7-320.jpg)
![/*33*/
gejala(sakit_gigi):-
mengalami("Apakah anda merasa sakit gigi [y/t] ?",sakit_gigi).
/*34*/
gejala(serangan_vertigo):-
mengalami("Apakah anda mengalami serangan vertigo [y/t] ?",serangan_vertigo).
/*35*/
gejala(telinga_berdering):-
mengalami("Apakah telinga anda berdenging [y/t] ?",telinga_berdenging).
/*36*/
gejala(telinga_penuh):-
mengalami("Apakah telinga anda terasa penuh [y/t] ?",telinga_penuh).
/*37*/
gejala(tenggorokan_gatal):-
mengalami("Apakah tenggorokan anda terasa gatal [y/t] ?",tenggorokan_gatal).
/*38*/
gejala(tubuh_tak_seimbang):-
mengalami("Apakah tubuh anda terasa tak seimbang [y/t] ?",tubuh_tak_seimbang).
/*----------------------------------DIAGNOSA------------------------------------*/
/****/
diagnosa ("Tonisitis"):-](https://image.slidesharecdn.com/programmendiagnosapenyakit-200325233741/85/Program-mendiagnosa-penyakit-artificial-intelligence-8-320.jpg)
Program mendiagnosa penyakit (artificial intelligence)
- 1. Program mendiagnosapenyakit /* ==============================================================*/ /* PROGRAM MENDIAGNOSA PENYAKIT */ /*==============================================================*/ domains penyakit = string gejala = symbol query = string jawab = char database dbmengalami(gejala) dbtakmengalami(gejala) predicates penyebab(penyakit) go mengalami(query, gejala) takmengalami(query, gejala) gejala(gejala) clear_fakta2 simpan(gejala,jawab) tanya(query, gejala, jawab) go_once diagnosa(penyakit) solusi(penyakit) goal clearwindow,
- 2. makewindow(1,29,30," DIAGNOSA PENYAKIT THT ",0,0,18,80), go, removewindow. clauses go:- go_once,nl,nl,nl,nl,nl, write("Ingin mengulang lagi [y/t] ? "), readchar(Jawab),nl, clearwindow, Jawab = 'y', go. go_once:- diagnosa(_),!, save("test.dat"), clear_fakta2. go_once:- write("Maaf penyakit tidak dapat didiagnosa "),nl, clear_fakta2. mengalami(_,Gejala):- dbmengalami(Gejala),!. mengalami(Query, Gejala):- not(dbtakmengalami(Gejala)), tanya(Query, Gejala, Jawab), Jawab = 'y'. takmengalami(_,Gejala):- dbtakmengalami(Gejala),!. takmengalami(Query, Gejala):-
- 3. not(dbmengalami(Gejala)), tanya(Query, Gejala, Jawab), Jawab = 't'. tanya (Query, Gejala, Jawab):- write (Query), readchar (Jawab), write (Jawab), nl, simpan (Gejala, Jawab). simpan(Gejala, 'y'):- asserta(dbmengalami(Gejala)). simpan(Gejala, 't'):- asserta(dbtakmengalami(Gejala)). clear_fakta2:- retract(dbmengalami(_)), fail. clear_fakta2:- retract(dbtakmengalami(_)), fail. clear_fakta2. /* -------------------------GEJALA-------------------------*/ gejala(Gejala):-
- 4. dbmengalami(Gejala),!. gejala(Gejala):- dbtakmengalami(Gejala),!, fail. /****/ gejala(demam):- mengalami("Apakah anda demam [y/t] ?",demam). /**2*/ gejala(sakit_kepala):- mengalami("Apakah anda merasa sakit kepala [y/t] ?", sakit_kepala). /**3*/ gejala(nyeri_bicara_menelan):- mengalami("Apakah anda merasa nyeri saat bicara atau menelan [y/t] ?",nyeri_bicara_me nelan). /**4*/ gejala(batuk):- mengalami("Apakah anda batuk [y/t] ?",batuk). /**5*/ gejala(hidung_tersumbat):- mengalami("Apakah hidung anda tersumbat [y/t] ?",hidung_tersumbat). /**6*/ gejala(nyeri_telinga):- mengalami("Apakah telinga anda terasa nyeri [y/t] ?",nyeri_telinga). /**7*/ gejala(nyeri_tenggorokan):- mengalami("Aapakah tenggorokan anda terasa nyeri [y/t] ?",nyeri_tenggorokan).
- 5. /**8*/ gejala(hidung_meler):- mengalami("Apakah hindung anda mengeluarkan ingus [y/t] ?",hidung_meler). /**9*/ gejala(letih_lesu):- mengalami("Aapakah anda merasa letih dan lesu [y/t] ?",letih_lesu). /**0*/ gejala(mual_muntah):- mengalami("Apakah anda merasa mual atau muntah [y/t] ?",mual_muntah). /****/ gejala(selaput_lendir_merah):- mengalami("Apakah selaput lendir anda merah [y/t] ?",selaput_lendir_merah). /**2*/ gejala(benjolan_leher):- mengalami("Apakah pada leher anda terdapat benjoan [y/t] ?",benjolan_leher). /**3*/ gejala(nyeri_leher):- mengalami("Apakah terasa nyeri pada leher anda [y/t] ?",nyeri_leher). /**4*/ gejala(getah_bening):- mengalami("Apakah anda mengalami pembengkakan getah bening [y/t] ?",getah_bening) . /**5*/ gejala(pendarahan_hidung):- mengalami("Apakah hidung anda mengalami pendarahan [y/t] ?",pendarahan_hidung). /**6*/
- 6. gejala(suara_serak):- mengalami("Apakah suara anda terasa serak [y/t] ?",suara_serak). /**7*/ gejala(bolamata_bergerak):- mengalami("Apakah bola mata anda bergerak tanpa sadar [y/t] ?",bolamata_bergerak). /**8*/ gejala(dahi_sakit):- mengalami("Apakah dahi anda terasa sakit [y/t] ?",dahi_sakit). /**9*/ gejala(leher_bengkak):- mengalami("Apakah leher anda bengkak [y/t] ?",leher_bengkak). /*20*/ gejala(tuli):- mengalami("Apakah ada gejala tuli [y/t] ?",tuli). /*2**/ gejala(tumbuh_dimulut):- mengalami("Apakah ada yang tumbuh di mulut anda [y/t] ?",tumbuh_dimulut). /*22*/ gejala(airliur_menetes):- mengalami("Apakah air liur anda sering menetes [y/t] ?",airliur_menetes). /*23*/ gejala(beratbadan_menurun):- mengalami("Apakah berat badan anda menurun [y/t] ?",beratbadan_menurun). /*24*/ gejala(nafas_abnormal):- mengalami("Apakah bunyi nafas anda tidak normal [y/t] ?",nafas_abnormal).
- 7. /*25*/ gejala(infeksi_sinus):- mengalami("Apakah anda mengalami infeksi sinus [y/t] ?",infeksi_sinus). /*26*/ gejala(nyeri_antara_mata):- mengalami("Apakah anda merasa nyeri antara dua mata anda [y/t] ?",nyeri_antara_mata). /*27*/ gejala(nyeri_pinggir_hidung):- mengalami("Apakah anda merasa nyeri pada pinggir hidung [y/t]?",nyeri_pinggir_hidung ). /*28*/ gejala(nyeri_pipi):- mengalami("Apakah anda merasa nyeri pada pipi [y/t] ?",nyeri_pipi). /*29*/ gejala(nyeri_wajah):- mengalami("Apakah anda mengalami nyeri di wajah [y/t] ?",nyeri_wajah). /*30*/ gejala(perubahan_kulit):- mengalami("Apakah kulit anda mengalami perubahan [y/t] ?",perubahan_kulit). /*3**/ gejala(perubahan_suara):- mengalami("Apakah anda mengalami perubahan suara [y/t] ?",perubahan_suara). /*32*/ gejala(radang_gendang_telinga):- mengalami("Apakah anda mengalami radang gendang telinga [y/t]?",radang_gendang_tel inga).
- 8. /*33*/ gejala(sakit_gigi):- mengalami("Apakah anda merasa sakit gigi [y/t] ?",sakit_gigi). /*34*/ gejala(serangan_vertigo):- mengalami("Apakah anda mengalami serangan vertigo [y/t] ?",serangan_vertigo). /*35*/ gejala(telinga_berdering):- mengalami("Apakah telinga anda berdenging [y/t] ?",telinga_berdenging). /*36*/ gejala(telinga_penuh):- mengalami("Apakah telinga anda terasa penuh [y/t] ?",telinga_penuh). /*37*/ gejala(tenggorokan_gatal):- mengalami("Apakah tenggorokan anda terasa gatal [y/t] ?",tenggorokan_gatal). /*38*/ gejala(tubuh_tak_seimbang):- mengalami("Apakah tubuh anda terasa tak seimbang [y/t] ?",tubuh_tak_seimbang). /*----------------------------------DIAGNOSA------------------------------------*/ /****/ diagnosa ("Tonisitis"):-
- 9. gejala(demam), gejala(sakit_kepala), gejala(nyeri_bicara_menelan), gejala(batuk), gejala(nyeri_tenggorokan), gejala(selaput_lendir_merah), penyebab("Tonisitis"). /**2*/ diagnosa ("Sinusitis Maksilaris"):- gejala(demam), gejala(sakit_kepala), gejala(batuk), gejala(hidung_tersumbat), gejala(hidung_meler), gejala(letih_lesu), gejala(benjolan_dileher), penyebab("Sinusitis Maksilaris"). /**3*/ diagnosa ("Sinusitis Frontalis"):- gejala(demam), gejala(sakit_kepala), gejala(batuk), gejala(hidung_tersumbat), gejala(hidung_meler), gejala(letih_lesu), gejala(benjolan_dileher), penyebab("Sinusitis Frontalis"). /**4*/ diagnosa ("Sinusitis Edmodalis"):- gejala(demam), gejala(sakit_kepala),
- 10. gejala(batuk), gejala(hidung_tersumbat), gejala(hidung_meler), gejala(letih_lesu), gejala(benjolan_dileher), gejala(bolamata_bergerak), penyebab("Sinusitis Edmodalis"). /**5*/ diagnosa ("Sinusitis Stenoidalis"):- gejala(demam), gejala(sakit_kepala), gejala(batuk), gejala(hidung_tersumbat), gejala(hidung_meler), gejala(letih_lesu), gejala(benjolan_dileher), gejala(nyeri_leher), penyebab("Sinusitis Stenoidalis"). /**6*/ diagnosa ("Abses Peritanesiler"):- gejala(demam), gejala(sakit_kepala), gejala(nyeri_tenggorokan), gejala(getah_bening), gejala(suara_serak), penyebab("Abses Peritonesiler"). /**7*/ diagnosa("Faringitis"):- gejala(demam), gejala(nyeri_bicara_menelan), gejala(nyeri_tenggorokan),
- 11. gejala(nyeri_leher), gejala(getah_bening), penyebab("Faringitis"). /**8*/ diagnosa ("Kanker Laring"):- gejala(nyeri_bicara_menelan), gejala(batuk), gejala(nyeri_tenggorokan), gejala(getah_bening), gejala(suara_serak), penyebab("Kanker Laring"). /**9*/ diagnosa ("Deviasi Septum"):- gejala(demam), gejala(hidung_tersumbat), gejala(nyeri_telinga), gejala(pendarahan_dihidung), gejala(suara_serak), penyebab("Deviasi Septum"). /**0*/ diagnosa ("Laringitis"):- gejala(demam), gejala(nyeri_bicara_menelan), gejala(getah_bening), gejala(leher_bengkak), penyebab("Laringitis"). /****/ diagnosa("Kanker Leher & Kepala"):- gejala(nyeri_bicara_menelan), gejala(benjolan_dileher),
- 12. gejala(pendarahan_dihidung), penyebab("Kanker Leher & Kepala"). /**2*/ diagnosa("Otitis Media Akut"):- gejala(demam), gejala(nyeri_telinga), gejala(mual_muntah), penyebab("Otitis Media Akut"). /**3*/ diagnosa("Contanct Ulcers"):- gejala(nyeri_bicara_menelan), gejala(suara_serak), penyebab("Contanct Ulcers"). /**4*/ diagnosa("Abses Parafaringeal"):- gejala(nyeri_bicara_menelan), gejala(leher_bengkak), penyebab("Abses Parafaringeal"). /**5*/ diagnosa("Baratitis Media"):- gejala(sakit_kepala), gejala(nyeri_telinga), penyebab("Baratitis Media"). /**6*/ diagnosa("Kanker Nafasaring"):- gejala(hidung_tersumbat), gejala(pendarahan_dihidung), penyebab("Kanker Nafasaring").
- 13. /**7*/ diagnosa("Kanker Tonsil"):- gejala(nyeri_tenggorokan), gejala(benjolan_dileher), penyebab("Kanker Tonsil"). /**8*/ diagnosa("Neuronitis Vastibularis"):- gejala(mual_muntah), gejala(bolamata_bergerak), penyebab("Neuronitis Vastibularis"). /**9*/ diagnosa("Maniere"):- gejala(nyeri_telinga), gejala(bolamata_hergerak), penyebab("Maniere"). /*20*/ diagnosa("Tumor Syaraf Pendengaran"):- gejala(sakit_kepala), gejala(tuli), penyebab("Tumor Syaraf Pendengaran"). /*2**/ diagnosa("Kanker Leher Metastatik"):- gejala(benjolan_dileher), penyebab("Kanker Leher Metastatik"). /*22*/ diagnosa("Osteosklerosis"):- gejala(tuli), penyebab("Osteosklerosis").
- 14. /*23*/ diagnosa ("Vertigo Pastular"):- gejala (bolamata_bergerak), penyebab ("Vertigo Pastular"). penyebab ("Tonsilitis"):- solusi ("Tonsilitis"). penyebab ("Sinusitis Maksilaris"):- gejala (nyeri_pipi), gejala (sakit_gigi), solusi ("Sinusitis Maksilaris"). penyebab ("Sinusitis Frontalis"):- solusi ("Sinusitis Frontalis"). penyebab ("Sinusitis Edmoidalia"):- gejala (nyeri_antara_mata), gejala (nyeri_pinggir_hidung), solusi ("Sinusitis Edmoidalia"). penyebab ("Sinusitis Stenoidalia"):- solusi ("Sinusitis Stenoidalia"). penyebab ("Abses Peritonsiler"):- gejala (airliur_menetes), solusi ("Abses Peritonsiler"). penyebab ("Faringitis"):- solusi ("Feringitis"). penyebab ("Kanker Laring"):- gejala (beratbadan_turun), gejala (nafas_abnormal),
- 15. solusi ("Kanker Laring"). penyebab ("Deviasi Septum"):- gejala (infeksi_sinus), gejala (nyeri_wajah), solusi ("Deviasi Septum"). penyebab ("Laringitis"):- gejala (tenggorokan_gatal), solusi ("Laringitis"). penyebab ("Kanker Leher & Kepala"):- gejala (tumbuh_dimulut), gejala (perubahan_kulit), gejala (perubahan_suara), solusi ("Kanker Leher & Kepala"). penyebab ("Otitis Media Akut"):- gejala (radang_gendang_telinga), solusi ("Otitis Media Akut"). penyebab ("Contact Uclers"):- solusi ("Contact Uclers"). penyebab ("Abses Parafaringeal"):- solusi ("Abses Parafaringeal"). penyebab ("Barotitis Media"):- solusi ("Barotitis Media"). penyebab ("Kanker Nafasoring"):- solusi ("Kanker Nafasoring"). penyebab ("Kanker Tonsil"):-
- 16. solusi ("Kanker Tonsil"). penyebab ("Neuronitis Vastibularis"):- solusi ("Neuronitis Vastibularis"). penyebab ("Meniere"):- gejala (serangan_vertigo), gejala (telinga_penuh), solusi ("Otitis Media Akut"). penyebab ("Tumor Syaraf Pendengaran"):- gejala (tubuh_tak_seimbang), solusi ("Tumor Syaraf Pendengaran"). penyebab ("Kanker Leher Metastatik"):- solusi ("Kanker Leher Metastatik"). penyebab ("Osteosklerosis"):- gejala (telinga_berdenging), solusi ("Osteosklerosis"). penyebab ("Vertigo Postular"):- solusi ("Vertigo Postular"). solusi (Penyakit):- upper_lower (Penyakit, Penyakit), nl, nl, nl, write (" Penyakit Anda adalah ", Penyakit), nl.