BAHASA PEMROGRAMAN PROLOG (Silsilah Keluarga 1)

/*Contoh Program silsilah keluarga (ayah, kakek, saudara)*/

DOMAINS

            nama = symbol

PREDICATES

            ayah (nama,nama)

            kakek (nama,nama)

            saudara(nama,nama)

CLAUSES

         /* Fakta */

         ayah(hendra,pranoto).

         ayah(hendra,kristianto).

         ayah(pranoto,bardan).

         ayah(pranoto,deni).

         ayah(kristianto,harahap).

         ayah(kristianto,sutarno).

         ayah(deno,tony).

         ayah(deni,tono).

         ayah(sutarno,martin).

         ayah(sutarno,indra).

         /* Aturan */

         kakek(Kakek,Cucu) :-

                        ayah(Ayah,Cucu), ayah(Kakek,Ayah).

        

         saudara(Sdr1,Sdr2) :-

                        ayah(Ayah,Sdr1), ayah(Ayah,Sdr2),

                        Sdr1<>Sdr2.

Untuk menanyakan ayah

Goal: ayah(hendra,pranoto) <enter>

Yes

Goal: ayah(hendra,deni) <enter>

No

Goal: ayah(pranoto,deni) <enter>

Yes

Untuk mengetahui siapa ayah dan siapa anak

Goal: ayah(Ayah,Anak) <enter>

Ayah=hendra, Anak=pranoto

Ayah=hendra, Anak=kristanto

Ayah=pranoto, Anak=bardan

Ayah=pranoto, Anak=deni

Ayah=kristanto, Anak=harahap

Ayah=kristanto, Anak=sutarno

Ayah=deni, Anak=tony

Ayah=deny, Anak=tono

Ayah=sutarno, Anak=martin

Ayah=sutarno, Anak=hendra

10 Solutions

Untuk menanyakan kakek