Pada postingan sebelumnya, kami sudah mencoba membuat desain awal mengenai cara diagnosa penyakit yang bisa kita lakukan sendiri sebelum kita pergi ke dokter. Berikut ini adalah source code dasar dari program yang sedang kami buat, kemungkinan masih akan ada perbaikan :
diag:- write(‘Diagnosis awal penyakit mandiri’),menu.
menu:-nl,write(‘Pilih 3 keluhan yang paling mendekati apa yang Anda rasakan saat ini:’),nl,
write(’1. kepala pusing’),nl,
write(’2. suhu badan tinggi’),nl,
write(’3. batuk dan pilek’),nl,
write(’4. badan lemas’),nl,
write(’5. demam lebih dari 3 hari’),nl,
write(’6. cek darah menunjukkan positif Salmonella Paratipii’),nl,
write(’7. nyeri ulu hati’),nl,
write(’8. nyeri lambung’),nl,
read(A),nl,read(B),nl,read(C),nl,keluhan(A,B,C).
keluhan(1,2,3):-write(‘Kemungkinan Anda menderita penyakit flu. Obatnya adalah Paracetamol, antibiotik, dan Multivitamin’),nl.
keluhan(4,5,6):-write(‘Kemungkinan Anda menderita penyakit tipus. Obatnya adalah Paracetamol, antibiotik, Multivitamin, obat anti Mual, dan CTM ‘),nl.
keluhan(1,7,8):-write(‘Kemungkinan Anda menderita penyakit maag. Obatnya adalah Paracetamol, antibiotik, Multivitamin, dan obat anti Mual’),nl.
Program ini akan kami coba kembangkan agar bisa menjadi lebih baik.
Advertisement
