PROGRAM SISTEM PAKAR PENDETEKSI VIRUS PADA LAPTOP
mulai:- init, data_pengamatan, aturan(Nomor,Alasan), jawaban(Alasan,Jawab), write(Jawab),nl, write('Aturan yang dipakai adalah '), write(Nomor),nl,nl, retractall(observation(_)). mulai:- write('Maaf, virus tersebut tidak ada dalam database kami.'),nl,nl, retractall(observation(_)). init:- write('PROGRAM SISTEM PAKAR PENDETEKSI VIRUS PADA LAPTOP'),nl, judul(Judul),write(Judul),nl,nl, tulis_pesan,nl. tulis_pesan:- pesan(Pesan), write(Pesan),nl,fail. tulis_pesan:- nl. data_pengamatan:- pertanyaan(Tanya,Obs), write(Tanya),nl, read(Yatidak), Yatidak=y, assert(observation(Obs)), fail. data_pengamatan. judul('MENGANALISA LAPTOP...'). pesan('Jawab pertanyaan berikut dengan y atau t'). pertanyaan('Apakah laptop terasa lambat?', komputer). pertanyaan('Apakah ada program yang tidak bisa jalan?&