Sistem Pakar di Strawberry Prolog

Sistem pakar adalah suatu program komputer yang mengandung pengetahuan dari satu atau lebih pakar manusia mengenai suatu bidang spesifik. Jenis program ini pertama kali dikembangkan oleh periset kecerdasan buatan pada dasawarsa 1960-an dan 1970-an dan diterapkan secara komersial selama 1980-an. Bentuk umum sistem pakar adalah suatu program yang dibuat berdasarkan suatu set aturan yang menganalisis informasi (biasanya diberikan oleh pengguna suatu sistem) mengenai suatu kelas masalah spesifik serta analisis matematis dari masalah tersebut. Tergantung dari desainnya, sistem pakar juga mampu merekomendasikan suatu rangkaian tindakan pengguna untuk dapat menerapkan koreksi. Sistem ini memanfaatkan penalaran untuk mencapai suatu simpulan.Penyakit(flu).

ini ada sedikit contoh tentang sistem pakar yang di buat oleh pemrograman strawberry prolog :

Penyakit(demam).
Penyakit(dbd).
Penyakit(diabetes).
Penyakit(cacar).
Penyakit(diare).
Penyakit(sariawan).


Ciri1(flu,badan_panas,pusing,batuk,pilek).
tesPenyakit1(X,Y,Z,D,E):- Penyakit(X),Ciri(X,Y,Z,D,E),
Ciri1(X,Y,Z,D,E).
?-
read(Y,"masukkan gejala 1: "),
read(Z,"masukkan gejala 2: "),
read(D,"masukkan gejala 3: "),
read(E,"masukkan gejala 4: "),
tesPenyakit(X,Y,Z,D,E),
write(Y),nl,
write(Z),nl,
write(D),nl,
write(E),nl,
write(X).


Ciri1(demam,batuk,meriang,letih,lemah).
tesPenyakit1(X,Y,Z,D,E):- Penyakit(X),Ciri(X,Y,Z,D,E),
Ciri1(X,Y,Z,D,E).
?-
read(Y,"masukkan gejala 1: "),
read(Z,"masukkan gejala 2: "),
read(D,"masukkan gejala 3: "),
read(E,"masukkan gejala 4: "),
tesPenyakit(X,Y,Z,D,E),
write(Y),nl,
write(Z),nl,
write(D),nl,
write(E),nl,
write(X).


Ciri1(dbd,badan_panas,pusing,bintik,lemah).
tesPenyakit1(X,Y,Z,D,E):- Penyakit(X),Ciri(X,Y,Z,D,E),
Ciri1(X,Y,Z,D,E).
?-
read(Y,"masukkan gejala 1: "),
read(Z,"masukkan gejala 2: "),
read(D,"masukkan gejala 3: "),
read(E,"masukkan gejala 4: "),
tesPenyakit(X,Y,Z,D,E),
write(Y),nl,
write(Z),nl,
write(D),nl,
write(E),nl,
write(X).


Ciri1(diabetes,panas_dingin,pusing,keringat_dingin,lesu).
tesPenyakit1(X,Y,Z,D,E):- Penyakit(X),Ciri(X,Y,Z,D,E),
Ciri1(X,Y,Z,D,E).
?-
read(Y,"masukkan gejala 1: "),
read(Z,"masukkan gejala 2: "),
read(D,"masukkan gejala 3: "),
read(E,"masukkan gejala 4: "),
tesPenyakit(X,Y,Z,D,E),
write(Y),nl,
write(Z),nl,
write(D),nl,
write(E),nl,
write(X).


Ciri1(cacar,badan_panas,pusing,bintik,letih).
tesPenyakit1(X,Y,Z,D,E):- Penyakit(X),Ciri(X,Y,Z,D,E),
Ciri1(X,Y,Z,D,E).
?-
read(Y,"masukkan gejala 1: "),
read(Z,"masukkan gejala 2: "),
read(D,"masukkan gejala 3: "),
read(E,"masukkan gejala 4: "),
tesPenyakit(X,Y,Z,D,E),
write(Y),nl,
write(Z),nl,
write(D),nl,
write(E),nl,
write(X).


Ciri1(diare,badan_panas,pusing,buang_air,lesu).
tesPenyakit1(X,Y,Z,D,E):- Penyakit(X),Ciri(X,Y,Z,D,E),
Ciri1(X,Y,Z,D,E).
?-
read(Y,"masukkan gejala 1: "),
read(Z,"masukkan gejala 2: "),
read(D,"masukkan gejala 3: "),
read(E,"masukkan gejala 4: "),
tesPenyakit(X,Y,Z,D,E),
write(Y),nl,
write(Z),nl,
write(D),nl,
write(E),nl,
write(X).


Ciri1(sariawan,badan_panas,mulut_pedih,tenggorakan_gatel,letih).
tesPenyakit1(X,Y,Z,D,E):- Penyakit(X),Ciri(X,Y,Z,D,E),
Ciri1(X,Y,Z,D,E).
?-
read(Y,"masukkan gejala 1: "),
read(Z,"masukkan gejala 2: "),
read(D,"masukkan gejala 3: "),
read(E,"masukkan gejala 4: "),
tesPenyakit(X,Y,Z,D,E),
write(Y),nl,
write(Z),nl,
write(D),nl,
write(E),nl,
write(X).




ini output nya