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), ...