12 Okt 2020

Tugas SBP - Membuat program Prolog

Sebagaimana yang sudah dijelaskan, anda diminta untuk membuat program dalam bahasa Prolog untuk menggambarkan silsilah keluarga anda, mulai dari kakek dan nenek, ayah dan ibu, anda dan saudara kandung. 

1. Tuliskan fakta-fakta tentang keluarga anda dalam sebuah file bernama silsilah-NamaAnda.pl. File ini berisi fakta ayah(A,B) dan ibu (C,D) dari keluarga anda mulai dari kakek/nenek, ayah/ibu, dan anda beserta saudara kandung.

2. Buatkan aturan untuk mendefiniskan saudara_kandung(A,B), saudara_sepupu(A,B), paman (A,B).

3. Jalankan program anda untuk query-query sbb dan tuliskan jawabannya dalam komentar artikel blog ini:

    a. saudara_kandung(G,H)

    b. saudara_sepupu(I,J)

    c. paman(K,L)

    d. saudara_kandung(NamaAnda, N)

    e. saudara_sepupu(NamaAnda,T)

    f. paman(K, NamaAnda)

4. Tuliskan output yang dikeluarkan program anda di dalam isian komenter di bawah ini dengan menuliskan:

 Kelas, NPM, Nama, Output program Prolog: 

a. ....

b. ...

c. ...

d. ...

e. ...

f. ...


116 komentar:

4KB08_Bima Putra_21116431 mengatakan...

4KB08_21116431_Bima Putra

https://drive.google.com/file/d/11Lo6-Fmk4tCQq6JqNVrFxJSbqdya2A4b/view?usp=sharing

%Rule
ibu(X,Y):-orangtua(X,Y),perempuan(X).
ayah(X,Y):-orangtua(X,Y),laki(X).

anak(X,Y):-orangtua(Y,X).
anaklaki(X,Y):-orangtua(Y,X),laki(X).
anakperempuan(X,Y):-orangtua(Y,X),perempuan(Y).

suami(X,Y):-anak(P,X),anak(P,Y),laki(X).
istri(Y,X):-anak(P,X),anak(P,Y),perempuan(Y).
saudarakandung(Y,Z):-anak(Y,X),anak(Z,X).
omkandung(X,Y):-saudarakandung(X,Z),orangtua(Z,Y),laki(X),not(ayah(X,Y)).
sepupu(X,Y):-anak(X,Z),anak(Y,W),saudarakandung(Z,W),not(saudarakandung(X,Y)).


Soal!
a. saudara_kandung(G,H)

b. saudara_sepupu(I,J)

c. paman(K,L)

d. saudara_kandung(NamaAnda, N)

e. saudara_sepupu(NamaAnda,T)

f. paman(K, NamaAnda)

Jawaban
a. saudara_kandung(X,Y)
X = Y, Y = sitimuarfun ;
X = sitimuarfun,
Y = wahidipurnomo ;
X = sitimuarfun,
Y = efimulyati ;
X = sitimuarfun,
Y = yulistiani ;
X = sitimuarfun,
Y = yusuff ;
X = sitimuarfun,
Y = sri ;
X = sitimuarfun,
Y = nana ;
X = wahidipurnomo,
Y = sitimuarfun ;
X = Y, Y = wahidipurnomo ;
X = wahidipurnomo,
Y = efimulyati ;
X = wahidipurnomo,
Y = yulistiani ;
X = wahidipurnomo,
Y = yusuff ;
X = wahidipurnomo,
Y = sri ;
X = wahidipurnomo,
Y = nana ;
(dimulai dari generasi 1 ank pertama sampai generasi 2 ank terakhir)

b. saudara_sepupu(I,J)
?- sepupu(X,Y).
X = dwiirawati,
Y = aditya ;
X = dwiirawati,
Y = aditya ;
X = dwiirawati,
Y = aulia ;
X = dwiirawati,
Y = aulia ;
X = dwiirawati,
Y = alfi ;
X = dwiirawati,
Y = alfi ;
X = dwiirawati,
Y = izal ;
X = dwiirawati,
Y = izal ;
X = dwiirawati,
Y = ryan ;
X = dwiirawati,
Y = ryan ;
X = dwiirawati,
Y = della ;
X = dwiirawati,
Y = della ;
X = dwiirawati,
Y = igo ;
X = dwiirawati,
Y = igo ;
X = dwiirawati,
Y = agil ;
X = dwiirawati,
Y = agil ;
X = dwiirawati,
Y = rizdy ;
X = dwiirawati,
Y = rizdy ;
X = dwiirawati,
Y = bayu ;
X = dwiirawati,
Y = bayu ;
X = dwiirawati,
Y = bima ;
X = dwiirawati,
Y = bima ;
X = dwiirawati,
Y = kintan ;
X = dwiirawati,
Y = kintan ;
X = dwiirawati,
Y = ab ;
X = dwiirawati,
Y = ab ;
X = dwiirawati,
Y = putri ;
X = dwiirawati,
Y = putri ;
X = dwiirawati,
Y = atha ;
X = dwiirawati,
Y = atha ;
(dimulai dari generasi kedua anak pertama sampai generasi kedua anak terakhir)

c. paman(K,L)
?- omkandung(X,Y).
X = wahidipurnomo,
Y = dwiirawati ;
X = wahidipurnomo,
Y = alfi ;
X = wahidipurnomo,
Y = izal ;
X = wahidipurnomo,
Y = ryan ;
X = wahidipurnomo,
Y = della ;
X = wahidipurnomo,
Y = igo ;
X = wahidipurnomo,
Y = agil ;
X = wahidipurnomo,
Y = rizdy ;
X = wahidipurnomo,
Y = bayu ;
X = wahidipurnomo,
Y = bima ;
X = wahidipurnomo,
Y = kintan ;
X = wahidipurnomo,
Y = ab ;
X = wahidipurnomo,
Y = putri ;
X = wahidipurnomo,
Y = atha ;
(dimulai paman dari ank pertama generasi 2 sampai ank terakhir gen 2)

d. saudara_kandung(G,H)
?- saudarakandung(X,bima).
X = rizdy ;
X = bayu ;
X = bima ;
X = kintan ;
X = rizdy ;
X = bayu ;
X = bima ;
X = kintan ;

e. saudara_sepupu(I,J)
?- sepupu(X,bima).
X = dwiirawati ;
X = dwiirawati ;
X = aditya ;
X = aditya ;
X = aulia ;
X = aulia ;
X = alfi ;
X = alfi ;
X = izal ;
X = izal ;
X = ryan ;
X = ryan ;
X = della ;
X = della ;
X = igo ;
X = igo ;
X = agil ;
X = agil ;
X = ab ;
X = ab ;
X = putri ;
X = putri ;
X = atha ;
X = atha ;

f. paman(K,L)
?- paman(X,bima).
X = wahidipurnomo ;
X = yusuff ;
X = wahidipurnomo ;
X = yusuff ;

penjelasan singkat silsilah keluarga
generasi pertama merupakan anak dari kasamujari dan eyang putri.
generasi kedua merupakan anak dari anak kasamujari dan eyang putri.

Permana's blog mengatakan...

3KA08, Yudha Permana, 17118502

https://drive.google.com/file/d/16bKxzqKZw6FyV9zeQ196P37ogPBSbU8H/view?usp=sharing

Fakta :

%%orang tua */
ayah(ali,tasya).
ayah(ali,yudha).
ayah(ali,kiki).
ayah(rivai,vizha).
ayah(rivai,fuad).
ayah(agus,eni).
ayah(agus,siti).
ayah(haris,hariani).
ayah(haris,hariana).
ayah(asik,ali).
ayah(asik,agus).
ibu(hariani,tasya).
ibu(hariani,yudha).
ibu(hariani,kiki).
ibu(hariana,vizha).
ibu(hariana,fuad).
ibu(saiyah,hariani).
ibu(saiyah,hariana).
ibu(emot,ali).
ibu(emot,agus).

Aturan :

%% Nama1 adalah saudara kandung Nama2 */
saudara_kandung(Nama,Name):-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama\=Name.

%% Sdr1 adalah saudara sepupu sdr2 */

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).

%% Paman adalah saudara ayah */

paman(Paman,Orang) :-
saudara_kandung(Paman,Ayah),
ayah(Ayah,Orang).

Soal dan Jawaban :

A.
saudara_kandung(G,H).
G = tasya,
H = yudha ;
G = tasya,
H = kiki ;
G = yudha,
H = tasya ;
G = yudha,
H = kiki ;
G = kiki,
H = tasya ;
G = kiki,
H = yudha ;
G = vizha,
H = fuad ;
G = fuad,
H = vizha ;
G = hariani,
H = hariana ;
G = hariana,
H = hariani ;
G = ali,
H = agus

B.
saudara_sepupu(I,J).
I = tasya,
J = eni ;
I = tasya,
J = siti ;
I = yudha,
J = eni ;
I = yudha,
J = siti ;
I = kiki,
J = eni ;
I = kiki,
J = siti ;
I = eni,
J = tasya ;
I = eni,
J = yudha ;
I = eni,
J = kiki ;
I = siti,
J = tasya ;
I = siti,
J = yudha ;
I = siti,
J = kiki ;
I = tasya,
J = vizha ;
I = tasya,
J = fuad ;
I = yudha,
J = vizha ;
I = yudha,
J = fuad ;
I = kiki,
J = vizha ;
I = kiki,
J = fuad ;
I = vizha,
J = tasya ;
I = vizha,

C.
paman(K,L).
K = ali,
L = eni ;
K = ali,
L = siti ;
K = agus,
L = tasya ;
K = agus,
L = yudha ;
K = agus,
L = kiki ;

D.
saudara_kandung(yudha,N).
N = tasya ;
N = kiki.

E.
saudara_sepupu(yudha,T).
T = eni ;
T = siti ;
T = vizha ;
T = fuad ;

F.
paman(K,yudha).
K = agus ;

dicko mengatakan...
Komentar ini telah dihapus oleh pengarang.
Ryan Kurniawan mengatakan...

3KA08,RYAN KURNIAWAN,16118408
https://drive.google.com/file/d/1JXbtMyiQ-87CFSFRypvFLtKmLWotX8Qs/view?usp=sharing

FAKTA:
ayah(hamir,john).
ayah(hamir,hendra).
ayah(suwardi,amel).
ayah(john,emil).
ayah(john,leo).
ayah(john,ryan).
ayah(hendra,rendi).
ayah(hendra,jafan).
ibu(ratna,john).
ibu(ratna,hendra).
ibu(suwarsih,amel).
ibu(amel,emil).
ibu(amel,leo).
ibu(amel,ryan).
ibu(santi,rendi).
ibu(santi,jafan).

ATURAN:
%% Nama1 adalah saudara kandung Nama2 */

saudara_kandung(Nama,Name):-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama\=Name.
%% Sdr1 adalah saudara sepupu sdr2 */


saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).


%% sdr_kdg ayah adalah paman */
paman(Paman,Orang):-
saudara_kandung(Paman,Ayah),
ayah(Ayah,Orang).

SOAL!
a. saudara_kandung(G,H).
G = john,
H = hendra ;
G = hendra,
H = john ;
G = emil,
H = leo ;
G = emil,
H = ryan ;
G = leo,
H = emil ;
G = leo,
H = ryan ;
G = ryan,
H = emil ;
G = ryan,
H = leo ;
G = rendi,
H = jafan ;
G = jafan,
H = rendi ;
saudara_sepupu(I,J).
I = emil,
J = rendi ;
I = emil,
J = jafan ;
I = leo,
J = rendi ;
I = leo,
J = jafan ;
I = ryan,
J = rendi ;
I = ryan,
J = jafan ;
I = rendi,
J = emil ;
I = rendi,
J = leo ;
I = rendi,
J = ryan ;
I = jafan,
J = emil ;
I = jafan,
J = leo ;
I = jafan,
J = ryan ;
c. paman(K,L).
K = john,
L = rendi ;
K = john,
L = jafan ;
K = hendra,
L = emil ;
K = hendra,
L = leo ;
K = hendra,
L = ryan ;
d. saudara_kandung(ryan,N).
N = emil ;
N = leo ;
e. saudara_sepupu(ryan,T).
T = rendi ;
T = jafan ;
f. paman(K,ryan).
K = hendra

dicko mengatakan...

3KA08_Dicko Ilham Fauzan_11118897

https://drive.google.com/file/d/1yvAwkdE5We9PrJXULbqk7qprypqicfZt/view?usp=sharing

Fakta:
ayah(darmo,haryono).
ayah(darmo,riyanto).
ayah(haryono,dicko).
ayah(haryono,naufal).
ayah(riyanto,nuke).
ayah(riyanto,windi).
ayah(ahmat,sri_wahyuni).
ayah(ahmat,suprapti).
ayah(supardi,tyas).
ayah(supardi,tika).
ayah(supardi,rani).
ibu(suprapti,tyas).
ibu(suprapti,tika).
ibu(suprapti,tika).
ibu(suprapti,rani).
ibu(pariem,sri_wahyuni).
ibu(pariem,suprapti).
ibu(paini,haryono).
ibu(paini,riyanto).
ibu(sri_wahyuni,dicko).
ibu(sri_wahyuni,naufal).
ibu(sutipah,nuke).
ibu(sutipah,windi).

Aturan:
%% Nama1 adalah saudara kandung Nama2 */
saudara_kandung(Nama,Name):-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama\=Name.

%% Sdr1 adalah saudara sepupu sdr2 */
saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).

%% sdr_kdg ayah adalah paman */
paman(Paman,Orang):-
saudara_kandung(Paman,Ayah),
ayah(Ayah,Orang).

Soal!
a. saudara_kandung(G,H)
G = haryono,
H = riyanto ;
G = riyanto,
H = haryono ;
G = dicko,
H = naufal ;
G = naufal,
H = dicko ;
G = nuke,
H = windi ;
G = windi,
H = nuke ;
G = sri_wahyuni,
H = suprapti ;
G = suprapti,
H = sri_wahyuni ;
G = tyas,
H = tika ;
G = tyas,
H = tika ;
G = tyas,
H = rani ;
G = tika,
H = tyas ;
G = tika,
H = tyas ;
G = tika,
H = rani ;
G = tika,
H = rani ;
G = rani,
H = tyas ;
G = rani,
H = tika ;
G = rani,
H = tika ;
b. saudara_sepupu(I,J)
I = dicko,
J = nuke ;
I = dicko,
J = windi ;
I = naufal,
J = nuke ;
I = naufal,
J = windi ;
I = nuke,
J = dicko ;
I = nuke,
J = naufal ;
I = windi,
J = dicko ;
I = windi,
J = naufal ;
I = tyas,
J = dicko ;
I = tyas,
J = naufal ;
I = tika,
J = dicko ;
I = tika,
J = naufal ;
I = tika,
J = dicko ;
I = tika,
J = naufal ;
I = rani,
J = dicko ;
I = rani,
J = naufal ;
I = dicko,
J = tyas ;
I = dicko,
J = tika ;
I = dicko,
J = tika ;
I = dicko,
J = rani ;
I = naufal,
J = tyas ;
I = naufal,
J = tika ;
I = naufal,
J = tika ;
I = naufal,
J = rani ;
c. paman(K,L)
K = haryono,
L = nuke ;
K = haryono,
L = windi ;
K = riyanto,
L = dicko ;
K = riyanto,
L = naufal ;
d. saudara_kandung(NamaAnda, N)
N = naufal.
e. saudara_sepupu(NamaAnda,T)
T = nuke ;
T = windi ;
T = tyas ;
T = tika ;
T = tika ;
T = rani ;
f. paman(K, NamaAnda)
K = riyanto

Muhammad Arie Ramadhan mengatakan...

3KA08-14118486-Muhammad Arie Ramadhan

https://drive.google.com/file/d/1s-B2voIatyC7FgF12F_MzrzAaGMXdLDq/view?usp=sharing

Fakta :
%%orang tua*/
ayah(ali,muslim).
ayah(ali,alat).
ayah(ali,syafii).
ayah(muslim,devi).
ayah(muslim,anita).
ayah(muslim,arie).
ayah(alat,reza).
ayah(syafii,syifa).
ayah(syafii,rafi).
ibu(ani,muslim).
ibu(ani,alat).
ibu(ani,syafii).
ibu(kiki,devi).
ibu(kiki,anita).
ibu(kiki,arie).
ibu(runi,reza).
ibu(ita,syifa).
ibu(ita,rafi).

aturan :
% Nama1 adalah saudara kandung Nama2*/

saudara_kandung(Nama,Name):-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama\=Name.

%% Sdr1 adalah saudara sepupu sdr2*/

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).

%% paman adalah saudara ayah*/
paman(Paman,Orang):-
saudara_kandung(Paman,Ayah),
ayah(Ayah,Orang).

soal :
a. saudara_kandung(G,H)

b. saudara_sepupu(I,J)

c. paman(K,L)

d. saudara_kandung(NamaAnda, N)

e. saudara_sepupu(NamaAnda,T)

f. paman(K, NamaAnda)

Jawab :

a. saudara_kandung(G,H).
G = muslim,
H = alat ;
G = muslim,
H = syafii ;
G = alat,
H = muslim ;
G = alat,
H = syafii ;
G = syafii,
H = muslim ;
G = syafii,
H = alat ;
G = devi,
H = anita ;
G = devi,
H = arie ;
G = anita,
H = devi ;
G = anita,
H = arie ;
G = arie,
H = devi ;
G = arie,
H = anita ;
G = syifa,
H = rafi ;
G = rafi,
H = syifa ;

b. saudara_sepupu(I,J).
I = devi,
J = reza ;
I = devi,
J = syifa ;
I = devi,
J = rafi ;
I = anita,
J = reza ;
I = anita,
J = syifa ;
I = anita,
J = rafi ;
I = arie,
J = reza ;
I = arie,
J = syifa ;
I = arie,
J = rafi ;
I = reza,
J = devi ;
I = reza,
J = anita ;
I = reza,
J = arie ;
I = reza,
J = syifa ;
I = reza,
J = rafi ;
I = syifa,
J = devi ;
I = syifa,
J = anita ;
I = syifa,
J = arie ;
I = syifa,
J = reza ;
I = rafi,
J = devi ;
I = rafi,
J = anita ;
I = rafi,
J = arie ;
I = rafi,
J = reza ;

c. paman(K,L).
K = muslim,
L = reza ;
K = muslim,
L = syifa ;
K = muslim,
L = rafi ;
K = alat,
L = devi ;
K = alat,
L = anita ;
K = alat,
L = arie ;
K = alat,
L = syifa ;
K = alat,
L = rafi ;
K = syafii,
L = devi ;
K = syafii,
L = anita ;
K = syafii,
L = arie ;
K = syafii,
L = reza ;

d. saudara_kandung(arie,N).
N = devi ;
N = anita ;

e. saudara_sepupu(arie,T).
T = reza ;
T = syifa ;
T = rafi ;

f. paman(K,arie).
K = alat ;
K = syafii ;

davahatami.blogspot.com mengatakan...
Komentar ini telah dihapus oleh pengarang.
AFAF mengatakan...

3KA08, 10118246, Afaf Alfa Syauqi

https://drive.google.com/file/d/1fcdACbmjoFkFPmUAXSNRK5sGrbhfnXj7/view?usp=sharing

Fakta:

%%orang tua */
ayah(agus,afaf).
ayah(agus,hanif).
ayah(bowo,faiz).
ayah(bowo,izzat).
ayah(waluyo,yoni).
ayah(waluyo,icha).
ayah(sutorsoyo,agus).
ayah(sutorsoyo,bowo).
ayah(sutorsoyo,waluyo).
ibu(suli,afaf).
ibu(suli,hanif).
ibu(teti,faiz).
ibu(teti,izzat).
ibu(nining,yoni).
ibu(nining,icha).
ibu(daima,agus).
ibu(daima,bowo).
ibu(daima,waluyo).

Aturan :


%% Kakek adalah kakek cucu */
kakek(Kakek,Cucu):-ayah(Ayah,Cucu),ayah(Kakek,Ayah).

kakek(Kakek,Cucu):-ibu(Ibu,Cucu),ayah(Kakek,Ibu).

%% Nenek adalah nenek cucu */
nenek(Nenek,Cucu):-ayah(Ayah,Cucu),ibu(Nenek,Ayah).

nenek(Nenek,Cucu):-ibu(Ibu,Cucu),ibu(Nenek,Ibu).

%% Nama1 adalah saudara kandung Nama2 */

saudara_kandung(Nama,Name):-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama\=Name.


%% Sdr1 adalah saudara sepupu sdr2 */


saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).

%% sdr_kdg ayah adalah paman */
paman(Paman,Orang):-
saudara_kandung\=(perempuan),
saudara_kandung(Paman,Ayah),
ayah(Ayah,Orang).

Soal dan Jawaban

A.
saudara_kandung(G,H).
G = afaf,
H = hanif ;
G = hanif,
H = afaf ;
G = faiz,
H = izzat ;
G = izzat,
H = faiz ;
G = yoni,
H = icha ;
G = icha,
H = yoni ;
G = agus,
H = bowo ;
G = agus,
H = waluyo ;
G = bowo,
H = agus ;
G = bowo,
H = waluyo ;
G = waluyo,
H = agus ;
G = waluyo,
H = bowo ;


B.
saudara_sepupu(I,J).
I = afaf,
J = faiz ;
I = afaf,
J = izzat ;
I = afaf,
J = yoni ;
I = afaf,
J = icha ;
I = hanif,
J = faiz ;
I = hanif,
J = izzat ;
I = hanif,
J = yoni ;
I = hanif,
J = icha ;
I = faiz,
J = afaf ;
I = faiz,
J = hanif ;
I = faiz,
J = yoni ;
I = faiz,
J = icha ;
I = izzat,
J = afaf ;
I = izzat,
J = hanif ;
I = izzat,
J = yoni ;
I = izzat,
J = icha ;
I = yoni,
J = afaf ;
I = yoni,
J = hanif ;
I = yoni,
J = faiz ;
I = yoni,
J = izzat ;
I = icha,
J = afaf ;
I = icha,
J = hanif ;
I = icha,
J = faiz ;
I = icha,
J = izzat ;

C.
paman(K,L).
K = agus,
L = faiz ;
K = agus,
L = izzat ;
K = agus,
L = yoni ;
K = agus,
L = icha ;
K = bowo,
L = afaf ;
K = bowo,
L = hanif ;
K = bowo,
L = yoni ;
K = bowo,
L = icha ;
K = waluyo,
L = afaf ;
K = waluyo,
L = hanif ;
K = waluyo,
L = faiz ;
K = waluyo,
L = izzat ;

D.
saudara_kandung(afaf,N).
N = hanif.

E.
saudara_sepupu(afaf,T).
T = faiz ;
T = izzat ;
T = yoni ;
T = icha ;

F.
paman(K,afaf)
K = bowo ;
K = waluyo ;

Shabrina Jamilah mengatakan...

3KA07, 16118620, Shabrina Jamilah.

Fakta
https://drive.google.com/drive/folders/1yhYCw_3N5yGAJ8LDYljULpSLxFzOoD4F?usp=sharing
%% fakta
%% Orangtua
ayah(mamun,kurdi).
ayah(mamun,nana).
ayah(mamun,hadi).
ayah(kurdi,dian).
ayah(kurdi,ebah).
ayah(kurdi,shabrinajamilah).
ayah(nana,sandi).
ayah(nana,yana).
ayah(nana,kholiq).
ayah(hadi,najwa).
ayah(hadi,habibah).
ayah(hadi,kholid).
ibu(dedeh,kurdi).
ibu(dedeh,nana).
ibu(dedeh,hadi).
ibu(marpuah,dian).
ibu(marpuah,ebah).
ibu(marpuah,shabrinajamilah).
ibu(titi,sandi).
ibu(titi,yana).
ibu(titi,kholiq).
ibu(nina,najwa).
ibu(nina,habibah).
ibu(nina,kholid).


Aturan
%% aturan
%% Nama1 adalah saudara kandung Nama2
saudara_kandung(Nama1,Nama2) :-
ayah(Ayah,Nama1),
ayah(Ayah,Nama2),
ibu(Ibu,Nama1),
ibu(Ibu,Nama2),
Nama1 \= Nama2.

%% Sdr1 adalah saudara sepupu Sdr2
saudara_sepupu(Sdr1,Sdr2) :-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).
saudara_sepupu(Sdr1,Sdr2) :-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).
saudara_sepupu(Sdr1,Sdr2) :-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).
saudara_sepupu(Sdr1,Sdr2) :-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).

%% saudara_kandung ayah atau ibu adalah paman
paman(Paman,Orang):-
ayah(Ayah,Orang),
saudara_kandung(Paman,Ayah).
paman(Paman,Orang):-
ibu(Ibu,Orang),
saudara_kandung(Paman,Ibu).

Output yang dikeluarkan program
a. saudara_kandung(G,H)
G = kurdi,
H = nana ;
G = kurdi,
H = hadi ;
G = nana,
H = kurdi ;
G = nana,
H = hadi ;
G = hadi,
H = kurdi ;
G = hadi,
H = nana ;
G = dian,
H = ebah ;
G = dian,
H = shabrinajamilah ;
G = ebah,
H = dian ;
G = ebah,
H = shabrinajamilah ;
G = shabrinajamilah,
H = dian ;
G = shabrinajamilah,
H = ebah ;
G = sandi,
H = yana ;
G = sandi,
H = kholiq ;
G = yana,
H = sandi ;
G = yana,
H = kholiq ;
G = kholiq,
H = sandi ;
G = kholiq,
H = yana ;
G = najwa,
H = habibah ;
G = najwa,
H = kholid ;
G = habibah,
H = najwa ;
G = habibah,
H = kholid ;
G = kholid,
H = najwa ;
G = kholid,
H = habibah ;


b. saudara_sepupu(I,J).
I = dian,
J = sandi ;
I = dian,
J = yana ;
I = dian,
J = kholiq ;
I = dian,
J = najwa ;
I = dian,
J = habibah ;
I = dian,
J = kholid ;
I = ebah,
J = sandi ;
I = ebah,
J = yana ;
I = ebah,
J = kholiq ;
I = ebah,
J = najwa ;
I = ebah,
J = habibah ;
I = ebah,
J = kholid ;
I = shabrinajamilah,
J = sandi ;
I = shabrinajamilah,
J = yana ;
I = shabrinajamilah,
J = kholiq ;
I = shabrinajamilah,
J = najwa ;
I = shabrinajamilah,
J = habibah ;
I = shabrinajamilah,
J = kholid ;

c. paman(K,L).
K = nana,
L = dian ;
K = hadi,
L = dian ;
K = nana,
L = ebah ;
K = hadi,
L = ebah ;
K = nana,
L = shabrinajamilah ;
K = hadi,
L = shabrinajamilah ;
K = kurdi,
L = sandi ;
K = hadi,
L = sandi ;
K = kurdi,
L = yana ;
K = hadi,
L = yana ;
K = kurdi,
L = kholiq ;
K = hadi,
L = kholiq ;
K = kurdi,
L = najwa ;
K = nana,
L = najwa ;
K = kurdi,
L = habibah ;
K = nana,
L = habibah ;
K = kurdi,
L = kholid ;
K = nana,
L = kholid ;

d. saudara_kandung(shabrinajamilah,N).
N = dian ;
N = ebah ;

e. saudara_sepupu(shabrinajamilah,T).
T = sandi ;
T = yana ;
T = kholiq ;
T = najwa ;
T = habibah ;
T = kholid ;

f. paman(K,shabrinajamilah).
K = nana ;
K = hadi ;

Unknown mengatakan...

3KA08, Muhammad Enggar Prastio, 14118553
https://drive.google.com/drive/folders/1i9tweg01ibBHnmFE-iGATknKHii53Q5u?usp=sharing
Jawaban
%%Fakta */
ayah(sanmiaji,warisno).
ayah(sanmiaji,naryo).
ayah(sanmiaji,imun).
ayah(warisno,erni).
ayah(warisno,enggar).
ayah(warisno,triya).
ayah(naryo,rifki).
ayah(naryo,arin).
ayah(suratmin,saerah).
ayah(slamet,indah).
ibu(bu_sanmiaji,warisno).
ibu(bu_sanmiaji,naryo).
ibu(bu_sanmiaji,imun).
ibu(bu_warisno,erni).
ibu(bu_warisno,enggar).
ibu(bu_warisno,triya).
ibu(bu_naryo,rifki).
ibu(bu_naryo,arin).
ibu(bu_suratmin,bu_warisno).
ibu(bu_slamet,bu_naryo).

%%Kakek adalah kakek cucu */
kakek(Kakek,Cucu) :-ayah(Ayah,Cucu),ayah(Kakek,Ayah).
kakek(Kakek,Cucu) :-ibu(Ibu,Cucu),ayah(Kakek,Ibu).

%%Nenek adalah nenek cucu */
nenek(Nenek,Cucu):-ayah(Ayah,Cucu),ibu(Nenek,Ayah).
nenek(Nenek,Cucu):-ibu(Ibu,Cucu),ibu(Nenek,Ibu).

%% Nama1 adalah saudara kandung Nama2 */
saudara_kandung(Nama,Name):-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama\=Name.

%% Sdr1 adalah saudara sepupu sdr2 */
saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).

%% Paman adalah saudara ayah */

paman(Paman,Orang) :-
saudara_kandung(Paman,Ayah),
ayah(Ayah,Orang).










A. ?- saudara_kandung(G,H).
G = warisno,
H = naryo ;
G = warisno,
H = imun ;
G = naryo,
H = warisno ;
G = naryo,
H = imun ;
G = imun,
H = warisno ;
G = imun,
H = naryo ;
G = erni,
H = enggar ;
G = erni,
H = triya ;
G = enggar,
H = erni ;
G = enggar,
H = triya ;
G = triya,
H = erni ;
G = triya,
H = enggar ;
G = rifki,
H = arin ;
G = arin,
H = rifki ;

B. ?- saudara_sepupu(I,J).
I = erni,
J = rifki ;
I = erni,
J = arin ;
I = enggar,
J = rifki ;
I = enggar,
J = arin ;
I = triya,
J = rifki ;
I = triya,
J = arin ;
I = rifki,
J = erni ;
I = rifki,
J = enggar ;
I = rifki,
J = triya ;
I = arin,
J = erni ;
I = arin,
J = enggar ;
I = arin,
J = triya ;

C. ?- paman(K,L).
K = warisno,
L = rifki ;
K = warisno,
L = arin ;
K = naryo,
L = erni ;
K = naryo,
L = enggar ;
K = naryo,
L = triya ;
K = imun,
L = erni ;
K = imun,
L = enggar ;
K = imun,
L = triya ;
K = imun,
L = rifki ;
K = imun,
L = arin ;

D. ?- saudara_kandung(enggar,N).
N = erni ;
N = triya.
E. ?- saudara_sepupu(enggar,T).
T = rifki ;
T = arin

F. ?- paman(K,enggar).
K = naryo ;
K = imun ;


David mengatakan...

3KA08, Jeremias David, 13118475

https://drive.google.com/drive/folders/14nF8TNLcCYQJHXd0obNSNW7ewVPTYgNB?usp=sharing

jawaban:
ayah(chris,patrick).
ayah(chris,deni).
ayah(patrick,david).
ayah(patrick,putri).
ayah(deni,yehezkiel).
ayah(deni,royles).
ayah(santoso,bu_patrick).
ayah(john,bu_deni).
ibu(bu_chris,patrick).
ibu(bu_chris,deni).
ibu(bu_chris,david).
ibu(bu_chris,putri).
ibu(bu_deni,yehezkiel).
ibu(bu_deni,royles).
ibu(bu_santoso,bu_patrick).
ibu(bu_deni,bu_john).

%%Kakek adalah kakek cucu */
kakek(Kakek,Cucu) :-ayah(Ayah,Cucu),ayah(Kakek,Ayah).
kakek(Kakek,Cucu) :-ibu(Ibu,Cucu),ayah(Kakek,Ibu).

%%Nenek adalah nenek cucu */
nenek(Nenek,Cucu):-ayah(Ayah,Cucu),ibu(Nenek,Ayah).
nenek(Nenek,Cucu):-ibu(Ibu,Cucu),ibu(Nenek,Ibu).

%% Nama1 adalah saudara kandung Nama2 */
saudara_kandung(Nama,Name):-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama\=Name.

%% Sdr1 adalah saudara sepupu sdr2 */


saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).

%% Paman adalah saudara ayah */

paman(Paman,Orang) :-
saudara_kandung(Paman,Ayah),
ayah(Ayah,Orang).




A. ?- saudara_kandung(G,H).
G = patrick,
H = deni ;
G = deni,
H = patrick ;
G = david,
H = putri ;
G = putri,
H = david ;
G = yehezkiel,
H = royles ;
G = royles,
H = yehezkiel ;

B. ?- saudara_sepupu(I,J).
I = david,
J = yehezkiel ;
I = david,
J = royles ;
I = putri,
J = yehezkiel ;
I = putri,
J = royles ;
I = yehezkiel,
J = david ;
I = yehezkiel,
J = putri ;
I = royles,
J = david ;
I = royles,
J = putri ;

C. ?- paman(K,L).
K = patrick,
L = yehezkiel ;
K = patrick,
L = royles ;
K = deni,
L = david ;
K = deni,
L = putri ;
false.

D. ?- saudara_kandung(david,N).
N = putri.
E. ?- saudara_sepupu(david,T).
T = yehezkiel ;
T = royles ;
F. ?- paman(K,david).
K = deni ;

Dava mengatakan...

3KA08, 14118529, Muhammad Dava Hatami

Link gdrive file Silsilah-Muhammad Dava Hatami :
https://drive.google.com/file/d/1aQPPYBAR8Vbvt75dSZztVdEjq9ByeVUP/view?usp=sharing

- Fakta :

%% orang tua */
ayah(tasrif,agus).
ayah(tasrif,mahsun).
ayah(suminta,eha).
ayah(agus,dava).
ayah(agus,reza).
ayah(mahsun,lia).
ayah(mahsun,dian).
ibu(juriah,agus).
ibu(juriah,mahsun).
ibu(suti,eha).
ibu(eha,dava).
ibu(eha,reza).
ibu(ani,lia).
ibu(ani,dian).

- Aturan :

%% Nama1 adalah saudara kandung Nama2 */

saudara_kandung(Nama,Name):-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama\=Name.

%% Sdr1 adalah saudara sepupu sdr2 */

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).


%% paman adalah saudara ayah */
paman(Paman,Orang) :-
saudara_kandung(Paman,Ayah),
ayah(Ayah,Orang).

- Output Program Prolog :

a. saudara_kandung(G,H).
Output :
G = agus,
H = mahsun ;
G = mahsun,
H = agus ;
G = dava,
H = reza ;
G = reza,
H = dava ;
G = lia,
H = dian ;
G = dian,
H = lia ;

b. saudara_sepupu(I,J).
Output :
I = dava,
J = lia ;
I = dava,
J = dian ;
I = reza,
J = lia ;
I = reza,
J = dian ;
I = lia,
J = dava ;
I = lia,
J = reza ;
I = dian,
J = dava ;
I = dian,
J = reza ;

c. Paman(K,L).
Output :
K = agus,
L = lia ;
K = agus,
L = dian ;
K = mahsun,
L = dava ;
K = mahsun,
L = reza ;

d. saudara_kandung(NamaAnda,N).
Output :
saudara_kandung(dava,N).
N = reza.

e. saudara_sepupu(NamaAnda,T).
Output :
saudara_sepupu(dava,T).
T = lia ;
T = dian ;

f. Paman(K,NamaAnda).
Output :
paman(K,dava).
K = mahsun ;

Zalfa Khalilah Mudztaba mengatakan...

3KA08, 17118579, Zalfa Khalilah Mudztaba
Link gdrive file: https://drive.google.com/drive/u/0/folders/1J94Blltn8BazNn-EEwekyLjWM-g39_xO

- Fakta
%% orang tua */
ayah(soekandi,mudztaba).
ayah(soekandi,ujang).
ayah(nurdin,aisyah).
ayah(mudztaba,zalfa).
ayah(mudztaba,nida).
ayah(ujang,aqila).
ayah(ujang,hana).
ibu(aisyah,zalfa).
ibu(aisyah,nida).
ibu(astri,aqila).
ibu(astri,hana).
ibu(kamalia,mudztaba).
ibu(kamalia,ujang).
ibu(neneng,aisyah).

- Aturan:
%%Kakek adalah kakek cucu */
kakek(Kakek,Cucu) :-ayah(Ayah,Cucu),ayah(Kakek,Ayah).
kakek(Kakek,Cucu) :-ibu(Ibu,Cucu),ayah(Kakek,Ibu).

%%Nenek adalah nenek cucu */
nenek(Nenek,Cucu):-ayah(Ayah,Cucu),ibu(Nenek,Ayah).
nenek(Nenek,Cucu):-ibu(Ibu,Cucu),ibu(Nenek,Ibu).

%% Nama1 adalah saudara kandung Nama2 */
saudara_kandung(Nama,Name):-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama\=Name.

%% Sdr1 adalah saudara sepupu sdr2 */


saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).

%% Paman adalah saudara ayah */

paman(Paman,Orang) :-
saudara_kandung(Paman,Ayah),
ayah(Ayah,Orang).

-Soal & Jawaban:
a. saudara_kandung(G,H).

output:
G = mudztaba,
H = ujang ;
G = ujang,
H = mudztaba ;
G = zalfa,
H = nida ;
G = nida,
H = zalfa ;
G = aqila,
H = hana ;
G = hana,
H = aqila ;

b. saudara_sepupu(I,J).
output:
I = zalfa,
J = aqila ;
I = zalfa,
J = hana ;
I = nida,
J = aqila ;
I = nida,
J = hana ;
I = aqila,
J = zalfa ;
I = aqila,
J = nida ;
I = hana,
J = zalfa ;
I = hana,
J = nida ;

c. paman(K,L).
output:
K = mudztaba,
L = aqila ;
K = mudztaba,
L = hana ;
K = ujang,
L = zalfa ;
K = ujang,
L = nida ;

d. saudara_kandung(NamaAnda, N).
output:
Zalfa = mudztaba,
N = ujang ;
Zalfa = ujang,
N = mudztaba ;
Zalfa = zalfa,
N = nida ;
Zalfa = nida,
N = zalfa ;
Zalfa = aqila,
N = hana ;
Zalfa = hana,
N = aqila ;

e. saudara_sepupu(NamaAnda,T).
output:
T = aqila ;
T = hana ;

f. paman(K, NamaAnda)
K = ujang ;

Anggi Kelmar mengatakan...
Komentar ini telah dihapus oleh pengarang.
Tsania hanifah mengatakan...

3KA08, 17118155, Tsania Hanifah Yonvitra

https://drive.google.com/drive/folders/1zxnqY99MYAtzTCGaSH83G318W8wOU95V?usp=sharing

- Fakta:
ayah(asril,yonvitra).
ayah(asril,ali).
ayah(asril,ornijon).
ayah(ali,fajri).
ayah(ornijon,galuh).
ayah(ornijon,guntur).
ayah(yonvitra,tsania).
ayah(yonvitra,liya).
ayah(salman,emillya).
ayah(salman,ibnu).
ayah(salman,ari).
ibu(irtati,yonvitra).
ibu(irtati,ali).
ibu(irtati,ornijon).
ibu(rita,fajri).
ibu(oktavia,galuh).
ibu(oktavia,guntur).
ibu(emillya,tsania).
ibu(emillya,liya).
ibu(dalisma,emillya).
ibu(dalisma,ibnu).
ibu(dalisma,ari).

-Aturan:
%%Kakek adalah kakek cucu */
kakek(Kakek,Cucu) :-ayah(Ayah,Cucu),ayah(Kakek,Ayah).
kakek(Kakek,Cucu) :-ibu(Ibu,Cucu),ayah(Kakek,Ibu).

%%Nenek adalah nenek cucu */
nenek(Nenek,Cucu):-ayah(Ayah,Cucu),ibu(Nenek,Ayah).
nenek(Nenek,Cucu):-ibu(Ibu,Cucu),ibu(Nenek,Ibu).

%% Nama1 adalah saudara kandung Nama2 */
saudara_kandung(Nama,Name):-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama\=Name.

%% Sdr1 adalah saudara sepupu sdr2 */
saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).

%% Paman adalah saudara ayah */
paman(Paman,Orang) :-
saudara_kandung(Paman,Ayah),
ayah(Ayah,Orang).

-Soal dan Jawaban:
a.saudara_kandung(G,H).
G = yonvitra,
H = ali ;
G = yonvitra,
H = ornijon ;
G = ali,
H = yonvitra ;
G = ali,
H = ornijon ;
G = ornijon,
H = yonvitra ;
G = ornijon,
H = ali ;
G = galuh,
H = guntur ;
G = guntur,
H = galuh ;
G = tsania,
H = liya ;
G = liya,
H = tsania ;
G = emillya,
H = ibnu ;
G = emillya,
H = ari ;
G = ibnu,
H = emillya ;
G = ibnu,
H = ari ;
G = ari,
H = emillya ;
G = ari,
H = ibnu ;

b.saudara_sepupu(I,J).
I = fajri,
J = galuh ;
I = fajri,
J = guntur ;
I = fajri,
J = tsania ;
I = fajri,
J = liya ;
I = galuh,
J = fajri ;
I = galuh,
J = tsania ;
I = galuh,
J = liya ;
I = guntur,
J = fajri ;
I = guntur,
J = tsania ;
I = guntur,
J = liya ;
I = tsania,
J = fajri ;
I = tsania,
J = galuh ;
I = tsania,
J = guntur ;
I = liya,
J = fajri ;
I = liya,
J = galuh ;
I = liya,
J = guntur ;

c.paman(K,L).
K = yonvitra,
L = fajri ;
K = yonvitra,
L = galuh ;
K = yonvitra,
L = guntur ;
K = ali,
L = tsania ;
K = ali,
L = liya ;
K = ali,
L = galuh ;
K = ali,
L = guntur ;
K = ornijon,
L = tsania ;
K = ornijon,
L = liya ;
K = ornijon,
L = fajri ;

d.saudara_kandung(Nama Anda,N).
N = liya.

e.saudara_sepupu(Nama Anda,T).
T = fajri ;
T = galuh ;
T = guntur ;

f.paman(K,Nama Anda).
K = ali ;
K = ornijon ;

Anggi Kelmar mengatakan...

3KA08,10118838,Anggi Kelmar

https://drive.google.com/file/d/1JyoyQqbDqsaes8jhXLwOXeSuxmfjabNN/view?usp=drivesdk

%%orang tua*/
ayah(buyung,zainul).
ayah(buyung,nijar).
ayah(supiak,bahri).
ayah(zainul,mifta).
ayah(zainul,anggi).
ayah(zainul,tifani).
ayah(nijar,ropis).
ayah(nijar,randi).
ayah(bahri,tanti).
ibu(naik,zainul).
ibu(naik,nijar).
ibu(netnaida,bahri).
ibu(hendriwati,mifta).
ibu(hendriwati,anggi).
ibu(hendriwati,tifani).
ibu(hendriwati,alif).

ATURAN:

%% Nama1 adalah saudara kandung Nama2 */
saudara_kandung(Nama,Name):-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama\=Name.

%% Sdr1 adalah saudara sepupu sdr2 */
saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).
saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).
saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).
saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).

%% sdr_kdg ayah adalah paman */
paman(Paman,Orang):-
saudara_kandung(Paman,Ayah),
ayah(Ayah,Orang).

SOAL!

a. saudara_kandung(G,H).
G = zainul,
H = nijar ;
G = nijar,
H = zainul ;
G = mifta,
H = anggi ;
G = mifta,
H = tifani ;
G = anggi,
H = mifta ;
G = anggi,
H = tifani ;
G = tifani,
H = mifta ;
G = tifani,
H = anggi;
G = ropis,
H = randi ;
G = ropis,
H = randi ;

saudara_sepupu(I,J).
I = mifta,
J = ropis ;
I = mifta,
J = randi ;
I = anggi,
J = ropis ;
I = anggi,
J = randi ;
I = tifani,
J = ropis ;
I = tifani,
J = randi ;
I = ropis,
J = mifta ;
I = ropis,
J = anggi ;
I = ropis,
J = tifani ;
I = randi,
J = mifta ;
I = randi,
J = anggi ;
I = randi,
J = tifani ;

c. paman(K,L).
K = zainul,
L = ropis ;
K = zainul,
L = randi ;
K = nijar,
L = mifta ;
K = nijar,
L = anggi ;
K = nijar,
L = tifani ;

d. saudara_kandung(anggi,N).
N = mifta ;
N = tifani ;

e. saudara_sepupu(anggi,T).
T = ropis ;
T = randi ;

f. paman(K,ryan).
K = nijar

Anggara Pratama mengatakan...

3KA08,10118834,ANGGARA PRATAMA PUTRA ROSYAD

https://drive.google.com/file/d/1Aktsd9oRCQnGC_FKVU69AmD-ENCuKPBP/view?usp=drivesdk

#FAKTA

%%orang tua*/
ayah(sulaiman,yuliar).
ayah(sulaiman,haris).
ayah(yuliar,anggara).
ayah(yuliar,wenty).
ayah(haris,melisa).
ayah(haris,diana).
ayah(udin,aam).
ibu(juariah,yuliar).
ibu(juariah,haris).
ibu(umen,aam).
ibu(aam,anggara).
ibu(aam,wenty).
ibu(lulu,melisa).
ibu(lulu,diana).

%% kakek adalah kakek cucu */
kakek(Kakek,Cucu):-
ayah(Ayah,Cucu),ayah(Kakek,Ayah).
kakek(Kakek,Cucu):-
ibu(Ibu,Cucu),ayah(Kakek,Ibu).

%% Nenek adalah Nenek cucu */
nenek(Nenek,Cucu):-
ayah(Ayah,Cucu),ibu(Nenek,Ayah).
nenek(Nenek,Cucu):-
ibu(Ibu,Cucu),ibu(Nenek,Ibu).

%% Nama1 adalah saudara kandung Nama2 */
saudara_kandung(Nama,Name):-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama\=Name.

%% Sdr1 adalah saudara sepupu Sdr2*/
saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu,Sdr1),
ayah(ayah,Sdr2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).

%% Saudara_kandung ayah dalam paman */
paman(Paman,Orang):-
saudara_kandung(Paman,Ayah),
ayah(Ayah,Orang).


#OUTPUT
A. saudara_kandung(G,H).
G = yuliar,
H = haris ;
G = haris,
H = yuliar ;
G = anggara,
H = wenty ;
G = wenty,
H = anggara ;
G = melisa,
H = diana ;
G = diana,
H = melisa ;

B. saudara_sepupu(I,J)
saudara_sepupu(I,J).
I = anggara,
J = melisa ;
I = anggara,
J = diana ;
I = wenty,
J = melisa ;
I = wenty,
J = diana ;
I = melisa,
J = anggara ;
I = melisa,
J = wenty ;
I = diana,
J = anggara ;
I = diana,
J = wenty ;

C. paman(K,L)
paman(K,L).
K = yuliar,
L = melisa ;
K = yuliar,
L = diana ;
K = haris,
L = anggara ;
K = haris,
L = wenty ;

D. saudara_kandung(NamaAnda,N)
saudara_kandung(anggara,N).
N = wenty.

E. saudara_sepupu(NamaAnda,T)
saudara_sepupu(anggara,T).
T = melisa ;
T = diana ;

F. paman(K,NamaAnda)
paman(K,anggara).
K = haris ;


binar mengatakan...

3KA08_Binar Mohamad Faruqi_11118442

https://drive.google.com/file/d/1XklYPjp2Gy0HysRJPRy5kUSaPLUko1Wd/view?usp=sharing

%% fakta
ayah(sanmuhada,rayono).
ayah(sanmuhada,kiram).
ayah(sanmuhada,sunar).
ayah(sanmuhada,kimyo).
ayah(rayono,binar).
ayah(rayono,bening).
ayah(rayono,arsita).
ayah(kiram,ragam).
ayah(kiram,helmi).
ayah(sunar,santi).
ayah(sunar,elis).
ayah(kimyo,bagas).
ayah(kimyo,intan).
ayah(kimyo,ara).
ibu(dinem,rayono).
ibu(dinem,kiram).
ibu(dinem,sunar).
ibu(dinem,kimyo).
ibu(susyanti,binar).
ibu(susyanti,bening).
ibu(susyanti,arsita).
ibu(seli,ragam).
ibu(seli,helmi).
ibu(maryati,santi).
ibu(maryati,elis).
ibu(neneng,bagas).
ibu(neneng,intan).
ibu(neneng,ara).

%%Aturan

%%Kakek adalah kakek cucu */
kakek(Kakek,Cucu) :-ayah(Ayah,Cucu),ayah(Kakek,Ayah).
kakek(Kakek,Cucu) :-ibu(Ibu,Cucu),ayah(Kakek,Ibu).

%%Nenek adalah nenek cucu */
nenek(Nenek,Cucu):-ayah(Ayah,Cucu),ibu(Nenek,Ayah).
nenek(Nenek,Cucu):-ibu(Ibu,Cucu),ibu(Nenek,Ibu).

%% Nama1 adalah saudara kandung Nama2 */
saudara_kandung(Nama,Name):-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama\=Name.

%% Sdr1 adalah saudara sepupu sdr2 */


saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).

%% Paman adalah saudara ayah */

paman(Paman,Orang) :-
saudara_kandung(Paman,Ayah),
ayah(Ayah,Orang).


-Soal dan Jawaban:

A.saudara_kandung(G,H).
G = rayono,
H = kiram ;
G = rayono,
H = sunar ;
G = rayono,
H = kimyo ;
G = kiram,
H = rayono ;
G = kiram,
H = sunar ;
G = kiram,
H = kimyo ;
G = sunar,
H = rayono ;
G = sunar,
H = kiram ;
G = sunar,
H = kimyo ;
G = kimyo,
H = rayono ;
G = kimyo,
H = kiram ;
G = kimyo,
H = sunar ;
G = binar,
H = bening ;
G = binar,
H = arsita ;
G = bening,
H = binar ;
G = bening,
H = arsita ;
G = arsita,
H = binar ;
G = arsita,
H = bening ;
G = ragam,
H = helmi ;
G = helmi,
H = ragam ;
G = santi,
H = elis ;
G = elis,
H = santi ;

b.saudara_sepupu(I,J).
I = binar,
J = ragam ;
I = binar,
J = helmi ;
I = binar,
J = santi ;
I = binar,
J = elis ;
I = bening,
J = ragam ;
I = bening,
J = helmi ;
I = bening,
J = santi ;
I = bening,
J = elis ;
I = arsita,
J = ragam ;
I = arsita,
J = helmi ;
I = arsita,
J = santi ;
I = arsita,
J = elis ;
I = ragam,
J = binar ;
I = ragam,
J = bening ;
I = ragam,
J = arsita ;
I = ragam,
J = santi ;
I = ragam,
J = elis ;
I = helmi,
J = binar ;
I = helmi,
J = bening ;
I = helmi,
J = arsita ;
I = helmi,
J = santi ;
I = helmi,
J = elis ;
I = santi,
J = binar ;
I = santi,
J = bening ;
I = santi,
J = arsita ;
I = santi,
J = ragam ;
I = santi,
J = helmi ;
I = elis,
J = binar ;
I = elis,
J = bening ;
I = elis,
J = arsita ;
I = elis,
J = ragam ;
I = elis,
J = helmi ;

c.paman(K,L).
K = rayono,
L = ragam ;
K = rayono,
L = helmi ;
K = rayono,
L = santi ;
K = rayono,
L = elis ;
K = kiram,
L = binar ;
K = kiram,
L = bening ;
K = kiram,
L = arsita ;
K = kiram,
L = santi ;
K = kiram,
L = elis ;
K = sunar,
L = binar ;
K = sunar,
L = bening ;
K = sunar,
L = arsita ;
K = sunar,
L = ragam ;
K = sunar,
L = helmi ;
K = kimyo,
L = binar ;
K = kimyo,
L = bening ;
K = kimyo,
L = arsita ;
K = kimyo,
L = ragam ;
K = kimyo,
L = helmi ;
K = kimyo,
L = santi ;
K = kimyo,
L = elis ;

d.saudara_kandung(Nama Anda,N).
N = bening ;
N = arsita.

e.saudara_sepupu(Nama Anda,T).
T = ragam ;
T = helmi ;
T = santi ;
T = elis ;

f.paman(K,Nama Anda).
K = kiram ;
K = sunar ;
K = kimyo ;

mm mengatakan...
Komentar ini telah dihapus oleh pengarang.
mm mengatakan...
Komentar ini telah dihapus oleh pengarang.
mm mengatakan...
Komentar ini telah dihapus oleh pengarang.
Regie Pashagrata Olnain mengatakan...

https://drive.google.com/file/d/1CHcrZzAcde_twbYi47a8uzftbv8rL69n/view?usp=sharing

4KB08_Regie Pashagrata Olnain_25117022

Fakta

%%Fakta
ayah(harun,tatang).
ayah(harun,jaka).
ayah(harun,linda).
ayah(samail,eman).
ayah(samail,romli).
ayah(samail,apan).
ayah(romli,dalail).
ayah(romli,regie).
ayah(pepen,agus).
ayah(pepen,ari).
ayah(jaka,asri).
ayah(jaka,sigit).
ibu(bu_siti,tatang).
ibu(bu_siti,jaka).
ibu(bu_siti,linda).
ibu(bu_watnah,eman).
ibu(bu_watnah,romli).
ibu(bu_watnah,apan).
ibu(linda,dalail).
ibu(linda,regie).
ibu(enih,tifany).
ibu(enih,mira).
ibu(dewi,aldi).
ibu(dewi,farhan).

Aturan

%kakek
kakek(Kakek,Cucu):- ayah(Ayah,Cucu),ayah(Kakek,Ayah).
kakek(Kakek,Cucu):-ibu(Ibu,Cucu),ayah(Kakek,Ibu).

%nenenk
nenek(Nenek,Cucu):-
ayah(Ayah,Cucu),
ayah(Nenek,Ayah).
nenek(Nenek,Cucu):-
ibu(Ibu,Cucu),
ibu(Nenek,Ibu).


% Nama adalah saudara kandung Name
saudara_kandung(Nama,Name):-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama\=Name.

%sdr1 adalah
saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).

%paman adalah saudara ayah
paman(Paman,Orang):-
saudara_kandung(Paman,Ayah),
ayah(Ayah,Orang).

A: Saudara_Kandung(G,H)

G=tatang
H=jaka
G=tatang
H=linda
G=eman
H=romli
G=eman
H=apan
G=romli
H=dalail
G=romli
H=regie
G=agus
H=ari
G=asri
H=sigit
G=tifany
H=miraa
G=aldi
H=farhan

B : saudara_sepupu(I,J).
I=dalail
J=agus
I=regie
J=agus
I=asri
J=tifany
I=sigit
J=mira
I=tifany
J=aldi
I=tifany
J=farhan

c. paman(K,L)
K=tatang
L=dalail
K=tatang
L=regie
K=jaka
L=agus
K=jaka
L=ari
K=eman
L=asri
K=eman
L=sigit
K=linda
L=tifany
K=linda
L=mira
K=enih
L=aldi
K=enih
L=farhan

d. saudara_kandung(NamaAnda, N)
N= dalail

e. saudara_sepupu(NamaAnda,T)
saudara_sepupu(regie,T).
T=asri
T=sigit
T=ari
T=agus

f.paman(K,Nama Anda)
paman (K,regie).
k=eman

Reisditama Ramadhon mengatakan...

4KB08_Reisditama Ramadhon_25117032

https://drive.google.com/file/d/15NrvY9chn_GKV-gddxfQqUCO7KggBoze/view?usp=sharing

Fakta:
ayah(marto,siswoyo).
ayah(marto,sisyanto).
ayah(marto,sulastri).
ayah(daiman,rusdi).
ayah(daiman,yuni).
ayah(daiman,yanti).
ayah(rusdi,hendra).
ayah(rusdi,reisditama).
ayah(minto,agus).
ayah(minto,ari).
ayah(sisyanto,meli).
ayah(sisyanto,melina).
ibu(bu_kumbi,siswoyo).
ibu(bu_kumbi,sisyanto).
ibu(bu_kumbi,sulastri).
ibu(bu_naimin,rusdi).
ibu(bu_naimin,yuni).
ibu(bu_naimin,yanti).
ibu(sulastri,hendra).
ibu(sulastri,reisditama).
ibu(yuni,siska).
ibu(yuni,falen).
ibu(yanti,lina).
ibu(yanti,rika).

Aturan :

%kakek
kakek(Kakek,Cucu):- ayah(Ayah,Cucu),ayah(Kakek,Ayah).
kakek(Kakek,Cucu):-ibu(Ibu,Cucu),ayah(Kakek,Ibu).

%nenenk
nenek(Nenek,Cucu):-
ayah(Ayah,Cucu),
ayah(Nenek,Ayah).
nenek(Nenek,Cucu):-
ibu(Ibu,Cucu),
ibu(Nenek,Ibu).


% Nama adalah saudara kandung Name
saudara_kandung(Nama,Name):-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama\=Name.

%sdr1 adalah
saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).

%paman adalah saudara ayah
paman(Paman,Orang):-
saudara_kandung(Paman,Ayah),
ayah(Ayah,Orang)



A: Saudara_Kandung(G,H)

G = siswoyo
H = sisyanto
G = siswoyo
H = Sulastri
G = Rusdi
H = Yuni
G = Rusdi
H = Yanti
G = Hendra
H = reisditama
G = agus
H = ari
G = meli
H = melina
G = siska
H = falen
G = siska
H = lina
G = siska
H = rika
G = falen
H = lina
G = falen
H = rika

B : saudara_sepupu(I,J).

I = yuni
J = hendra
I = yuni
J = reisditama
I = hendra
J = siska
I = hendra
J = falen
I = hendra
J = rika
I = reisditama
I = siska
J = reisditama
I = falen
J = reisditama
I = rika
J = Hendra

C : paman(K,L).

K = Siswoyo
L = Meli
K = Siswoyo
L = hendra
K = Siswoyo
L = reisditama
K = siswoyo
L = rusdi
K = Siswoyo
L = yuni
K = siswoyo
L = yanti
K = sisyanto
L = rusdi
K = sisyanto
L = yuni
K = sisyanto
L = yanti
K = siswoyo
L = yanti
K = siswoyo
L = yuni


d : saudara_kandung(reisditama,N).

N = hendra

e : saudara_sepupu(reisditama,T).

T = siska
T = falen
T = lina
T = rika

f : paman(K,reisditama).

K = yuni
K = yanti

Salsabila Larasati mengatakan...
Komentar ini telah dihapus oleh pengarang.
Salsabila Larasati mengatakan...

3KA08_SALSABILA LARASATI FAHIMA PUTRI_16118483

https://drive.google.com/file/d/1hNdxjrUFc_y0TMV7_TVb4rvJT2uvya8E/view

%%orangtua */
ayah(andhy,laras).
ayah(andhy,tya).
ayah(agus,diva).
ayah(agus,dinda).
ayah(fani,keyfa).
ayah(fani,reyfa).
ayah(soenarwan,andhy).
ayah(soenarwan,anies).
ayah(soenarwan,yoshi).
ayah(soenarwan,imam).
ibu(dilla,laras).
ibu(dilla,tya).
ibu(anies,diva).
ibu(anies,dinda).
ibu(yoshi,keyfa).
ibu(yoshi,reyfa).
ibu(musirah,andhy).
ibu(musirah,anies).
ibu(musirah,yoshi).
ibu(musirah,imam).

%%Nama1 adalah saudara kandung Nama2*/
saudara_kandung(Nama,Name):-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama\=Name.

%%Sdr1 adalah saudara sepupu Sdr2*/
saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).

%%Paman adalah saudara ayah */

paman(Paman,Orang):-
saudara_kandung(Paman,Ayah),
ayah(Ayah,Orang).

output :

A. ?- saudara_kandung(G,H).
G = laras,
H = tya ;
G = tya,
H = laras ;
G = diva,
H = dinda ;
G = dinda,
H = diva ;
G = keyfa,
H = reyfa ;
G = reyfa,
H = keyfa ;
G = andhy,
H = anies ;
G = andhy,
H = yoshi ;
G = andhy,
H = imam ;
G = anies,
H = andhy ;
G = anies,
H = yoshi ;
G = anies,
H = imam ;
G = yoshi,
H = andhy ;
G = yoshi,
H = anies ;
G = yoshi,
H = imam ;
G = imam,
H = andhy ;
G = imam,
H = anies ;
G = imam,
H = yoshi ;

B. ?- saudara_sepupu(I,J).
I = laras,
J = diva ;
I = laras,
J = dinda ;
I = laras,
J = keyfa ;
I = laras,
J = reyfa ;
I = tya,
J = diva ;
I = tya,
J = dinda ;
I = tya,
J = keyfa ;
I = tya,
J = reyfa ;
I = diva,
J = laras ;
I = diva,
J = tya ;
I = dinda,
J = laras ;
I = dinda,
J = tya ;
I = keyfa,
J = laras ;
I = keyfa,
J = tya ;
I = reyfa,
J = laras ;
I = reyfa,
J = tya ;
I = diva,
J = keyfa ;
I = diva,
J = reyfa ;
I = dinda,
J = keyfa ;
I = dinda,
J = reyfa ;
I = keyfa,
J = diva ;
I = keyfa,
J = dinda ;
I = reyfa,
J = diva ;
I = reyfa,
J = dinda ;

C. ?- paman(K,L).
K = imam,
L = laras ;
K = imam,
L = tya ;

D. ?- saudara_kandung(laras,N).
N = tya.

E. ?- saudara_sepupu(laras,T).
T = diva ;
T = dinda ;
T = keyfa ;
T = reyfa ;

F. ?- paman(K,laras).
K = imam ;

Unknown mengatakan...

4KB08_20117642_Ananda Bagas Amarullah Tanjung

https://drive.google.com/file/d/1y1HFL5MliFfhS-pj4ew9dUwpKXGkTEt_/view?usp=sharing

%%Fakta*/
ayah(citro,doni).
ayah(citro,kino).
ayah(citro,darmiji).
ayah(doni,gea).
ayah(doni,amar).
ayah(kino,ivy).
ayah(darmiji,eshan).
ibu(bu_citro,doni).
ibu(bu_citro,kino).
ibu(bu_citro,darmiji).
ibu(bu_doni,gea).
ibu(bu_doni,amar).
ibu(bu_kino,ivy).
ibu(bu_darmiji,eshan).

%Nama1 adalah saudara kandung Nama2*/
saudara_kandung(Nama,Name):-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
nama\=Name.

%Sdr1 adalah saudara sepupu sdr2*\
saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).
saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).
saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandungan(Ibu,Ayah).
saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandungan(Ibu1,Ibu2).
%%paman adalah saudara ayah*/
paman(Paman,Orang):-
saudara_kandung(Paman,Ayah),
ayah(Ayah,Orang).

Soal!
a. saudara_kandung(G,H)

b. saudara_sepupu(I,J)

c. paman(K,L)

d. saudara_kandung(NamaAnda, N)

e. saudara_sepupu(NamaAnda,T)

f. paman(K, NamaAnda)

Jawaban
?- saudara_kandung(G,H).
G = doni,
H = kino ;
G = doni,
H = darmiji ;
G = kino,
H = doni ;
G = kino,
H = darmiji ;
G = darmiji,
H = doni ;
G = darmiji,
H = kino ;
G = gea,
H = amar ;
G = amar,
H = gea ;
G = amar ;
H = ivy ;
G = eshan.

?- saudara_sepupu(I,J).
I = gea,
J = ivy ;
I = gea,
J = eshan ;
I = amar,
J = gea ;
I = J, J = amar ;
I = amar,
J = ivy ;
I = amar,
J = eshan ;
I = ivy,
J = gea ;
I = ivy,
J = amar ;
I = J, J = ivy ;
I = ivy,
J = eshan ;
I = eshan,
J = gea ;
I = eshan,
J = amar ;
I = eshan,
J = ivy ;
I = eshan.

?- paman(K,L).
K = doni,
L = ivy ;
K = doni,
L = eshan ;
K = kino,
L = gea ;
K = kino,
L = amar ;
K = kino,
L = ivy ;
K = kino,
L = eshan ;
K = darmiji,
L = gea ;
K = darmiji,
L = amar ;
K = darmiji,
L = ivy ;
K = darmiji,
L = eshan ;

?- saudara_sepupu(amar,T).
T = ivy ;
T = eshan ;

?- paman(K,amar).
K = kino ;
K = darmiji ;

Fadhlan Fajar Hawari_22117037_4KB08 mengatakan...

4KB08_22117037_Fadhlan Fajar Hawari

https://drive.google.com/file/d/1HPG69gKyunX-gvCvbu_Sqm9o5vSWmpOt/view?usp=sharing

FAKTA:
%% orangtua
ayah(hasan,ari).
ayah(hasan,toni).
ayah(ari,abi).
ayah(ari,fadhlan).
ayah(ari,naufal).
ayah(ari,shabrina).
ayah(toni,lutfan).
ayah(toni,pipi).
ayah(yato,hartini).
ayah(supardi,aisyah).
ibu(siti,ari).
Ibu(siti,toni).
ibu(hartini,abi).
ibu(hartini,fadhlan).
Ibu(hartini,naufal).
ibu(hartini,shabrina).
Ibu(aisyah,lutfan).
ibu(aisyah,pipi).
ibu(tugiyem,hartini).
ibu(munaroh,aisyah).

Aturan :

%% Nama1 adalah saudara kandung Nama2 */
saudara_kandung(Nama,Name):-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama\=Name.

%% Sdr1 adalah saudara sepupu sdr2 */

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).

%% Paman adalah saudara ayah */

paman(Paman,Orang) :-
saudara_kandung(Paman,Ayah),
ayah(Ayah,Orang).

A. saudara_kandung(G,H).

G = ari,
H = toni ;
G = toni,
H = ari ;
G = abi,
H = fadhlan ;
G = fadhlan,
H = abi ;
G = fadhlan,
H = naufal ;
G = naufal,
H = fadhlan ;
G = fadhlan,
H = shabrina;
G = shabrina,
H = fadhlan;
G = abi,
H = naufal ;
G = naufal,
H = abi ;
G = abi,
H = shabrina ;
G = shabrina,
H = abi ;
G = naufal,
H = shabrina ;
G = shabrina,
H = naufal ;
G = lutfan,
H = pipi ;
G = pipi,
H = lutfan ;

B. saudara_sepupu(I,J).

I = abi,
J = pipi ;
I = pipi,
J = abi;
I = abil,
J = lutfan ;
I = lutfan,
J = abi ;
I = fadhlan,
J = pipi ;
I = pipi,
J = fadhlan ;
I = fadhlan,
J = lutfan ;
I = lutfan,
J = fadhlan ;
I = naufal,
J = pipi ;
I = pipi,
J = naufal ;
I = naufal,
J = lutfan ;
I = lutfan,
J = naufal ;
I = shabrina,
J = pipi ;
I = pipi,
J = shabrina ;
I = shabrina,
J = lutfan ;
I = lutfan,
J = shabrina ;

C. paman(K,L).

L = abi,
K = toni ;
L = fadhlan,
K = toni ;
L = naufal,
K = toni ;
L = shabrina,
K = toni ;
L = pipi,
K = ari ;
L = lutfan,
K = ari ;
D. saudara_kandung(fadhlan,N).

N = abi ;
N = naufal;
N = shabrina

E. saudara_sepupu(fadhlan,T).

T = pipi ;
T = lutfan ;


F. paman(K,yudha).

K = toni ;

ariq mengatakan...

3KA07_17118646_Muhammad Ariq Abdurrahman

https://drive.google.com/file/d/1vp34fjhkNdxslXoPpTy78JBrVJEfAUbN/view?usp=sharing

FAKTA:
ayah(amsari,medi).
ayah(amsari,obin).
ayah(amsari,prabowo).
ayah(prabowo,ariq).
ayah(prabowo,rania).
ayah(prabowo,fatur).
ayah(medi,fajar).
ayah(medi,fahmi).
ayah(medi,nisa).
ayah(obin,nifa).
ayah(obin,asni).
ibu(rowiyah,medi).
ibu(rowiyah,obin).
ibu(rowiyah,prabowo).
ibu(dewi,ariq).
ibu(dewi,rania).
ibu(dewi,fatur).
ibu(siti,fajar).
ibu(siti,fahmi).
ibu(siti,nisa).
ibu(oca,nifa).
ibu(oca,asni).

ATURAN:
%% Nama1 adalah saudara kandung Nama2 */

saudara_kandung(Nama,Name):-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama\=Name.
%% Sdr1 adalah saudara sepupu sdr2 */


saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).


%% sdr_kdg ayah adalah paman */
paman(Paman,Orang):-
saudara_kandung(Paman,Ayah),
ayah(Ayah,Orang).

SOAL:
A.saudara_kandung(G,H)

G = medi,
H = obin ;
G = medi,
H = prabowo ;
G = obin,
H = medi ;
G = obin,
H = prabowo ;
G = prabowo,
H = medi ;
G = prabowo,
H = obin ;
G = ariq,
H = rania ;
G = ariq,
H = fatur ;
G = rania,
H = ariq ;
G = rania,
H = fatur ;
G = fatur,
H = ariq ;
G = fatur,
H = rania ;
G = fajar,
H = fahmi ;
G = fajar,
H = nisa ;
G = fahmi,
H = fajar ;
G = fahmi,
H = nisa ;
G = nisa,
H = fajar ;
G = nisa,
H = fahmi ;
G = nifa,
H = asni ;
G = asni,
H = nifa ;

B.saudara_sepupu(I,J)

I = ariq,
J = fajar ;
I = ariq,
J = fahmi ;
I = ariq,
J = nisa ;
I = ariq,
J = nifa ;
I = ariq,
J = asni ;
I = rania,
J = fajar ;
I = rania,
J = fahmi ;
I = rania,
J = nisa ;
I = rania,
J = nifa ;
I = rania,
J = asni ;
I = fatur,
J = fajar ;
I = fatur,
J = fahmi ;
I = fatur,
J = nisa ;
I = fatur,
J = nifa ;
I = fatur,
J = asni ;
I = fajar,
J = ariq ;
I = fajar,
J = rania ;
I = fajar,
J = fatur ;
I = fajar,
J = nifa ;
I = fajar,
J = asni ;
I = fahmi,
J = ariq ;
I = fahmi,
J = rania ;
I = fahmi,
J = fatur ;
I = fahmi,
J = nifa ;
I = fahmi,
J = asni ;
I = nisa,
J = ariq ;
I = nisa,
J = rania ;
I = nisa,
J = fatur ;
I = nisa,
J = nifa ;
I = nisa,
J = asni ;
I = nifa,
J = ariq ;
I = nifa,
J = rania ;
I = nifa,
J = fatur ;
I = nifa,
J = fajar ;
I = nifa,
J = fahmi ;
I = nifa,
J = nisa ;
I = asni,
J = ariq ;
I = asni,
J = rania ;
I = asni,
J = fatur ;
I = asni,
J = fajar ;
I = asni,
J = fahmi ;
I = asni,
J = nisa ;

C.paman(K,L)

K = medi,
L = nifa ;
K = medi,
L = asni ;
K = medi,
L = ariq ;
K = medi,
L = rania ;
K = medi,
L = fatur ;
K = obin,
L = fajar ;
K = obin,
L = fahmi ;
K = obin,
L = nisa ;
K = obin,
L = ariq ;
K = obin,
L = rania ;
K = obin,
L = fatur ;
K = prabowo,
L = fajar ;
K = prabowo,
L = fahmi ;
K = prabowo,
L = nisa ;
K = prabowo,
L = nifa ;
K = prabowo,
L = asni ;

D.saudara_kandung(ariq, N)

N = rania ;
N = fatur.

E.saudara_sepupu(ariq,T)

T = fajar ;
T = fahmi ;
T = nisa ;
T = nifa ;
T = asni ;

F.paman(K, ariq)
K = medi ;
K = obin ;

Vina Oktaviana mengatakan...

3KA08_17118238_VINA OKTAVIANA

https://drive.google.com/file/d/1O55jm7A1c7GKp1TEdQH9PD1MKB0aP8-M/view?usp=sharing

-Fakta:
%% orangtua */
ayah(sudiono,jodi).
ayah(sudiono,yani).
ayah(sudiono,debby).
ayah(sudiono,agung).
ayah(jodi,vina).
ayah(jodi,adi).
ayah(jodi,tia).
ayah(ari,niken).
ayah(ari,adit).
ayah(dana,dinda).
ayah(dana,ananda).
ibu(ina,vina).
ibu(ina,adi).
ibu(ina,tia).
ibu(yani,niken).
ibu(yani,adit).
ibu(debby,dinda).
ibu(debby,ananda).
ibu(sumarti,jodi).
ibu(sumarti,yani).
ibu(sumarti,debby).
ibu(sumarti,agung).

-Aturan:
%%Nama1 adalah saudara kandung Nama2*/
saudara_kandung(Nama,Name):-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama\=Name.

%%Sdr1 adalah saudara sepupu Sdr2*/
saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).

%%paman adalah saudara ayah*/
paman(Paman,Orang):-
saudara_kandung(Paman,Ayah),
ayah(Ayah,Orang).

output:

A.?- saudara_kandung(G,H).
G = jodi,
H = yani ;
G = jodi,
H = debby ;
G = jodi,
H = agung ;
G = yani,
H = jodi ;
G = yani,
H = debby ;
G = yani,
H = agung ;
G = debby,
H = jodi ;
G = debby,
H = yani ;
G = debby,
H = agung ;
G = agung,
H = jodi ;
G = agung,
H = yani ;
G = agung,
H = debby ;
G = vina,
H = adi ;
G = vina,
H = tia ;
G = adi,
H = vina ;
G = adi,
H = tia ;
G = tia,
H = vina ;
G = tia,
H = adi ;
G = niken,
H = adit ;
G = adit,
H = niken ;
G = dinda,
H = ananda ;
G = ananda,
H = dinda ;

B.?- saudara_sepupu(I,J).
I = vina,
J = niken ;
I = vina,
J = adit ;
I = vina,
J = dinda ;
I = vina,
J = ananda ;
I = adi,
J = niken ;
I = adi,
J = adit ;
I = adi,
J = dinda ;
I = adi,
J = ananda ;
I = tia,
J = niken ;
I = tia,
J = adit ;
I = tia,
J = dinda ;
I = tia,
J = ananda ;
I = niken,
J = vina ;
I = niken,
J = adi ;
I = niken,
J = tia ;
I = adit,
J = vina ;
I = adit,
J = adi ;
I = adit,
J = tia ;
I = dinda,
J = vina ;
I = dinda,
J = adi ;
I = dinda,
J = tia ;
I = ananda,
J = vina ;
I = ananda,
J = adi ;
I = ananda,
J = tia ;
I = niken,
J = dinda ;
I = niken,
J = ananda ;
I = adit,
J = dinda ;
I = adit,
J = ananda ;
I = dinda,
J = niken ;
I = dinda,
J = adit ;
I = ananda,
J = niken ;
I = ananda,
J = adit ;

C.?- paman(K,L).
K = agung,
L = vina ;
K = agung,
L = adi ;
K = agung,
L = tia ;

D.?- saudara_kandung(vina,N).
N = adi ;
N = tia.

E.?- saudara_sepupu(vina,T).
T = niken ;
T = adit ;
T = dinda ;
T = ananda ;

F.?- paman(K,vina)
K = agung ;

Muhamad Jaya mengatakan...

3KA07, 14118340, Muhamad Jaya

1.
https://drive.google.com/file/d/1J_zqnrpqHNqhP3mcNOwmocP3SXhWP4iR/view?usp=sharing

%% FAKTA */
%% orang tua */
ayah(wagimin,sarip).
ayah(wagimin,paitun).
ayah(wagimin,jumitri).
ayah(katiam,madinah).
ayah(sarip,nangin).
ayah(sarip,iwan).
ayah(madinah,paltini).
ayah(madinah,darmini).
ayah(madinah,abdul).
ayah(madinah,muhamadjaya).
ayah(waskani,suradi).
ibu(lastri,sarip).
ibu(lastri,paitun).
ibu(lastri,jumitri).
ibu(saodah,madinah).
ibu(emeh,nangin).
ibu(emeh,iwan).
ibu(paitun,paltini).
ibu(paitun,darmini).
ibu(paitun,abdul).
ibu(paitun,muhamadjaya).
ibu(jumitri,suradi).

2.
%% ATURAN */
%% Nama adalah saudara kandung Name */
saudara_kandung(Nama,Name):-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama\=Name.


%% Sdr1 adalah saudara sepupu sdr2 */
saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).

%% Paman adalah ayah dari saudara sepupu */
paman(Paman,Orang):-
saudara_sepupu(Orang,Sdr1),
ayah(Paman,Sdr1).

3.
Output program Prolog :

a.
?- saudara_kandung(G,H).
G = sarip,
H = paitun ;
G = sarip,
H = jumitri ;
G = paitun,
H = sarip ;
G = paitun,
H = jumitri ;
G = jumitri,
H = sarip ;
G = jumitri,
H = paitun ;
G = nangin,
H = iwan ;
G = iwan,
H = nangin ;
G = paltini,
H = darmini ;
G = paltini,
H = abdul ;
G = paltini,
H = muhamadjaya ;
G = darmini,
H = paltini ;
G = darmini,
H = abdul ;
G = darmini,
H = muhamadjaya ;
G = abdul,
H = paltini ;
G = abdul,
H = darmini ;
G = abdul,
H = muhamadjaya ;
G = muhamadjaya,
H = paltini ;
G = muhamadjaya,
H = darmini ;
G = muhamadjaya,
H = abdul ;

b.
?- saudara_sepupu(I,J).
I = nangin,
J = paltini ;
I = nangin,
J = darmini ;
I = nangin,
J = abdul ;
I = nangin,
J = muhamadjaya ;
I = nangin,
J = suradi ;
I = iwan,
J = paltini ;
I = iwan,
J = darmini ;
I = iwan,
J = abdul ;
I = iwan,
J = muhamadjaya ;
I = iwan,
J = suradi ;
I = paltini,
J = nangin ;
I = paltini,
J = iwan ;
I = darmini,
J = nangin ;
I = darmini,
J = iwan ;
I = abdul,
J = nangin ;
I = abdul,
J = iwan ;
I = muhamadjaya,
J = nangin ;
I = muhamadjaya,
J = iwan ;
I = suradi,
J = nangin ;
I = suradi,
J = iwan ;
I = paltini,
J = suradi ;
I = darmini,
J = suradi ;
I = abdul,
J = suradi ;
I = muhamadjaya,
J = suradi ;
I = suradi,
J = paltini ;
I = suradi,
J = darmini ;
I = suradi,
J = abdul ;
I = suradi,
J = muhamadjaya ;

c.
?- paman(K,L).
K = madinah,
L = nangin ;
K = madinah,
L = nangin ;
K = madinah,
L = nangin ;
K = madinah,
L = nangin ;
K = waskani,
L = nangin ;
K = madinah,
L = iwan ;
K = madinah,
L = iwan ;
K = madinah,
L = iwan ;
K = madinah,
L = iwan ;
K = waskani,
L = iwan ;
K = sarip,
L = paltini ;
K = sarip,
L = paltini ;
K = sarip,
L = darmini ;
K = sarip,
L = darmini ;
K = sarip,
L = abdul ;
K = sarip,
L = abdul ;
K = sarip,
L = muhamadjaya ;
K = sarip,
L = muhamadjaya ;
K = sarip,
L = suradi ;
K = sarip,
L = suradi ;
K = waskani,
L = paltini ;
K = waskani,
L = darmini ;
K = waskani,
L = abdul ;
K = waskani,
L = muhamadjaya ;
K = madinah,
L = suradi ;
K = madinah,
L = suradi ;
K = madinah,
L = suradi ;
K = madinah,
L = suradi ;

d.
?- saudara_kandung(muhamadjaya,N).
N = paltini ;
N = darmini ;
N = abdul ;

e.
?- saudara_sepupu(muhamadjaya,T).
T = nangin ;
T = iwan ;
T = suradi.

f.
?- paman(K,muhamadjaya).
K = sarip ;
K = sarip ;
K = waskani.

Muhammad Ihsan Rafii mengatakan...

4KB08_24117064_Muhammad Ihsan Rafii

https://drive.google.com/file/d/1Av2jlivKEw0P_XZnTdYVfYeYE7TsPPKC/view?usp=sharing

Fakta :

%orangtua*/
ayah(pajitan,sugeng).
ayah(pajitan,budi).
ayah(panut,sari).
ayah(panut,alisadikin).
ayah(alisadikin,retno).
ayah(alisadikin,nabila).
ayah(sugeng,ihsan).
ayah(sugeng,nurul).
ayah(budi,kukuh).
ayah(heri,arya).
ayah(dani,naila).
ayah(dani,asya).
ayah(dede,dara).
ibu(suripsuriyanti,sugeng).
ibu(suripsuriyanti,budi).
ibu(siti,sari).
ibu(siti,alisadikin).
ibu(warsikem,retno).
ibu(warsikem,nabila).
ibu(sari,nurul).
ibu(sari,ihsan).
ibu(iroh,kukuh).
ibu(retno,arya).
ibu(nurul,naila).
ibu(nurul,asya).
ibu(kukuh,dara).

Aturan :
%Nama1 adalah saudara kandung Nama2*/
saudara_kandung(Nama,Name):-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama\=Name.

%Sdr1 adalah saudara sepupu sdr2*/
saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).

%Paman adalah saudara kandung ayah*/
paman(Paman,Orang):-
saudara_kandung(Paman,Ayah),
ayah(Ayah,Orang).

%Paman adalah saudara kandung ibu*/
paman1(Paman1,Orang):-
saudara_kandung(Paman1,Ibu),
ibu(Ibu,Orang).

Output :
a. saudara_kandung(G,H).
?-saudara_kandung(G,H).
G = sugeng,
H = budi ;
G = budi,
H = sugeng ;
G = sari,
H = alisadikin ;
G = alisadikin,
H = sari ;
G = retno,
H = nabila ;
G = nabila,
H = retno ;
G = ihsan,
H = nurul ;
G = nurul,
H = ihsan ;
G = naila,
H = asya ;
G = asya,
H = naila ;

b. saudara_sepupu(I,J).
?-saudara_sepupu(I,J).
I = ihsan,
J = kukuh ;
I = nurul,
J = kukuh ;
I = kukuh,
J = ihsan ;
I = kukuh,
J = nurul ;
I = retno,
J = nurul ;
I = retno,
J = ihsan ;
I = nabila,
J = nurul ;
I = nabila,
J = ihsan ;
I = nurul,
J = retno ;
I = nurul,
J = nabila ;
I = ihsan,
J = retno ;
I = ihsan,
J = nabila ;

c. paman(K,L).
?-paman(K,L).
K = sugeng,
L = kukuh ;
K = budi,
L = ihsan ;
K = budi,
L = nurul ;
K = sari,
L = retno ;
K = sari,
L = nabila ;

d. saudara_kandung(NamaAnda,N).
?- saudara_kandung(ihsan,N).
N = nurul.

e. saudara_sepupu(NamaAnda,T).
?- saudara_sepupu(ihsan,T).
T = kukuh ;
T = retno ;
T = nabila ;

f. paman(K,Anda).
?- paman(K,ihsan).
K = budi ;

g. paman1(K,ihsan).
?- paman1(K,ihsan).
K = alisadikin ;

Rivaldi Adi F mengatakan...

4KB08_25117264_Rivaldi Adi Fadhilah

https://drive.google.com/drive/u/0/folders/1hdaAazHppuD6z6GiLe0g9KXf4cN9RolR

%% fakta
% orangtua

ayah(mugino,wanto).
ayah(mugino,yanto).
ayah(mugino,tato).
ayah(mugino,sri).
ayah(subandi,arum).
ayah(subandi,eti).
ayah(subandi,wahri).
ayah(wanto,lina).
ayah(wanto,adi).
ayah(wanto,vilah).
ayah(wanto,rafa).
ayah(yanto,agung).
ayah(yanto,bobi).
ayah(tato,dina).
ayah(tato,arul).
ibu(bu_wagiyah,wanto).
ibu(bu_wagiyah,yanto).
ibu(bu_wagiyah,tato).
ibu(bu_wagiyah,sri).
ibu(bu_nanih,arum).
ibu(bu_nanih,eti).
ibu(bu_nanih,wahri).
ibu(arum,lina).
ibu(arum,adi).
ibu(arum,vilah).
ibu(arum,rafa).
ibu(dar,agung).
ibu(dar,bobi).
ibu(atun,dina).
ibu(atun,arul).

%% Nama1 adalah saudara kandung Name2*/
saudara_kandung(Nama,Name) :-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama \= Name.

%%Sdr1 adalah saudara sepupu Sdr2*/
saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).

%%Paman adalah saudara ayah */
paman(Paman,Orang):-
saudara_kandung(Paman,Ayah),
ayah(Ayah,Orang).

Output:
?-saudara_Kandung(G,H)
G = wanto;
H = yanto;
G = yanto;
H = wanto;
G = wanto;
H = tato;
G = tato;
H = wanto;
G = wanto;
H = sri;
G = sri;
H = wanto;
G = tato;
H = yanto;
G = yanto;
H = tato;
G = tato;
H = sri;
G = sri;
H = tato;
G = arum;
H = eti;
G = eti;
H = arum;
G = arum;
H = wahri;
G = wahri;
H = arum;
G = eti;
H = wahri;
G = wahri;
H = eti;

?-saudara_sepupu(I,J)
I = agung
J = bobi
I = bobi
J = agung
I = dina
J = arul
I = arul
J = dina

?-paman(K,L)
K = wanto;
L = agung;
K = wanto;
L = bobi;
K = wanto;
L = dina;
K = wanto;
L = arul;

?-saudara_kandung(adi, N)
N = lina;
N = vilah;
N = rafa;

?-saudara_sepupu(adi,T)
T = agung;
T = bobi;
T = dina;
T = arul;

?-paman(K,adi)
K = yanto;
K = tato;

Andrias Indra mengatakan...

3KA07, 14118476, Muhammad Andrias Indra W

1.
https://drive.google.com/file/d/1f7JZzLSI8wJ-x6dfpTddJvMwltZUQsm0/view?usp=sharing

%% FAKTA */
%%orang tua */
ayah(ade,bagas).
ayah(ade,indra).
ayah(adhy,naufal).
ayah(adhy,hafidz).
ayah(momon,ade).
ayah(momon,adhy).
ibu(hiqma,bagas).
ibu(hiqma,indra).
ibu(lela,naufal).
ibu(lela,hafidz).
ibu(masfufah,ade).
ibu(masfufah,adhy).

2.
Aturan :

%% Nama1 adalah saudara kandung Nama2 */
saudara_kandung(Nama,Name):-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama\=Name.

%% Sdr1 adalah saudara sepupu sdr2 */
saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).

%% sdr_kdg ayah adalah paman */
paman(Paman,Orang):-
saudara_kandung\=(perempuan),
saudara_kandung(Paman,Ayah),
ayah(Ayah,Orang).

OUTPUT :

a. saudara_kandung(G,H).
G = bagas,
H = indra ;
G = indra,
H = bagas ;
G = naufal,
H = hafidz ;
G = hafidz,
H = naufal ;
G = ade,
H = adhy ;
G = adhy,
H = ade ;

b. saudara_sepupu(I,J).
I = bagas,
J = naufal ;
I = bagas,
J = hafidz ;
I = indra,
J = naufal ;
I = indra,
J = hafidz ;
I = naufal,
J = bagas ;
I = naufal,
J = indra ;
I = hafidz,
J = bagas ;
I = hafidz,
J = indra ;

c. paman(K,L).
K = ade,
L = naufal ;
K = ade,
L = hafidz ;
K = adhy,
L = bagas ;
K = adhy,
L = indra ;

d. saudara_kandung(indra,N).
N = bagas ;

e. saudara_sepupu(indra,T).
T = naufal ;
T = hafidz ;

f. paman(K,indra).
K = adhy ;

Filo mengatakan...
Komentar ini telah dihapus oleh pengarang.
Fadhlan Fajar Hawari_22117037_4KB08 mengatakan...

4KB08_22117037_Fadhlan Fajar Hawari

https://drive.google.com/file/d/1HPG69gKyunX-gvCvbu_Sqm9o5vSWmpOt/view?usp=sharing

FAKTA:
%% orangtua
ayah(hasan,ari).
ayah(hasan,toni).
ayah(ari,abi).
ayah(ari,fadhlan).
ayah(ari,naufal).
ayah(ari,shabrina).
ayah(toni,lutfan).
ayah(toni,pipi).
ayah(yato,hartini).
ayah(supardi,aisyah).
ibu(siti,ari).
Ibu(siti,toni).
ibu(hartini,abi).
ibu(hartini,fadhlan).
Ibu(hartini,naufal).
ibu(hartini,shabrina).
Ibu(aisyah,lutfan).
ibu(aisyah,pipi).
ibu(tugiyem,hartini).
ibu(munaroh,aisyah).

Aturan :

%% Nama1 adalah saudara kandung Nama2 */
saudara_kandung(Nama,Name):-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama\=Name.

%% Sdr1 adalah saudara sepupu sdr2 */

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).

%% Paman adalah saudara ayah */

paman(Paman,Orang) :-
saudara_kandung(Paman,Ayah),
ayah(Ayah,Orang).

A. saudara_kandung(G,H).

G = ari,
H = toni ;
G = toni,
H = ari ;
G = abi,
H = fadhlan ;
G = fadhlan,
H = abi ;
G = fadhlan,
H = naufal ;
G = naufal,
H = fadhlan ;
G = fadhlan,
H = shabrina;
G = shabrina,
H = fadhlan;
G = abi,
H = naufal ;
G = naufal,
H = abi ;
G = abi,
H = shabrina ;
G = shabrina,
H = abi ;
G = naufal,
H = shabrina ;
G = shabrina,
H = naufal ;
G = lutfan,
H = pipi ;
G = pipi,
H = lutfan ;

B. saudara_sepupu(I,J).

I = abi,
J = pipi ;
I = pipi,
J = abi;
I = abil,
J = lutfan ;
I = lutfan,
J = abi ;
I = fadhlan,
J = pipi ;
I = pipi,
J = fadhlan ;
I = fadhlan,
J = lutfan ;
I = lutfan,
J = fadhlan ;
I = naufal,
J = pipi ;
I = pipi,
J = naufal ;
I = naufal,
J = lutfan ;
I = lutfan,
J = naufal ;
I = shabrina,
J = pipi ;
I = pipi,
J = shabrina ;
I = shabrina,
J = lutfan ;
I = lutfan,
J = shabrina ;

C. paman(K,L).

L = abi,
K = toni ;
L = fadhlan,
K = toni ;
L = naufal,
K = toni ;
L = shabrina,
K = toni ;
L = pipi,
K = ari ;
L = lutfan,
K = ari ;
D. saudara_kandung(fadhlan,N).

N = abi ;
N = naufal;
N = shabrina

E. saudara_sepupu(fadhlan,T).

T = pipi ;
T = lutfan ;


F. paman(K,fadhlan).

K = toni ;

Achmad Fahim mengatakan...

4KB08, 20117052, Achmad Fahim

1.

https://drive.google.com/file/d/12nIb2OJXCN8EtRdpYBAnXoJDPn50zIUb/view?usp=sharing

%% fakta
%% orangtua
ayah(arsyad,baihaki).
ayah(arsyad,hasyim).
ayah(baihaki,fahim).
ayah(baihaki,syafiq).
ayah(baihaki,syauqi).
ayah(hasyim,aldi).
ayah(hasyim,aldo).
ayah(tamin,inayah).
ayah(supri,lisa).
ibu(rosida,baihaki).
ibu(rosida,hasyim).
ibu(inayah,fahim).
ibu(inayah,syafiq).
ibu(lisa,aldi).
ibu(lisa,aldo).
ibu(hana,inayah).
ibu(susi,lisa).

%% ATURAN
%% Kakek adalah kakek Cucu
kakek(Kakek,Cucu) :-
ayah(Ayah,Cucu),ayah(Kakek,Ayah).
kakek(Kakek,Cucu) :-
ibu(Ibu,Cucu),ayah(Kakek,Ibu).

%% Nenek adalah nenek Cucu */
nenek(Nenek,Cucu) :-
ayah(Ayah,Cucu),ibu(Nenek,Ayah).
nenek(Nenek,Cucu) :-
ibu(Ibu,Cucu),ibu(Nenek,Ibu).


%% Nama adalah saudara kandung Name
saudara_kandung(Nama,Name):-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama\=Name.

%% Sdr1 adalah saudara sepupu Sdr2
saudara_sepupu(Sdr1,Sdr2) :- ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2), saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sdr1,Sdr2) :- ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2), saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr1,Sdr2) :-
ibu(Ibu,Sdr1), ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sdr1,Sdr2) :-
ibu(Ibu1,Sdr1), ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).


%% paman adalah saudara ayah
paman(Paman,Orang):-
saudara_kandung(Paman,Ayah),
ayah(Ayah,Orang).


Output program Prolog:
Output:
a. saudara_kandung(G,H).
?- saudara_kandung(G,H).
G=baihaki,
H=hasyim;
G=hasyim,
H=baihaki;
G=fahim,
H=syafiq;
G=fahim,
H=syauqi;
G=syafiq,
H=fahim;
G=syafiq,
H=syauqi;
G=syauqi,
H=fahim;
G=syauqi,
H=syafiq;
G=aldo,
H=aldi;
G=aldi,
H=aldo;

b. saudara_sepupu(I,J).
?- saudara_sepupu(I,J).
I=fahim,
J=aldi;
I=fahim,
J=aldo;
I=syafiq,
J=aldi;
I=syafiq,
J=aldo;
I=syauqi,
J=aldi;
I=syauqi,
J=aldo;
I=aldi,
J=fahim;
I=aldi,
J=syafiq;
I=aldi,
J=syauqi;
I=aldo,
J=fahim;
I=aldo,
J=syafiq;
I=aldo,
J=syauqi;

c. paman(K,L).
?- paman(K,L).
K=hasyim,
L=fahim;
K=hasyim,
L=syafiq;
K=hasyim,
L=syauqi;
K=baihaki,
L=aldi;
K=baihaki,
L=aldo;

d. saudara_kandung(NamaAnda,N).
?- saudara_kandung(fahim,N)
N=syafiq;
N=syauqi;

e. saudara_sepupu(NamaAnda,T).
?- saudara_sepupu(fahim,T).
T=aldi;
T=aldo;

f. paman(K,NamaAnda).
?- paman(K,fahim).
K=hasyim;

Unknown mengatakan...

4KB08_22117453_Fyasrizky Radjaardy Rumbayan

LINK GOOGLE DRIVE
https: https://drive.google.com/file/d/11EB2q9fMzyXqs6gxbkDYsF5aK-lVEWY4/view?usp=sharing

FAKTA:
%% orangtua
ayah(alexander,fery).
ayah(alexander,hengky).
ayah(fery,fyasrizky).
ayah(hengky,heni).
ayah(hengky,lidya).
ayah(soepardi,budi).
ayah(soepardi,dwi).
ayah(budi,indra)
ayah(amin,sulami).
ibu(yuliana,fery).
ibu(yuliana,hengky).
ibu(arum,indra).
ibu(dwi,fyasrizky).
ibu(sulami,heni).
ibu(sulami,lidya).

Aturan :

%% Nama1 adalah saudara kandung Nama2 */
saudara_kandung(Nama,Name):-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama\=Name.

%% Sdr1 adalah saudara sepupu sdr2 */

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).

%% Paman adalah saudara ayah */

paman(Paman,Orang) :-
saudara_kandung(Paman,Ayah),
ayah(Ayah,Orang).

A. saudara_kandung(G,H).

G = fery,
H = hengky ;
G = hengky,
H = fery ;
G = fyasrizky ;
H = fyasrizky,
G = heni ;
H = heni,
G = lidya ;
H = lidya,
G = budi;
H = indra ;
G = indra,


B. saudara_sepupu(I,J).

I = fyasrizky,
J = heni ;
I = heni,
J = lidya ;
I = lidya,
J = indra ;
I = indra,

C. paman(K,L).

L = budi,
K = hengky ;
L = fyasrizky,
K = indra ;
L = fery ;
K = heni,
L = fery ;
K = lidya,
L = fery ;
K = indra,

D. saudara_kandung(fyasrizky,N)

N = -

E. saudara_sepupu(fyasrizky,T)

T = heni ;
T = lidya ;
T = indra ;

F. paman(K, fyasrizky)

K = hengky ;
K = budi ;

Cici Al Tasya mengatakan...
Komentar ini telah dihapus oleh pengarang.
Cici Al Tasya mengatakan...

3KA07_11118555_Cici Al Tasya

Link Google Drive : https://drive.google.com/file/d/1SE_QDAdEFMkz56vxMymRl-HE7qqhiIGc/view?usp=sharing

Fakta :
%%orang tua */
ayah(abdul,aldi).
ayah(abdul,tasya).
ayah(misran,annis).
ayah(misran,annas).
ayah(edi,angga).
ayah(edi,luki).
ayah(tamsur,abdul).
ayah(tamsur,misran).
ayah(tamsur,edi).
ibu(sri,aldi).
ibu(sri,tasya).
ibu(listiowati,annis).
ibu(listiowati,annas).
ibu(itoh,angga).
ibu(itoh,luki).
ibu(larashati,abdul).
ibu(larashati,misran).
ibu(larashati,edi).

Aturan :
%% Nama1 adalah saudara kandung Nama2 */
saudara_kandung(Nama,Name):-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama\=Name.

%% Sdr1 adalah saudara sepupu sdr2 */

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).

%% Paman adalah saudara ayah */
paman(Paman,Orang) :-
saudara_kandung(Paman,Ayah),
ayah(Ayah,Orang).




Soal dan Jawaban :

A. saudara_kandung(G,H).
G = aldi,
H = tasya ;
G = tasya,
H = aldi ;
G = annis,
H = annas ;
G = annas,
H = annis ;
G = angga,
H = luki ;
G = luki,
H = angga ;
G = abdul,
H = misran ;
G = abdul,
H = edi ;
G = misran,
H = abdul ;
G = misran,
H = edi ;
G = edi,
H = abdul ;
G = edi,
H = misran ;

B. saudara_sepupu(I,J).
I = aldi,
J = annis ;
I = aldi,
J = annas ;
I = aldi,
J = angga ;
I = aldi,
J = luki ;
I = annis,
J = aldi ;
I = annis,
J = tasya ;
I = annis,
J = angga ;
I = annis,
J = luki ;
I = annas,
J = aldi ;
I = annas,
J = tasya ;
I = annas,
J = angga ;
I = annas,
J = luki ;
I = angga,
J = aldi ;
I = angga,
J = tasya ;
I = angga,
J = annis ;
I = angga,
J = annas ;
I = luki,
J = aldi ;
I = luki,
J = tasya ;
I = luki,
J = annis ;
I = luki,
J = annas;

C. paman(K,L).
K = abdul,
L = annis ;
K = abdul,
L = annas ;
K = abdul,
L = angga ;
K = abdul,
L = luki ;
K = misran,
L = aldi ;
K = misran,
L = tasya ;
K = misran,
L = angga ;
K = misran,
L = luki ;
K = edi,
L = aldi ;
K = edi,
L = tasya ;
K = edi,
L = annis ;
K = edi,
L = annas ;

D. saudara_kandung(tasya,N).
N = aldi ;

E. saudara_sepupu(tasya,T).
T = annis ;
T = annas ;
T = angga ;
T = luki ;

F. paman(K,tasya).
K = misran ;
K = edi ;

Soraya Annisa mengatakan...

3KA07, 16118813, Soraya Annisa,

1. https://drive.google.com/file/d/1EKRuy4p6NBT2LBrB3fiIACWuifM68FBa/view?usp=sharing

Fakta :
%%orang tua */
ayah(rachman,haris).
ayah(rachman,awan).
ayah(rachman,imal).
ayah(rachman,hendra).
ayah(haris,fachri).
ayah(awan,soraya).
ayah(awan,wastu).
ayah(awan,andi).
ayah(imal,zafira).
ayah(imal,ardhian).
ayah(hendra,farras).
ayah(hendra,gheisan).
ibu(masripah,haris).
ibu(masripah,awan).
ibu(masripah,imal).
ibu(masripah,hendra).
ibu(eti,fachri).
ibu(ida,soraya).
ibu(ida,wastu).
ibu(ida,andi).
ibu(farida,zafira).
ibu(farida,ardhian).
ibu(ning,farras).
ibu(ning,gheisan).

2. Aturan :
%% Nama1 adalah saudara kandung Nama2 */

saudara_kandung(Nama,Name):-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama\=Name.


%% Sdr1 adalah saudara sepupu sdr2 */


saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).

%% sdr_kdg ayah adalah paman */
paman(Paman,Orang):-
saudara_kandung\=(perempuan),
saudara_kandung(Paman,Ayah),
ayah(Ayah,Orang).

3. Output :

a. saudara_kandung(G,H).
G = haris,
H = awan ;
G = haris,
H = imal ;
G = haris,
H = hendra ;
G = awan,
H = haris ;
G = awan,
H = imal ;
G = awan,
H = hendra ;
G = imal,
H = haris ;
G = imal,
H = awan ;
G = imal,
H = hendra ;
G = hendra,
H = haris ;
G = hendra,
H = awan ;
G = hendra,
H = imal ;
G = soraya,
H = wastu ;
G = soraya,
H = andi ;
G = wastu,
H = soraya ;
G = wastu,
H = andi ;
G = andi,
H = soraya ;
G = andi,
H = wastu ;
G = zafira,
H = ardhian ;
G = ardhian,
H = zafira ;
G = farras,
H = gheisan ;
G = gheisan,
H = farras ;

b. saudara_sepupu(I,J).
I = fachri,
J = soraya ;
I = fachri,
J = wastu ;
I = fachri,
J = andi ;
I = fachri,
J = zafira ;
I = fachri,
J = ardhian ;
I = fachri,
J = farras ;
I = fachri,
J = gheisan ;
I = soraya,
J = fachri ;
I = soraya,
J = zafira ;
I = soraya,
J = ardhian ;
I = soraya,
J = farras ;
I = soraya,
J = gheisan ;
I = wastu,
J = fachri ;
I = wastu,
J = zafira ;
I = wastu,
J = ardhian ;
I = wastu,
J = farras ;
I = wastu,
J = gheisan ;
I = andi,
J = fachri ;
I = andi,
J = zafira ;
I = andi,
J = ardhian ;
I = andi,
J = farras ;
I = andi,
J = gheisan ;
I = zafira,
J = fachri ;
I = zafira,
J = soraya ;
I = zafira,
J = wastu ;
I = zafira,
J = andi ;
I = zafira,
J = farras ;
I = zafira,
J = gheisan ;
I = ardhian,
J = fachri ;
I = ardhian,
J = soraya ;
I = ardhian,
J = wastu ;
I = ardhian,
J = andi ;
I = ardhian,
J = farras ;
I = ardhian,
J = gheisan ;
I = farras,
J = fachri ;
I = farras,
J = soraya ;
I = farras,
J = wastu ;
I = farras,
J = andi ;
I = farras,
J = zafira ;
I = farras,
J = ardhian ;
I = gheisan,
J = fachri ;
I = gheisan,
J = soraya ;
I = gheisan,
J = wastu ;
I = gheisan,
J = andi ;
I = gheisan,
J = zafira ;
I = gheisan,
J = ardhian ;

c. paman(K,L).
K = haris,
L = soraya ;
K = haris,
L = wastu ;
K = haris,
L = andi ;
K = haris,
L = zafira ;
K = haris,
L = ardhian ;
K = haris,
L = farras ;
K = haris,
L = gheisan ;
K = awan,
L = fachri ;
K = awan,
L = zafira ;
K = awan,
L = ardhian ;
K = awan,
L = farras ;
K = awan,
L = gheisan ;
K = imal,
L = fachri ;
K = imal,
L = soraya ;
K = imal,
L = wastu ;
K = imal,
L = andi ;
K = imal,
L = farras ;
K = imal,
L = gheisan ;
K = hendra,
L = fachri ;
K = hendra,
L = soraya ;
K = hendra,
L = wastu ;
K = hendra,
L = andi ;
K = hendra,
L = zafira ;
K = hendra,
L = ardhian;

d. saudara_kandung(soraya,N).
N = wastu ;
N = andi.

e. saudara_sepupu(soraya_N).
N = fachri ;
N = zafira ;
N = ardhian ;
N = farras ;
N = gheisan ;

f. paman(K,soraya).
K = haris ;
K = imal ;
K = hendra ;

Rau mengatakan...

3KA07. Rauartha, 15118925,

1.https://drive.google.com/drive/folders/1XaEw8FAx0JKuYOleIAxYe8GVKo68PFwC?usp=sharing

Fakta:
%%orang tua */
ayah(ade,rae).
ayah(ade,raih).
ayah(ade,rau).
ayah(ade,rao).
ayah(gingin,nita).
ayah(gingin,egi).
ayah(tamrie,ade).
ayah(tamrie,gingin).
ibu(esin,rae).
ibu(esin,raih).
ibu(esin,rau).
ibu(esin,rao).
ibu(nining,nita).
ibu(nining,egi).
ibu(sopiah,ade).
ibu(sopiah,gingin).

2.Aturan:
%% Kakek adalah kakek cucu */
kakek(Kakek,Cucu):-ayah(Ayah,Cucu),ayah(Kakek,Ayah).

kakek(Kakek,Cucu):-ibu(Ibu,Cucu),ayah(Kakek,Ibu).

%% Nenek adalah nenek cucu */
nenek(Nenek,Cucu):-ayah(Ayah,Cucu),ibu(Nenek,Ayah).

nenek(Nenek,Cucu):-ibu(Ibu,Cucu),ibu(Nenek,Ibu).

%% Nama1 adalah saudara kandung Nama2 */

saudara_kandung(Nama,Name):-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama\=Name.


%% Sdr1 adalah saudara sepupu sdr2 */


saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).

%% sdr_kdg ayah adalah paman */
paman(Paman,Orang):-
saudara_kandung\=(perempuan),
saudara_kandung(Paman,Ayah),
ayah(Ayah,Orang).

3.Output:
a.saudara_kandung
?- saudara_kandung(G,H).
G = rae,
H = raih ;
G = rae,
H = rau ;
G = rae,
H = rao ;
G = raih,
H = rae ;
G = raih,
H = rau ;
G = raih,
H = rao ;
G = rau,
H = rae ;
G = rau,
H = raih ;
G = rau,
H = rao ;
G = rao,
H = rae ;
G = rao,
H = raih ;
G = rao,
H = rau ;
G = nita,
H = egi ;
G = egi,
H = nita ;

b.saudara_sepupu
- saudara_sepupu(I,J).
I = rae,
J = nita ;
I = rae,
J = egi ;
I = raih,
J = nita ;
I = raih,
J = egi ;
I = rau,
J = nita ;
I = rau,
J = egi ;
I = rao,
J = nita ;
I = rao,
J = egi ;
I = nita,
J = rae ;
I = nita,
J = raih ;
I = nita,
J = rau ;
I = nita,
J = rao ;
I = egi,
J = rae ;
I = egi,
J = raih ;
I = egi,
J = rau ;
I = egi,
J = rao ;

c.paman
- paman(K,L).
K = ade,
L = nita ;
K = ade,
L = egi ;
K = gingin,
L = rae ;
K = gingin,
L = raih ;
K = gingin,
L = rau ;
K = gingin,
L = rao ;

d. - saudara_kandung(rau,N).
N = rae ;
N = raih ;
N = rao.

e. - saudara_sepupu(rau,N).
N = nita ;
N = egi ;'

f. - paman(K,rau).
K = gingin ;

Abdullah Muafa mengatakan...

3KA07, 10118035, Abdullah Muafa Output Program Prolog :
1. https://drive.google.com/file/d/1GHU2ANigYMNsE5vNtniJ1EgOHZwqGIA9/view?usp=sharing

2. -.saudara_kandung(A,B) : saudara_kandung(Nama,Name):-ayah(Ayah,Nama),ayah(Ayah,Name),mama(Mama,Nama),mama(Mama,Name),Nama\=Name.
-.saudara_sepupu(A,B) : %% Sdr1 adalah saudara sepupu sdr2 */
saudara_sepupu(Sdr1,Sdr2):-ayah(Ayah1,Sdr1),ayah(Ayah2,Sdr2),saudara_kandung(Ayah1,Ayah2).
saudara_sepupu(Sdr1,Sdr2):-ayah(Ayah,Sdr1),mama(Mama,Sdr2),saudara_kandung(Ayah,Mama).
saudara_sepupu(Sdr1,Sdr2):-mama(Mama,Sdr1),ayah(Ayah,Sdr2),saudara_kandung(Mama,Ayah).
saudara_sepupu(Sdr1,Sdr2):-mama(Mama1,Sdr1),mama(Mama2,Sdr2),saudara_kandung(Mama1,Mama2).
-.paman (A,B) : paman(Paman,Orang):-saudara_kandung\=(perempuan),saudara_kandung(Paman,Ayah),ayah(Ayah,Orang).
3. a.?- saudara_kandung(G,H).
G = utet,
H = yuli ;
G = yuli,
H = utet ;
G = faozan,
H = masdon ;
G = masdon,
H = faozan ;
G = muafa,
H = hilman ;
G = hilman,
H = muafa ;
false.

b.?- saudara_sepupu(I,J).
I = dadan,
J = muafa ;
I = dadan,
J = hilman ;
I = singgih,
J = muafa ;
I = singgih,
J = hilman ;
I = kaves;
J = muafa ;
I = kaves,
J = hilman ;
I = muafa,
J = dadan ;
I = muafa,
J = singgih ;
I = muafa,
J = kaves ;
I = hilman,
J = dadan ;
I = hilman,
J = singgih ;
I = hilman,
J = kaves ;
false.

c. ?- paman(K,L).
K = masdon,
L = muafa ;
K = masdon,
L = hilman ;
false.

d.?- saudara_kandung(Muafa,N).
Muafa = utet,
N = yuli ;
Muafa = yuli,
N = utet ;
Muafa = faozan,
N = masdon ;
Muafa = masdon,
N = faozan ;
Muafa = muafa,
N = hilman ;
Muafa = hilman,
N = muafa ;
false.

e.?- saudara_sepupu(Muafa,T).
Muafa = dadan,
T = muafa ;
Muafa = dadan,
T = hilman ;
Muafa = singgih,
T = muafa ;
Muafa = singgih,
T = hilman ;
Muafa = kaves,
T = muafa ;
Muafa = kaves,
T = hilman ;
Muafa = muafa,
T = dadan ;
Muafa = muafa,
T = singgih ;
Muafa = muafa,
T = kaves ;
Muafa = hilman,
T = dadan ;
Muafa = hilman,
T = singgih ;
Muafa = hilman,
T = kaves ;
false.

f.?- paman(K,Muafa).
K = masdon,
Muafa = muafa ;
K = masdon,
Muafa = hilman ;
false.

Muhammad Alief Panji Winarko mengatakan...

3KA07, 14118461, Muhammad Alief Panji Winarko

Link Google Drive : https://drive.google.com/file/d/1q0lSU5W3XsCfEmqFWm7OC7WJR3IaXq9e/view?usp=sharing

Fakta :
%%orang tua */
ayah(sudjio,bekti).
ayah(sudjio,windayanti).
ayah(suparmin,joko).
ayah(suparmin,iwan).
ayah(joko,alief).
ayah(joko,isna).
ayah(bekti,dino).
ibu(tunijati,bekti).
ibu(tunijati,windayanti).
ibu(bu_suparmin,joko).
ibu(bu_suparmin,iwan).
ibu(windayanti,alief).
ibu(windayanti,isna).
ibu(meri,dino).

Aturan :
%% Nama1 adalah saudara kandung Nama2 */

saudara_kandung(Nama,Name):-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama\=Name.


%% Sdr1 adalah saudara sepupu sdr2 */


saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).

%% sdr_kdg ayah adalah paman */
paman(Paman,Orang):-
saudara_kandung\=(perempuan),
saudara_kandung(Paman,Ayah),
ayah(Ayah,Orang).

3. Output

a. saudara_kandung(G,H).
G = bekti,
H = windayanti ;
G = windayanti,
H = bekti ;
G = joko,
H = iwan ;
G = iwan,
H = joko ;
G = alief,
H = isna ;
G = isna,
H = alief ;

b. saudara_sepupu(I,J).
I = dino,
J = alief ;
I = dino,
J = isna ;
I = alief,
J = dino ;
I = isna,
J = dino ;


c. paman(K,L).
K = iwan,
L = alief ;
K = iwan,
L = isna ;

d. saudara_kandung(alief,N).
N = isna.

e. saudara_sepupu(alief,N).
N = dino ;

f. paman(K,alief).
K = iwan ;

Maulana mengatakan...

3KA07, 14118345, Muhamad Maulana Rizki

Link gdrive file: https://drive.google.com/drive/folders/1HCLDLtdbtpjU6Kg42UJCHw74n4Jl4Mdz?usp=sharing

- Fakta
%%orang tua */
ayah(toha,kiki).
ayah(toha,eza).
ayah(udin,lukman).
ayah(udin,firman).
ayah(arpin,fitri).
ayah(arpin,maulana).
ayah(harun,arpin).
ayah(harun,udin).
ayah(harun,toha).
ibu(epi,kiki).
ibu(epi,eza).
ibu(iim,lukman).
ibu(iim,firman).
ibu(yati,fitri).
ibu(yati,maulana).
ibu(ayum,arpin).
ibu(ayum,toha).
ibu(ayum,udin).

- Aturan
%% Nama1 adalah saudara kandung Nama2 */

saudara_kandung(Nama,Name):-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama\=Name.


%% Sdr1 adalah saudara sepupu sdr2 */


saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).

%% sdr_kdg ayah adalah paman */
paman(Paman,Orang):-
saudara_kandung\=(perempuan),
saudara_kandung(Paman,Ayah),
ayah(Ayah,Orang).

Soal dan Jawaban :

A.saudara_kandung(G,H)
G = kiki,
H = eza ;
G = eza,
H = kiki ;
G = lukman,
H = firman ;
G = firman,
H = lukman ;
G = fitri,
H = maulana ;
G = maulana,
H = fitri ;
G = arpin,
H = udin ;
G = arpin,
H = toha ;
G = udin,
H = arpin ;
G = udin,
H = toha ;
G = toha,
H = arpin ;
G = toha,
H = udin ;

B.saudara_sepupu(I,J)
I = kiki,
J = lukman ;
I = kiki,
J = firman ;
I = kiki,
J = fitri ;
I = kiki,
J = maulana ;
I = eza,
J = lukman ;
I = eza,
J = firman ;
I = eza,
J = fitri ;
I = eza,
J = maulana ;
I = lukman,
J = kiki ;
I = lukman,
J = eza ;
I = lukman,
J = fitri ;
I = lukman,
J = maulana ;
I = firman,
J = kiki ;
I = firman,
J = eza ;
I = firman,
J = fitri ;
I = firman,
J = maulana ;
I = fitri,
J = kiki ;
I = fitri,
J = eza ;
I = fitri,
J = lukman ;
I = fitri,
J = firman ;
I = maulana,
J = kiki ;
I = maulana,
J = eza ;
I = maulana,
J = lukman ;
I = maulana,
J = firman ;

c. paman(K,L).
K = arpin,
L = lukman ;
K = arpin,
L = firman ;
K = arpin,
L = kiki ;
K = arpin,
L = eza ;
K = udin,
L = fitri ;
K = udin,
L = maulana ;
K = udin,
L = kiki ;
K = udin,
L = eza ;
K = toha,
L = fitri ;
K = toha,
L = maulana ;
K = toha,
L = lukman ;
K = toha,
L = firman ;

d.saudara_kandung(maulana,N).
N = fitri ;

e.saudara_sepupu(maulana,T).
T = kiki ;
T = eza ;
T = lukman ;
T = firman ;

f. paman(K,maulana).
K = udin ;
K = toha ;







Revy Rizquna mengatakan...

3KA08, Revy Rizquna, 16118029

Link G-Drive Revy Rizquna:
https://drive.google.com/drive/u/0/folders/1RhbD9kWgfZ2ZfQ1ZuKz5WiFMMAQDjmsi

Jawaban:

%% fakta
ayah(supriadi,adi).
ayah(supriadi,jhoni).
ayah(supriadi,fatur).
ayah(jhoni,fajar).
ayah(fatur,gatot).
ayah(fatur,surya).
ayah(adi,revy).
ayah(adi,puput).
ayah(gilang,lia).
ayah(gilang,valen).
ayah(gilang,herno).
ibu(putri,adi).
ibu(putri,jhoni).
ibu(putri,fatur).
ibu(heny,fajar).
ibu(vania,gatot).
ibu(vania,surya).
ibu(lia,revy).
ibu(lia,puput).
ibu(risma,lia).
ibu(risma,valen).
ibu(risma,herno).

%%Kakek adalah kakek cucu */
kakek(Kakek,Cucu) :-ayah(Ayah,Cucu),ayah(Kakek,Ayah).
kakek(Kakek,Cucu) :-ibu(Ibu,Cucu),ayah(Kakek,Ibu).

%%Nenek adalah nenek cucu */
nenek(Nenek,Cucu):-ayah(Ayah,Cucu),ibu(Nenek,Ayah).
nenek(Nenek,Cucu):-ibu(Ibu,Cucu),ibu(Nenek,Ibu).

%% Nama1 adalah saudara kandung Nama2 */
saudara_kandung(Nama,Name):-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama\=Name.

%% Sdr1 adalah saudara sepupu sdr2 */


saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).

%% Paman adalah saudara ayah */

paman(Paman,Orang) :-
saudara_kandung(Paman,Ayah),
ayah(Ayah,Orang).

-Output Program Prolog:

A. ?- saudara_kandung(G,H).
G = adi,
H = jhoni ;
G = adi,
H = fatur ;
G = jhoni,
H = adi ;
G = jhoni,
H = fatur ;
G = fatur,
H = adi ;
G = fatur,
H = jhoni ;
G = gatot,
H = surya ;
G = surya,
H = gatot ;
G = revy,
H = puput ;
G = puput,
H = revy ;
G = lia,
H = valen ;
G = lia,
H = herno ;
G = valen,
H = lia ;
G = valen,
H = herno ;
G = herno,
H = lia ;
G = herno,
H = valen ;
false.

B. ?- saudara_sepupu(I,J).
I = fajar,
J = gatot ;
I = fajar,
J = surya ;
I = fajar,
J = revy ;
I = fajar,
J = puput ;
I = gatot,
J = fajar ;
I = gatot,
J = revy ;
I = gatot,
J = puput ;
I = surya,
J = fajar ;
I = surya,
J = revy ;
I = surya,
J = puput ;
I = revy,
J = fajar ;
I = revy,
J = gatot ;
I = revy,
J = surya ;
I = puput,
J = fajar ;
I = puput,
J = gatot ;
I = puput,
J = surya ;
false.

C. ?- paman(K,L).
K = adi,
L = fajar ;
K = adi,
L = gatot ;
K = adi,
L = surya ;
K = jhoni,
L = revy ;
K = jhoni,
L = puput ;
K = jhoni,
L = gatot ;
K = jhoni,
L = surya ;
K = fatur,
L = revy ;
K = fatur,
L = puput ;
K = fatur,
L = fajar ;
false.

D. ?- saudara_kandung(revy, N).
N = puput.

E. ?- saudara_sepupu(revy, T).
T = fajar ;
T = gatot ;
T = surya ;
false.

F. ?- paman(K, revy).
K = jhoni ;
K = fatur ;
false.

Satria Pamungkas mengatakan...

3KA08_Satria Pamungkas_16118544
Link Gdrive : https://drive.google.com/file/d/1OIkvmdmPaoP3CHgfZt4NHiWVKHk9LH5t/view?usp=sharing
1.
%%fakta
ayah(supardi,suwardjo).
ayah(suwardjo,haryono).
ayah(suwardjo,sigit).
ayah(suwardjo,deci).
ayah(haryono,satria).
ayah(haryono,tania).
ayah(sigit,mita).
ayah(sigit,dio).
ayah(sigit,nurul).
ayah(alimudin,maryam).
ayah(yoyo,nurhayati).
ayah(yoyo,jajat).
ayah(jajat,diki).
ayah(jajat,winda).
ayah(jajat,candra).
ibu(aisyah,maryam).
ibu(lasmi,tien).
ibu(tien,sigit).
ibu(tien,deci).
ibu(deci,mita).
ibu(deci,dio).
ibu(deci,nurul).
ibu(maryam,nurhayati).
ibu(maryam,jajat).
ibu(tien,haryono).
ibu(nurhayati,satria).
ibu(nurhayati,tania).
ibu(engkom,diki).
ibu(engkom,winda).
ibu(engkom,candra).

2.
Aturan:
%Nama1 adalah saudara kandung Nama2*/
saudara_kandung(Nama,Name):-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama\=Name.

%Sdr1 adalah saudara sepupu sdr2*/
saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).

%Paman adalah saudara kandung ayah*/
paman(Paman,Orang):-
saudara_kandung(Paman,Ayah),
ayah(Ayah,Orang).

%Paman adalah saudara kandung ibu*/
paman1(Paman1,Orang):-
saudara_kandung(Paman1,Ibu),
ibu(Ibu,Orang).

3.
a. saudara_kandung(G,H)
G = haryono,
H = sigit ;
G = haryono,
H = deci ;
G = sigit,
H = haryono ;
G = sigit,
H = deci ;
G = deci,
H = haryono ;
G = deci,
H = sigit ;
G = satria,
H = tania ;
G = tania,
H = satria ;
G = mita,
H = dio ;
G = mita,
H = nurul ;
G = dio,
H = mita ;
G = dio,
H = nurul ;
G = nurul,
H = mita ;
G = nurul,
H = dio ;
G = nurhayati,
H = jajat ;
G = jajat,
H = nurhayati ;
G = diki,
H = winda ;
G = diki,
H = candra ;
G = winda,
H = diki ;
G = winda,
H = candra ;
G = candra,
H = diki ;
G = candra,
H = winda ;



b. saudara_sepupu(I,J).
I = satria,
J = mita ;
I = satria,
J = dio ;
I = satria,
J = nurul ;
I = tania,
J = mita ;
I = tania,
J = dio ;
I = tania,
J = nurul ;
I = mita,
J = satria ;
I = mita,
J = tania ;
I = dio,
J = satria ;
I = dio,
J = tania ;
I = nurul,
J = satria ;
I = nurul,
J = tania ;
I = satria,
J = mita ;
I = satria,
J = dio ;
I = satria,
J = nurul ;
I = tania,
J = mita ;
I = tania,
J = dio ;
I = tania,
J = nurul ;
I = J, J = mita ;
I = mita,
J = dio ;
I = mita,
J = nurul ;
I = dio,
J = mita ;
I = J, J = dio ;
I = dio,
J = nurul ;
I = nurul,
J = mita ;
I = nurul,
J = dio ;
I = J, J = nurul ;
I = diki,
J = satria ;
I = diki,
J = tania ;
I = winda,
J = satria ;
I = winda,
J = tania ;
I = candra,
J = satria ;
I = candra,
J = tania ;
I = mita,
J = satria ;
I = mita,
J = tania ;
I = J, J = mita ;
I = mita,
J = dio ;
I = mita,
J = nurul ;
I = dio,
J = satria ;
I = dio,
J = tania ;
I = dio,
J = mita ;
I = J, J = dio ;
I = dio,
J = nurul ;
I = nurul,
J = satria ;
I = nurul,
J = tania ;
I = nurul,
J = mita ;
I = nurul,
J = dio ;
I = J, J = nurul ;
I = satria,
J = diki ;
I = satria,
J = winda ;
I = satria,
J = candra ;
I = tania,
J = diki ;
I = tania,
J = winda ;
I = tania,
J = candra ;

c. paman(K,L).
K = haryono,
L = mita ;
K = haryono,
L = dio ;
K = haryono,
L = nurul ;
K = sigit,
L = satria ;
K = sigit,
L = tania ;
K = deci,
L = satria ;
K = deci,
L = tania ;
K = deci,
L = mita ;
K = deci,
L = dio ;
K = deci,
L = nurul ;
K = nurhayati,
L = diki ;
K = nurhayati,
L = winda ;
K = nurhayati,
L = candra ;

d. saudara_kandung(satria,N).
N = tania.

e. saudara_sepupu(satria,T)
T = mita ;
T = dio ;
T = nurul ;
T = mita ;
T = dio ;
T = nurul ;
T = diki ;
T = winda ;
T = candra ;

f. paman(K,satria).
K = sigit ;
K = deci ;

Anggara Pahridar mengatakan...

3KA07, 10118833, Anggara Pahridar

https://drive.google.com/file/d/1IDqysCz9FWAFEaL0GpIkU_ItF0pW9N3a/view?usp=sharing

1. Fakta-fakta keluarga :
%%orang tua */
ayah(soewarto,sukandar).
ayah(soewarto,supiyanto).
ayah(saptani,kusripah).
ayah(saptani,arpinah).
ayah(sukandar,anggara).
ayah(sukandar,alya).
ayah(supiyanto,zalfa).
ibu(siti_rosmala,sukandar).
ibu(siti_rosmala,supiyanto).
ibu(nariyah,kusripah).
ibu(nariyah,arpinah).
ibu(kusripah,anggara).
ibu(kusripah,alya).
ibu(yusniarti,zalfa).

perempuan(kusripah).
perempuan(yusniarti).
perempuan(alya).
perempuan(zalfa).

2. Aturan :

%% Kakek adalah kakek cucu */
kakek(Kakek,Cucu):-ayah(Ayah,Cucu),ayah(Kakek,Ayah).

kakek(Kakek,Cucu):-ibu(Ibu,Cucu),ayah(Kakek,Ibu).

%% Nenek adalah nenek cucu */
nenek(Nenek,Cucu):-ayah(Ayah,Cucu),ibu(Nenek,Ayah).

nenek(Nenek,Cucu):-ibu(Ibu,Cucu),ibu(Nenek,Ibu).

%% Nama1 adalah saudara kandung Nama2 */

saudara_kandung(Nama,Name):-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama\=Name.


%% Sdr1 adalah saudara sepupu sdr2 */


saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).

%% sdr_kdg ayah adalah paman */
paman(Paman,Orang):-
saudara_kandung\=(perempuan),
saudara_kandung(Paman,Ayah),
ayah(Ayah,Orang).

3. Output :

?- saudara_kandung(G,H).
G = sukandar,
H = supiyanto ;
G = supiyanto,
H = sukandar ;
G = kusripah,
H = arpinah ;
G = arpinah,
H = kusripah ;
G = anggara,
H = alya ;
G = alya,
H = anggara ;
false.

?- saudara_sepupu(I,J).
I = anggara,
J = zalfa ;
I = alya,
J = zalfa ;
I = zalfa,
J = anggara ;
I = zalfa,
J = alya ;
false.

?- paman(K,L).
K = sukandar,
L = zalfa ;
K = supiyanto,
L = anggara ;
K = supiyanto,
L = alya ;
false.

?- saudara_kandung(NamaAnda,N).
NamaAnda = sukandar,
N = supiyanto ;
NamaAnda = supiyanto,
N = sukandar ;
NamaAnda = kusripah,
N = arpinah ;
NamaAnda = arpinah,
N = kusripah ;
NamaAnda = anggara,
N = alya ;
NamaAnda = alya,
N = anggara ;
false.

?- saudara_sepupu(NamaAnda,T).
NamaAnda = anggara,
T = zalfa ;
NamaAnda = alya,
T = zalfa ;
NamaAnda = zalfa,
T = anggara ;
NamaAnda = zalfa,
T = alya ;
false.

?- paman(K,NamaAnda).
K = sukandar,
NamaAnda = zalfa ;
K = supiyanto,
NamaAnda = anggara ;
K = supiyanto,
NamaAnda = alya ;
false.

Garin Caesar mengatakan...

3KA08, Garin Caesar Syanugiri, 12118870

https://drive.google.com/file/d/1z0lunbxuUUCS22IwR1pwkK-hoW1y6Na_/view?usp=sharing

Fakta :
%%orang tua */
ayah(riyanto,galuh).
ayah(riyanto,garin).
ayah(agus,ryanda).
ayah(agus,renaldi).
ayah(agus,reyvi).
ayah(rudi,amel).
ayah(rudi,rieke).
ayah(yono,rafi).
ayah(yono,daffa).
ibu(multiyati,galuh).
ibu(multiyati,garin).
ibu(yusriatin,ryanda).
ibu(yusriatin,reynaldi).
ibu(yusriatin,reyvi).
ibu(yuyun,amel).
ibu(yuyun,rieke).
ibu(yuli,rafi).
ibu(yuli,daffa).

Aturan :

%% Nama1 adalah saudara kandung Nama2 */
saudara_kandung(Nama,Name):-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama\=Name.

%% Sdr1 adalah saudara sepupu sdr2 */

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).

%% Paman adalah saudara ayah */

paman(Paman,Orang) :-
saudara_kandung(Paman,Ayah),
ayah(Ayah,Orang).

Soal dan Jawaban :
A.
saudara_kandung(G,H).
G = galuh,
H = garin ;
G = garin,
H = galuh ;
G = ryanda,
H = reyvi ;
G = reyvi,
H = ryanda ;
G = amel,
H = rieke ;
G = rieke,
H = amel ;
G = rafi,
H = daffa ;
G = daffa,
H = rafi ;
false.

B.
saudara_sepupu(I,J).
false.

C.
paman(K,L).
false.

D.
saudara_kandung(garin,N).
N = galuh ;
false.

E.
saudara_sepupu(garin,T).
false.

F.
paman(K,garin).
false..

15 Oktober 2020 22:51

Gonseki mengatakan...

4KB08_21117628_Dhimas Rahmat Fauzi

Attach File :
https://drive.google.com/file/d/1MzvmOKmLd9OcFgKxZ3tcc8SxGN5IFgE3/view?usp=sharing

%%Fakta*/
ayah(marijo,gunawan).
ayah(marijo,surono).
ayah(marijo,erwin).
ayah(erwin,dicky).
ayah(erwin,dhimas).
ayah(erwin,zalfa).
ayah(gunawan,intan).
ayah(gunawan,johan).
ayah(surono,resa).
ayah(surono,nilam).
ayah(surono,lina).
ibu(sartinem,gunawan).
ibu(sartinem,surono).
ibu(sartinem,erwin).
ibu(budi,dicky).
ibu(budi,dhimas).
ibu(budi,zalfa).
ibu(kriss,intan).
ibu(kriss,johan).
ibu(nani,resa).
ibu(nani,nilam).
ibu(nani,lina).

%Nama1 adalah saudara kandung Nama2*/
saudara_kandung(Nama,Name):-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
nama\=Name.

%Sdr1 adalah saudara sepupu sdr2*\
saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).
saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).
saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandungan(Ibu,Ayah).
saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandungan(Ibu1,Ibu2).
%%paman adalah saudara ayah*/
paman(Paman,Orang):-
saudara_kandung(Paman,Ayah),
ayah(Ayah,Orang).

Soal!
a. saudara_kandung(G,H)

b. saudara_sepupu(I,J)

c. paman(K,L)

d. saudara_kandung(NamaAnda, N)

e. saudara_sepupu(NamaAnda,T)

f. paman(K, NamaAnda)

Jawaban
?- saudara_kandung(G,H).
G = erwin,
H = gunawan;
G = erwin,
H = surono ;
G = gunawan,
H = erwin ;
G = gunawan,
H = surono ;
G = surono,
H = erwin ;
G = surono,
H = gunawan ;
G = dicky,
H = dhimas;
G = dicky,
H = zalfa ;
G = dhimas,
H = dicky ;
G = dhimas,
H = zalfa ;
G = zalfa,
H = dicky ;
G = zalfa,
H = dhimas ;


?- saudara_sepupu(I,J).
I = zalfa,
J = intan ;
I = zalfa,
J = resa ;
I = zalfa,
J = johan ;
I = zalfa,
J = nilam ;
I = zalfa,
J = lina ;
I = dhimas,
J = intan ;
I = dhimas,
J = resa ; ..
I = dhimas,
J = johan ;
I = dhimas,
J = nilam ;
I = dhimas,
J = lina ;
I = intan,
J = dhimas ;
I = intan,
J = resa ;
I = intan,
J = nilam ;
I = intan,
J = lina ;
I = resa,
J = intan ;
I = resa,
J = dhimas ;
I = resa,
J = intan ;
I = resa, ..
J = johan ;
I = resa,
J = nilam ;
I = resa.

?- paman(K,L).
K = erwin,
L = intan ;
K = erwin,
L = resa ; ..
K = erwin,
L = nilam ;
K = erwin,
L = lina ; ..
K = erwin,
L = johan ;
K = gunawan,
L = zalfa ;
K = gunawan,
L = dhimas ;
K = gunawan,
L = dicky;
K = gunawan,
L = resa ; ..
K = gunawan,
L = nilam ;
K = gunawan,
L = lina ;
K = surono,
L = zalfa ;
K = surono,
L = dhimas ;
K = surono,
L = dicky ;
K = surono,
L = intan ;
K = surono,
L = johan ;

?- saudara_sepupu(dhimas,T).
T = intan ;
T = resa ;
T = johan ;
T = nilam ;
T = lina ;

?- paman(K, dhimas).
K = gunawan ;
K = surono ;

triansyahputra.blog mengatakan...

3KA07,14118410,Muhammad Trian Syahputra
https://drive.google.com/file/d/1aaj5AmxNXgkTeFAw_wHdnZnaiDm4PWhE/view?usp=sharing

1.fakta
ayah(syahrial,dona).
ayah(syahrial,rinda).
ayah(syahrial,trian).
ayah(syahrial,ersyand).
ayah(iskandar,awal).
ayah(iskandar,ayu).
ayah(iskandar,fida).
ayah(iskandar,ratu).
ayah(jono,juan).
ayah(jono,andre).
ayah(ruslani,erowati).
ayah(ruslani,harsini).
ayah(syarif,syahrial).
ayah(syarif,jono).
ibu(erowati,dona).
ibu(erowati,rinda).
ibu(erowati,trian).
ibu(erowati,ersyand).
ibu(harsini,ayu).
ibu(harsini,awal).
ibu(harsini,fida).
ibu(harsini,ratu).
ibu(sudarti,erowati).
ibu(sudarti,harsini).
ibu(shania,syahrial).
ibu(shania,jono).

2.%%Kakek adalah kakek cucu */
kakek(Kakek,Cucu) :-ayah(Ayah,Cucu),ayah(Kakek,Ayah).
kakek(Kakek,Cucu) :-ibu(Ibu,Cucu),ayah(Kakek,Ibu).

%%Nenek adalah nenek cucu */
nenek(Nenek,Cucu):-ayah(Ayah,Cucu),ibu(Nenek,Ayah).
nenek(Nenek,Cucu):-ibu(Ibu,Cucu),ibu(Nenek,Ibu).

%% Nama1 adalah saudara kandung Nama2 */
saudara_kandung(Nama,Name):-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama\=Name.

%% Sdr1 adalah saudara sepupu sdr2 */


saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).

%% Paman adalah saudara ayah */

paman(Paman,Orang) :-
saudara_kandung(Paman,Ayah),
ayah(Ayah,Orang).


3.
a. saudara_kandung(G,H).
G = dona,
H = rinda ;
G = dona,
H = trian ;
G = dona,
H = ersyand ;
G = rinda,
H = dona ;
G = rinda,
H = trian ;
G = rinda,
H = ersyand ;
G = trian,
H = dona ;
G = trian,
H = rinda ;
G = trian,
H = ersyand ;
G = ersyand,
H = dona ;
G = ersyand,
H = rinda ;
G = ersyand,
H = trian ;
G = awal,
H = fida ;
G = awal,
H = ratu ;
G = awal,
H = ayu ;
G = ayu,
H = fida ;
G = ayu,
H = ratu ;
G = ayu,
H = awal ;
G = fida,
H = ratu ;
G = fida,
H = awal ;
G = fida,
H = ayu ;
G = ratu,
H = fida ;
G = ratu,
H = awal ;
G = ratu,
H = ayu ;
G = erowati,
H = harsini ;
G = harsini,
H = erowati ;
G = syahrial,
H = jono ;
G = jono,
H = syahrial ;
false.

b.saudara_sepupu(I,J).
I = dona,
J = juan ;
I = dona,
J = andre ;
I = rinda,
J = juan ;
I = rinda,
J = andre ;
I = trian,
J = juan ;
I = trian,
J = andre ;
I = ersyand,
J = juan ;
I = ersyand,
J = andre ;
I = juan,
J = dona ;
I = juan,
J = rinda ;
I = juan,
J = trian ;
I = juan,
J = ersyand ;
I = andre,
J = dona ;
I = andre,
J = rinda ;
I = andre,
J = trian ;
I = andre,
J = ersyand ;
false.

c.paman(K,L).
K = syahrial,
L = juan ;
K = syahrial,
L = andre ;
K = jono,
L = dona ;
K = jono,
L = rinda ;
K = jono,
L = trian ;
K = jono,
L = ersyand ;
false.

d. saudara_kandung(trian,N).
N = dona ;
N = rinda ;
N = ersyand.

e.saudara_sepupu
saudara_sepupu(trian,T).
T = juan ;
T = andre ;
T = ayu ;
T = awal ;
T = fida ;
T = ratu ;
false.

f. paman(K,trian).
K = jono ;
false.

nawww mengatakan...

4KB08_26117654_Narendra Alam Wicaksono

https://drive.google.com/file/d/1TbH0lmQn167BxXQfgdH_7QNTPCwsyzGG/view?usp=sharing

%%Fakta
ayah(manto,sunarko).
ayah(manto,wanti).
ayah(manto,iin).
ayah(manto,muriati).
ayah(manto,edi).
ayah(sunarko,alam).
ayah(sunarko,lisah).
ayah(edi,vira).
ayah(edi,vero).
ayah(haryadi,sandi).
ayah(haryadi,gendis).
ibu(karni,sunarko).
ibu(karni,wanti).
ibu(karni,iin).
ibu(karni,muriati).
ibu(karni,edi).
ibu(erni,alam).
ibu(erni,lisah).
ibu(wanti,aji).
ibu(wanti,naila).
ibu(iin,dafa).
ibu(iin,dea).
ibu(muriati,faiz).
ibu(muriati,sultan).

Aturan:

% Nama adalah saudara kandung Name
saudara_kandung(Nama,Name):-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama\=Name.

%Sdr1 adalah saudara sepupu sdr2
saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).

%paman adalah saudara kandung ayah
paman(Paman,Orang):-
saudara_kandung(Paman,Ayah),
ayah(Ayah,Orang).

Output:
a. saudara_kandung(G,H).
?-saudara_kandung(G,H).
G = sunarko,
H = wanti ;
G = sunarko,
H = iin ;
G = sunarko,
H = muriati ;
G = sunarko,
H = edi ;
G = wanti,
H = sunarko ;
G = wanti,
H = iin ;
G = wanti,
H = muriati ;
G = wanti,
H = edi ;
G = iin,
H = sunarko ;
G = iin,
H = wanti ;
G = iin,
H = muriati ;
G = iin,
H = edi ;
G = muriati,
H = sunarko ;
G = muriati,
H = wanti ;
G = muriati,
H = iin ;
G = muriati,
H = edi ;
G = edi,
H = sunarko ;
G = edi,
H = wanti ;
G = edi,
H = iin ;
G = edi,
H = muriati ;
G = alam,
H = lisah ;
G = lisah,
H = alam ;
G = vira,
H = vero ;
G = vero,
H = vira ;
G = aji,
H = naila ;
G = naila,
H = aji ;
G = dafa,
H = dea ;
G = dea,
H = dafa ;
G = faiz,
H = sultan ;
G = sultan,
H = faiz ;

b. saudara_sepupu(I,J).
?-saudara_sepupu(I,J).
I = alam,
J = vira ;
I = alam,
J = vero ;
I = alam,
J = aji ;
I = alam,
J = naila ;
I = alam,
J = dafa ;
I = alam,
J = dea ;
I = alam,
J = faiz ;
I = alam,
J = sultan ;
I = lisah,
J = vira ;
I = lisah,
J = vero ;
I = lisah,
J = aji ;
I = lisah,
J = naila ;
I = lisah,
J = dafa ;
I = lisah,
J = dea ;
I = lisah,
J = faiz ;
I = lisah,
J = sultan ;
I = vira,
J = aji ;
I = vira,
J = naila ;
I = vira,
J = dafa ;
I = vira,
J = dea ;
I = vira,
J = faiz ;
I = vira,
J = sultan ;
I = vero,
J = aji ;
I = vero,
J = naila ;
I = vero,
J = dafa ;
I = vero,
J = dea ;
I = vero,
J = faiz ;
I = vero,
J = sultan ;
I = aji,
J = vira ;
I = aji,
J = vero ;
I = aji,
J = dafa ;
I = aji,
J = dea ;
I = aji,
J = faiz ;
I = aji,
J = sultan ;
I = naila,
J = vira ;
I = naila,
J = vero ;
I = naila,
J = dafa ;
I = naila,
J = dea ;
I = naila,
J = faiz ;
I = naila,
J = sultan ;
I = dafa,
J = vira ;
I = dafa,
J = vero ;
I = dafa,
J = aji ;
I = dafa,
J = naila ;
I = dafa,
J = faiz ;
I = dafa,
J = sultan ;
I = dea,
J = vira ;
I = dea,
J = vero ;
I = dea,
J = aji ;
I = dea,
J = naila ;
I = dea,
J = faiz ;
I = dea,
J = sultan ;
I = faiz,
J = vira ;
I = faiz,
J = vero ;
I = faiz,
J = aji ;
I = faiz,
J = naila ;
I = faiz,
J = dafa ;
I = faiz,
J = dea ;
I = sultan,
J = vira ;
I = sultan,
J = vero ;
I = sultan,
J = aji ;
I = sultan,
J = naila ;
I = sultan,
J = dafa ;
I = sultan,
J = dea ;

c. paman(K,L).
?-paman(K,L).
K = sunarko,
L = vira ;
K = sunarko,
L = vero ;
K = sunarko,
L = aji ;
K = sunarko,
L = naila ;
K = sunarko,
L = dafa ;
K = sunarko,
L = dea ;
K = sunarko,
L = faiz ;
K = sunarko,
L = sultan ;
K = edi,
L = aji ;
K = edi,
L = naila ;
K = edi,
L = dafa ;
K = edi,
L = dea ;
K = edi,
L = faiz ;
K = edi,
L = sultan ;

d. saudara_kandung(NamaAnda,N).
?- saudara_kandung(alam,N).
N = lisah.

e. saudara_sepupu(NamaAnda,T).
?- saudara_sepupu(alam,T).
T = vira ;
T = vero ;
T = aji;
T = naila ;
T = dafa ;
T = dea;
T = faiz ;
T = sultan ;

f. paman(K,Anda).
?- paman(K,alam).
K = wanti ;

Early Salsabila Azzahra mengatakan...

3KA08, 12118142, Early Salsabila Azzahra

Link gdrive file Silsilah-Early Salsabila Azzahra :
https://drive.google.com/file/d/14zBsz_e6kmyb6G6Lcr1ODJzSQOVmmCLq/view?usp=sharing


FAKTA :

%%orangtua*/
ayah(marijun,eko).
ayah(marijun,nanto).
ayah(eko,early).
ayah(eko,erfa).
ayah(eko,eca).
ayah(eko,eza).
ayah(nanto,elang).
ayah(nanto,langit).
ibu(tumingah,eko).
ibu(tumingah,nanto).
ibu(elsa,early).
ibu(elsa,erfa).
ibu(elsa,eca).
ibu(elsa,eza).
ibu(julia,elang).
ibu(julia,langit).

ATURAN :

%%Nama1 adalah saudara kandung Nama2*/
saudara_kandung(Nama,Name):-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama\=Name.

%%Sdr1 adalah saudara sepupu Sdr2*/
saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).

%%Paman adalah saudara ayah*/

paman(Paman,Orang):-
saudara_kandung(Paman,Ayah),
ayah(Ayah,Orang).


OUTPUT :

a. saudara_kandung(G,H).

G = eko,
H = nanto ;
G = nanto,
H = eko ;
G = early,
H = erfa ;
G = early,
H = eca ;
G = early,
H = eza ;
G = erfa,
H = early ;
G = erfa,
H = eca ;
G = erfa,
H = eza ;
G = eca,
H = early ;
G = eca,
H = erfa ;
G = eca,
H = eza ;
G = eza,
H = early ;
G = eza,
H = erfa ;
G = eza,
H = eca ;
G = elang,
H = langit ;
G = langit,
H = elang ;

b. saudara_sepupu(I,J).

I = early,
J = elang ;
I = early,
J = langit ;
I = erfa,
J = elang ;
I = erfa,
J = langit ;
I = eca,
J = elang ;
I = eca,
J = langit ;
I = eza,
J = elang ;
I = eza,
J = langit ;
I = elang,
J = early ;
I = elang,
J = erfa ;
I = elang,
J = eca ;
I = elang,
J = eza ;
I = langit,
J = early ;
I = langit,
J = erfa ;
I = langit,
J = eca ;
I = langit,
J = eza ;

c. paman(K,L).

K = eko,
L = elang ;
K = eko,
L = langit ;
K = nanto,
L = early ;
K = nanto,
L = erfa ;
K = nanto,
L = eca ;
K = nanto,
L = eza ;

d. saudara_kandung(early,N).

N = erfa ;
N = eca ;
N = eza;

e. saudara_sepupu(early,T).

T = elang ;
T = langit ;

f. paman(K,early).

K = nanto ;

Rivaldy Askar Wijaya mengatakan...

4KB08_Rivaldy Askar Wijaya_25117268

https://drive.google.com/file/d/1oQRVEXLgqrzXbwCbGBZ6JR-w1kyge3dJ/view?usp=sharing

%% fakta
%% orangtua
ayah(rusyadi,ony).
ayah(rusyadi,ruly).
ayah(rusyadi,indah).
ayah(rusyadi,nur).
ayah(wisnu,joko).
ayah(joko,rivaldy).
ayah(joko,rafi).
ayah(joko,fachry).
ayah(ruly,rizy).
ayah(ruly,kaysan).
ayah(mahmud,reiza).
ayah(mahmud,felicia).
ibu(bu_rusyadi,ony).
ibu(bu_rusyadi,ruly).
ibu(bu_rusyadi,indah).
ibu(bu_rusyadi,nur).
ibu(bu_wisnu,joko).
ibu(ony,rivaldy).
ibu(ony,rafi).
ibu(ony,fachry).
ibu(neneng,rizy).
ibu(neneng,kaysan).
ibu(nur,reiza).
ibu(nur,felicia).

%% ATURAN
%% Kakek adalah kakek Cucu
kakek(Kakek,Cucu) :-
ayah(Ayah,Cucu),
ayah(Kakek,Ayah).
kakek(Kakek,Cucu) :-
ibu(Ibu,Cucu),
ayah(Kakek,Ibu).
%% Nenek adalah nenek Cucu */
nenek(Nenek,Cucu) :-
ayah(Ayah,Cucu),
ibu(Nenek,Ayah).
nenek(Nenek,Cucu) :-
ibu(Ibu,Cucu),
ibu(Nenek,Ibu).

%% Nama adalah saudara kandung Name
• saudara_kandung(Nama,Name) :-
• ayah(Ayah,Nama),
• ayah(Ayah,Name),
• ibu(Ibu,Nama),
• ibu(Ibu,Name),
• Nama \= Name.

%% Sdr1 adalah saudara sepupu Sdr2
saudara_sepupu(Sdr1,Sdr2) :- ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2), saudara_kandung(Ayah1,Ayah2).
saudara_sepupu(Sdr1,Sdr2) :- ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2), saudara_kandung(Ayah,Ibu).
saudara_sepupu(Sdr1,Sdr2) :-
ibu(Ibu,Sdr1), ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).
saudara_sepupu(Sdr1,Sdr2) :-
ibu(Ibu1,Sdr1), ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).

Soal!
a. saudara_kandung(G,H)

b. saudara_sepupu(I,J)

c. paman(K,L)

d. saudara_kandung(NamaAnda, N)

e. saudara_sepupu(NamaAnda,T)

f. paman(K, NamaAnda)

Jawaban
?- saudara_kandung(G,H).
G = ony,
H = ruly ;
G = ony,
H = indah ;
G = ony,
H = nur ;
G = ruly,
H = ony ;
G = ruly,
H = indah ;
G = ruly,
H = nur ;
G = indah,
H = ony ;
G = indah,
H = ruly ;
G = indah,
H = nur ;
G = nur ,
H = ony ;
G = nur,
H = ruly ;
G = nur,
H = indah ;
G = rivaldy,
H = rafi ;
G = rivaldy,
H = fachry ;
G = rafi,
H = rivaldy ;
G = rafi,
H = fachry ;
G = fachry,
H = rivaldy ;
G = fachry,
H = rafi ;
G = rizy,
H = kaysan ;
G = kaysan,
H = rizy ;
G = reiza,
H = felicia ;
G = felicia,
H = reiza ;

?- saudara_sepupu(I,J).
I = rivaldy,
J = rizy ;
I = rivaldy,
J = kaysan ;
I = rivaldy,
J = reiza ;
I = rivaldy,
J = felicia ;
I = rafi,
J = rizy ;
I = rafi,
J = kaysan ;
I = rafi,
J = reiza ;
I = rafi,
J = felicia ;
I = fachry,
J = rizy ;
I = fachry,
J = kaysan ;
I = fachry,
J = reiza ;
I = fachry,
J = felicia ;
I = rizy,
J = rivaldy ;
I = rizy,
J = rafi ;
I = rizy,
J = fachry ;
I = rizy,
J = reiza ;
I = rizy,
J = felicia ;
I = kaysan,
J = rivaldy ;
I = kaysan,
J = rafi ;
I = kaysan,
J = fachry ;
I = kaysan,
J = reiza ;
I = kaysan,
J = felicia ;
I = reiza,
J = rivaldy ;
I = reiza,
J = rafi ;
I = reiza,
J = fachry ;
I = reiza,
J = rizy ;
I = reiza,
J = kaysan ;
I = felicia,
J = rivaldy ;
I = felicia,
J = rafi ;
I = felicia,
J = fachry ;
I = felicia,
J = rizy ;
I = felicia,
J = kaysan ;

?- paman(K,L).
K = ruly,
L = rivaldy ;
K = ruly,
L = rafi ;
K = ruly,
L = fachry ;
K = ruly,
L = reiza ;
K = ruly,
L = felicia ;
K = joko,
L = rizy ;
K = joko,
L = kaysan ;
K = joko,
L = reiza ;
K = joko,
L = felicia ;
K = mahmud,
L = rivaldy ;
K = mahmud,
L = rafi ;
K = mahmud,
L = fachry ;
K = mahmud,
L = rizy ;
K = mahmud,
L = kaysan ;

?- saudara_kandung(rivaldy,N).
N = rafi ;
N = fachry ;

?- saudara_sepupu(rivaldy,T).
T = rizy ;
T = kaysan ;
T = reiza ;
T = felicia ;

?- paman(K,rivaldy).
K = ruly ;
K = mahmud ;

NUR MUHAMMAD mengatakan...

3KA07_15118423_NurMuhammad

Link Google Drive : https://drive.google.com/file/d/1uKZBrVQi9rsw-zc2BiB0bgITPs6lRTlt/view?usp=sharing

1. Fakta

%%orang tua */
ayah(suharto,nur).
ayah(suharto,amirul).
ayah(riswanto,aina).
ayah(riswanto,alifa).
ayah(candra,titra).
ayah(candra,nathan).
ayah(kasiman,suharto).
ayah(kasiman,riswanto).
ayah(kasiman,candra).
ibu(ita,nur).
ibu(ita,amirul).
ibu(isnarti,aina).
ibu(isnarti,alifa).
ibu(cut,titra).
ibu(cut,najwa).
ibu(aisyah,suharto).
ibu(aisyah,riswanto).
ibu(aisyah,candra).

2.Aturan

%% Sdr1 adalah saudara sepupu sdr2 */


saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).

%% sdr_kdg ayah adalah paman */
paman(Paman,Orang):-
saudara_kandung\=(perempuan),
saudara_kandung(Paman,Ayah),
ayah(Ayah,Orang).

3. soal dan jawaban

A. saudara_kandung(G,H).
G = nur,
H = amirul ;
G = amirul,
H = nur ;
G = aina,
H = alifa ;
G = alifa,
H = aina ;
G = suharto,
H = riswanto ;
G = suharto,
H = candra ;
G = riswanto,
H = suharto ;
G = riswanto,
H = candra ;
G = candra,
H = suharto ;
G = candra,
H = riswanto ;
false.

B. saudara_sepupu(I,J).
I = nur,
J = aina ;
I = nur,
J = alifa ;
I = nur,
J = titra ;
I = nur,
J = nathan ;
I = amirul,
J = aina ;
I = amirul,
J = alifa ;
I = amirul,
J = titra ;
I = amirul,
J = nathan ;
I = aina,
J = nur ;
I = aina,
J = amirul ;
I = aina,
J = titra ;
I = aina,
J = nathan ;
I = alifa,
J = nur ;
I = alifa,
J = amirul ;
I = alifa,
J = titra ;
I = alifa,
J = nathan ;
I = titra,
J = nur ;
I = titra,
J = amirul ;
I = titra,
J = aina ;
I = titra,
J = alifa ;
I = nathan,
J = nur ;
I = nathan,
J = amirul ;
I = nathan,
J = aina ;
I = nathan,
J = alifa ;
false.

C.paman(K,L).
K = suharto,
L = aina ;
K = suharto,
L = alifa ;
K = suharto,
L = titra ;
K = suharto,
L = nathan ;
K = riswanto,
L = nur ;
K = riswanto,
L = amirul ;
K = riswanto,
L = titra ;
K = riswanto,
L = nathan ;
K = candra,
L = nur ;
K = candra,
L = amirul ;
K = candra,
L = aina ;
K = candra,
L = alifa ;
false.

D.saudara_kandung(Nur,N).
N = amirul;

E.saudara_sepupu(Nur,T).
T = aina ;
T = alifa ;
T = titra ;
T = nathan ;

F.paman(K,Nur).
K = riswanto ;
K = candra ;
false.

Kurniawati mengatakan...
Komentar ini telah dihapus oleh pengarang.
Afifah Al Fakhirah mengatakan...

3KA31, 10118259, Afifah Al Fakhirah

https://drive.google.com/file/d/1wNtsLQRoHdzP0o3j7lZmn5KBKwJGrghW/view?usp=sharing

1. FAKTA :
ayah(nasrudin,darliyuzar).
ayah(nasrudin,alfaisal).
ayah(darliyuzar,said).
ayah(darliyuzar,izza).
ayah(darliyuzar,hafiz).
ayah(alfaisal,afifah).
ayah(alfaisal,fadhil).
ibu(darlis,darliyuzar).
ibu(darlis,alfaisal).
ibu(sri,said).
ibu(sri,izza).
ibu(sri,hafiz).
ibu(titi,afifah).
ibu(titi,fadhil).

2. ATURAN :
%% Nama1 adalah saudara kandung Nama2 */

saudara_kandung(Nama,Name):-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama\=Name.

%% Sdr1 adalah saudara sepupu sdr2 */

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).


%% paman adalah saudara ayah */
paman(Paman,Orang) :-
saudara_kandung(Paman,Ayah),
ayah(Ayah,Orang).


3. Soal & Output Program Prolog:
a. ?- saudara_kandung(G,H).
G = darliyuzar,
H = alfaisal ;
G = alfaisal,
H = darliyuzar ;
G = said,
H = izza ;
G = said,
H = hafiz ;
G = izza,
H = said ;
G = izza,
H = hafiz ;
G = hafiz,
H = said ;
G = hafiz,
H = izza ;
G = afifah,
H = fadhil ;
G = fadhil,
H = afifah .

b. ?- saudara_sepupu(I,J).
I = said,
J = afifah ;
I = said,
J = fadhil ;
I = izza,
J = afifah ;
I = izza,
J = fadhil ;
I = hafiz,
J = afifah ;
I = hafiz,
J = fadhil ;
I = afifah,
J = said ;
I = afifah,
J = izza ;
I = afifah,
J = hafiz ;
I = fadhil,
J = said ;
I = fadhil,
J = izza ;
I = fadhil,
J = hafiz .

c. ?- paman(K,L).
K = darliyuzar,
L = afifah ;
K = darliyuzar,
L = fadhil ;
K = alfaisal,
L = said ;
K = alfaisal,
L = izza ;
K = alfaisal,
L = hafiz .

d. ?- saudara_kandung(afifah, N).
N = fadhil.


e. ?- saudara_sepupu(afifah,T).
T = said ;
T = izza ;
T = hafiz .

f. ?- paman(K, afifah).
K = darliyuzar .

Fakhrul Raviv Asria mengatakan...

Fakhrul Raviv Asria_12118457_3KA08

https://drive.google.com/file/d/1wlvR797YevEcB-5CP8kA3vw8xsCtbudJ/view?usp=sharing

ayah(asril,fridel).
ayah(asril,desy).
ayah(asril,syukrip).
ayah(fridel,fakhrul).
ayah(fridel,aviva).
ayah(syukrip,arik).
ayah(syukrip,lulu).
ayah(ahmad,indra).
ayah(ahmad,watti).
ayah(ahmad,rahmi).
ayah(indra,dian).
ayah(indra,dhira).
ayah(indra,dhea).
ibu(asma,fridel).
ibu(asma,desy).
ibu(asma,syukrip).
ibu(desy,sirin).
ibu(desy,aliya).
ibu(desy,nafila).
ibu(desy,rasyid).
ibu(hayati,indra).
ibu(hayati,watti).
ibu(hayati,rahmi).
ibu(watti,fakhrul).
ibu(watti,aviva).
ibu(rahmi,ahmad).

%Nama1 adalah saudara kandung Nama2*/
saudara_kandung(Nama,Name):-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama\=Name.

%Sdr1 adalah saudara sepupu sdr2*/
saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).

%Paman adalah saudara kandung ayah*/
paman(Paman,Orang):-
saudara_kandung(Paman,Ayah),
ayah(Ayah,Orang).

%Paman adalah saudara kandung ibu*/
paman1(Paman1,Orang):-
saudara_kandung(Paman1,Ibu),
ibu(Ibu,Orang).

Soal dan Jawaban
A. Saudara Kandung (G,H)
saudara_kandung(G,H).
G = fridel,
H = desy ;
G = fridel,
H = syukrip ;
G = desy,
H = fridel ;
G = desy,
H = syukrip ;
G = syukrip,
H = fridel ;
G = syukrip,
H = desy ;
G = fakhrul,
H = aviva ;
G = aviva,
H = fakhrul ;
G = indra,
H = watti ;
G = indra,
H = rahmi ;
G = watti,
H = indra ;
G = watti,
H = rahmi ;
G = rahmi,
H = indra ;
G = rahmi,
H = watti ;

B. Saudara Sepupu (I,J)
saudara_sepupu(I,J).
I = fakhrul,
J = arik ;
I = fakhrul,
J = lulu ;
I = aviva,
J = arik ;
I = aviva,
J = lulu ;
I = arik,
J = fakhrul ;
I = arik,
J = aviva ;
I = lulu,
J = fakhrul ;
I = lulu,
J = aviva ;
I = fakhrul,
J = sirin ;
I = fakhrul,
J = aliya ;
I = fakhrul,
J = nafila ;
I = fakhrul,
J = rasyid ;
I = aviva,
J = sirin ;
I = aviva,
J = aliya ;
I = aviva,
J = nafila ;
I = aviva,
J = rasyid ;
I = arik,
J = sirin ;
I = arik,
J = aliya ;
I = arik,
J = nafila ;
I = arik,
J = rasyid ;


C. Paman (K,L)
paman(K,L).
K = fridel,
L = arik ;
K = fridel,
L = lulu ;
K = desy,
L = fakhrul ;
K = desy,
L = aviva ;
K = desy,
L = arik ;
K = desy,
L = lulu ;
K = syukrip,
L = fakhrul ;
K = syukrip,
L = aviva ;
K = watti,
L = dian ;
K = watti,
L = dhira ;
K = watti,
L = dhea ;
K = rahmi,
L = dian ;
K = rahmi,
L = dhira ;
K = rahmi,
L = dhea ;

D.saudara_kandung(NamaAnda,N).
NamaAnda = fridel,
N = desy ;
NamaAnda = fridel,
N = syukrip ;
NamaAnda = desy,
N = fridel ;
NamaAnda = desy,
N = syukrip ;
NamaAnda = syukrip,
N = fridel ;
NamaAnda = syukrip,
N = desy ;
NamaAnda = fakhrul,
N = aviva ;
NamaAnda = aviva,
N = fakhrul ;
NamaAnda = indra,
N = watti ;
NamaAnda = indra,
N = rahmi ;
NamaAnda = watti,
N = indra ;
NamaAnda = watti,
N = rahmi ;
NamaAnda = rahmi,
N = indra ;
NamaAnda = rahmi,
N = watti ;

E. saudara_sepupu(NamaAnda,T).
NamaAnda = fakhrul,
T = arik ;
NamaAnda = fakhrul,
T = lulu ;
NamaAnda = aviva,
T = arik ;
NamaAnda = aviva,
T = lulu ;
NamaAnda = arik,
T = fakhrul ;
NamaAnda = arik,
T = aviva ;
NamaAnda = lulu,
T = fakhrul ;
NamaAnda = lulu,
T = aviva ;
NamaAnda = fakhrul,
T = sirin ;
NamaAnda = fakhrul,
T = aliya ;
NamaAnda = fakhrul,
T = nafila ;
NamaAnda = fakhrul,
T = rasyid ;
NamaAnda = aviva,
T = sirin ;
NamaAnda = aviva,
T = aliya ;
NamaAnda = aviva,
T = nafila ;
NamaAnda = aviva,
T = rasyid ;
NamaAnda = arik,
T = sirin ;
NamaAnda = arik,
T = aliya ;
NamaAnda = arik,
T = nafila ;
NamaAnda = arik,
T = rasyid ;
NamaAnda = lulu,
T = sirin ;

F. paman(K,NamaAnda).
K = fridel,
NamaAnda = arik ;
K = fridel,
NamaAnda = lulu ;
K = desy,
NamaAnda = fakhrul ;
K = desy,
NamaAnda = aviva ;
K = desy,

vely dwiana sari mengatakan...

3KA31, 17118208, Vely Dwiana Sari

https://drive.google.com/file/d/1OLL9RjAKIQOaL0Jmg1p2yAlqcnFpaNBE/view?usp=sharing

FAKTA :
%%orang tua*/
ayah(adnan,rizal).
ayah(adnan,rudi).
ayah(adnan,dodi).
ayah(rizal,nia).
ayah(rizal,vely).
ayah(rizal,raziq).
ayah(rudi,dio).
ayah(rudi,intan).
ayah(dodi,riki).
ayah(dodi,mila).
ibu(nisa,rizal).
ibu(nisa,rudi).
ibu(nisa,dodi).
ibu(linda,nia).
ibu(linda,vely).
ibu(linda,raziq).
ibu(ida,intan).
ibu(ida,dio).
ibu(emi,riki).
ibu(emi,mila).

ATURAN :
% Nama1 adalah saudara kandung Nama2*/

saudara_kandung(Nama,Name):-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama\=Name.

%% Sdr1 adalah saudara sepupu sdr2*/

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).
%% paman adalah saudara ayah*/

paman(Paman,Orang):-
saudara_kandung(Paman,Ayah),
ayah(Ayah,Orang).


SOAL dan Output Program
Jawab :

a. ?-saudara_kandung(G,H).
G = rizal,
H = rudi ;
G = rizal,
H = dodi ;
G = rudi,
H = rizal ;
G = rudi,
H = dodi ;
G = dodi,
H = rizal ;
G = dodi,
H = rudi ;
G = nia,
H = vely ;
G = nia,
H = raziq ;
G = vely,
H = nia ;
G = vely,
H = raziq ;
G = raziq,
H = nia ;
G = raziq,
H = vely ;
G = dio,
H = intan ;
G = intan,
H = dio ;
G = riki,
H = mila ;
G = mila,
H = riki ;

b. ?-saudara_sepupu(I,J).
I = nia,
J = dio ;
I = nia,
J = intan ;
I = nia,
J = riki ;
I = nia,
J = mila ;
I = vely,
J = dio ;
I = vely,
J = intan ;
I = vely,
J = riki ;
I = vely,
J = mila ;
I = raziq,
J = dio ;
I = raziq,
J = intan ;
I = raziq,
J = riki ;
I = raziq,
J = mila ;
I = dio,
J = nia ;
I = dio,
J = vely ;
I = dio,
J = raziq ;
I = dio,
J = riki ;
I = dio,
J = mila ;
I = intan,
J = nia ;
I = intan,
J = vely ;
I = intan,
J = raziq ;
I = intan,
J = riki ;
I = intan,
J = mila ;
I = riki,
J = nia ;
I = riki,
J = vely ;
I = riki,
J = raziq ;
I = riki,
J = dio ;
I = riki,
J = intan ;
I = mila,
J = nia ;
I = mila,
J = vely ;
I = mila,
J = raziq ;
I = mila,
J = dio ;
I = mila,
J = intan ;

c. ?-paman(K,L).
K = rizal,
L = dio ;
K = rizal,
L = intan ;
K = rizal,
L = riki ;
K = rizal,
L = mila ;
K = rudi,
L = nia ;
K = rudi,
L = vely ;
K = rudi,
L = raziq ;
K = rudi,
L = riki ;
K = rudi,
L = mila ;
K = dodi,
L = nia ;
K = dodi,
L = vely ;
K = dodi,
L = raziq ;
K = dodi,
L = dio ;
K = dodi,
L = intan ;

d. ?-saudara_kandung(NamaAnda,N).
N = nia ;
N = raziq.

e. ?-saudara_sepupu(NamaAnda,T).
T = dio ;
T = intan ;
T = riki ;
T = mila ;

f. ?-paman(K, NamaAnda).
K = rudi ;
K = dodi ;

Theresia Miranda Rosa mengatakan...

3KA08, 17118050, THERESIA MIRANDA ROSA

https://drive.google.com/drive/u/1/my-drive

ayah(maksum,bernardus).
ayah(maksum,saut).
ayah(bernardus,vande).
ayah(bernardus,theresia).
ayah(saut,paskah).
ayah(saut,david).
ayah(saut,panca).
ayah(japir,esly).
ayah(luhut,wenpi).
ibu(taon,bernardus).
ibu(taon,saut).
ibu(esly,vande).
ibu(esly,theresia).
ibu(wenpi,paskah).
ibu(wenpi,david).
ibu(wenpi,panca).
ibu(uliana,esly).
ibu(meranti,wenpi).

%%Kakek adalah kakek cucu */
kakek(Kakek,Cucu) :-ayah(Ayah,Cucu),ayah(Kakek,Ayah).
kakek(Kakek,Cucu) :-ibu(Ibu,Cucu),ayah(Kakek,Ibu).

%%Nenek adalah nenek cucu */
nenek(Nenek,Cucu):-ayah(Ayah,Cucu),ibu(Nenek,Ayah).
nenek(Nenek,Cucu):-ibu(Ibu,Cucu),ibu(Nenek,Ibu).

%% Nama1 adalah saudara kandung Nama2 */
saudara_kandung(Nama,Name):-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama\=Name.

%% Sdr1 adalah saudara sepupu sdr2 */


saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).

%% Paman adalah saudara ayah */

paman(Paman,Orang) :-
saudara_kandung(Paman,Ayah),
ayah(Ayah,Orang).

Jawaban:

a. saudara_kandung(G,H).
G = bernardus,
H = saut ;
G = saut,
H = bernardus ;
G = vande,
H = theresia ;
G = theresia,
H = vande ;
G = paskah,
H = david ;
G = paskah,
H = panca ;
G = david,
H = paskah ;
G = david,
H = panca ;
G = panca,
H = paskah ;
G = panca,
H = david ;

b. saudara_sepupu(I,J).
I = vande,
J = paskah ;
I = vande,
J = david ;
I = vande,
J = panca ;
I = theresia,
J = paskah ;
I = theresia,
J = david ;
I = theresia,
J = panca ;
I = paskah,
J = vande ;
I = paskah,
J = theresia ;
I = david,
J = vande ;
I = david,
J = theresia ;
I = panca,
J = vande ;
I = panca,
J = theresia ;

c. paman(K,L).
K = bernardus,
L = paskah ;
K = bernardus,
L = david ;
K = bernardus,
L = panca ;
K = saut,
L = vande ;
K = saut,
L = theresia ;

d. saudara_kandung(theresia,N).
N = vande ;

e. saudara_sepupu(theresia,T).
T = paskah ;
T = david ;
T = panca ;

f. paman(K,theresia).
K = saut ;

Jacobus mengatakan...

3KA31_13118447_Jacobus hans gradiyanto
Link Google Drive : https://drive.google.com/file/d/1g-yY4K7EK_lgHk-20RH-0-V-3hRB40Hb/view?usp=sharing

1. Fakta
%%orang tua*/
ayah(karso,pardiah).
ayah(karso,wakijan).
ayah(karso,paino).
ayah(karso,sutarni).
ayah(karso,paini).
ayah(karso,suryanto).
ayah(karso,suyono).
ayah(karso,sumarni).
ayah(suyadi,yani).
ayah(suyadi,nauli).
ayah(suyadi,endah).
ayah(suyadi,wiwi).
ayah(suyadi,bowo).
ayah(suyadi,pur).
ayah(wakijan,yuli).
ayah(paino,edi).
ayah(paino,eni).
ayah(sapon,puput).
ayah(sapon,tyas).
ayah(narso,agung).
ayah(narso,yuni).
ayah(narso,hana).
ayah(suryanto,angel).
ayah(suryanto,johanes).
ayah(suryanto,jacobus).
ayah(suryanto,veronica).
ayah(suyono,feri).
ayah(suyono,ages).
ayah(fernando,utari).
ayah(fernando,tobias).
ayah(fernando,sami).

ibu(suratmi,pardiah).
ibu(suratmi,wakijan).
ibu(suratmi,paino).
ibu(suratmi,sutarni).
ibu(suratmi,suryanto).
ibu(suratmi,suyono).
ibu(suratmi,sumarni).
ibu(pardiah,yani).
ibu(pardiah,nauli).
ibu(pardiah,endah).
ibu(pardiah,wiwi).
ibu(pardiah,bowo).
ibu(pardiah,pur).
ibu(tati,yuli).
ibu(wagiem,edi).
ibu(wagiem,eni).
ibu(sutarni,puput).
ibu(sutarni,tyas).
ibu(paini,agung).
ibu(paini,yuni).
ibu(paini,hana).
ibu(sri_mulyani,angel).
ibu(sri_mulyani,johanes).
ibu(sri_mulyani,jacobus).
ibu(sri_mulyani,veronica).
ibu(suriah,feri).
ibu(suriah,ages).
ibu(sumarni,utari).
ibu(sumarni,tobias).
ibu(sumarni,sami).
2. Aturan
%% Kakek adalah kakek cucu */
kakek(Kakek,Cucu):-ayah(Ayah,Cucu),ayah(Kakek,Ayah).
kakek(Kakek,Cucu):-ibu(Ibu,Cucu),ayah(Kakek,Ibu).

%% Nenek adalah nenek cucu */
nenek(Nenek,Cucu):-ayah(Ayah,Cucu),ibu(Nenek,Ayah).
nenek(Nenek,Cucu):-ibu(Ibu,Cucu),ibu(Nenek,Ibu).

%% Nama1 adalah saudara kandung Nama2 */
saudara_kandung(Nama,Name):-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama\=Name.

%% Sdr1 adalah saudara sepupu sdr2 */
saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).

%% sdr_kdg ayah adalah paman */
paman(Paman,Orang):-
saudara_kandung(Paman,Ayah),
ayah(Ayah,Orang).

A. saudara_kandung(G,H)
G = pardiah,
H = wakijan ;
G = pardiah,
H = paino ;
G = pardiah,
H = sutarni ;
G = pardiah,
H = suryanto ;
G = pardiah,
H = suyono ;
G = pardiah,
H = sumarni ;
G = wakijan,
H = pardiah ;
G = wakijan,
H = paino ;
G = wakijan,
H = sutarni ;
G = wakijan,
H = suryanto ;

B. saudara_sepupu(I,J)
I = yuli,
J = edi ;
I = yuli,
J = eni ;
I = yuli,
J = angel ;
I = yuli,
J = johanes ;
I = yuli,
J = jacobus ;
I = yuli,
J = veronica ;
I = yuli,
J = feri ;
I = yuli,
J = ages ;
I = edi,
J = yuli ;
I = edi,
J = angel ;
I = edi,
J = johanes ;
I = edi,
J = jacobus ;
I = edi,
J = veronica ;
I = edi,
J = feri ;
I = edi,
J = ages ;
I = eni,
J = yuli ;
I = eni,
J = angel ;
I = eni,
J = johanes ;
I = eni,
J = jacobus ;
I = eni,
J = veronica ;
I = eni,
J = feri ;
I = eni,
J = ages ;
I = angel,
J = yuli ;
I = angel,
J = edi ;
I = angel,
J = eni ;
I = angel,
J = feri ;
I = angel,
J = ages ;
I = johanes,
J = yuli ;
I = johanes,
J = edi ;
I = johanes,
J = eni ;
I = johanes,
J = feri ;
I = johanes,
J = ages ;
I = jacobus,
J = yuli ;
I = jacobus,
J = edi ;

C.paman(K,L)
K = pardiah,
L = yuli ;
K = pardiah,
L = edi ;
K = pardiah,
L = eni ;
K = pardiah,
L = angel ;
K = pardiah,
L = johanes ;
K = pardiah,
L = jacobus ;
K = pardiah,
L = veronica ;
K = pardiah,
L = feri ;
K = pardiah,
L = ages ;

D. saudara_kandung(jacobus, N)
N = angel ;
N = johanes ;
N = veronica.

E. saudara_sepupu(jacobus,T)
T = yuli ;
T = edi ;
T = eni ;
T = feri ;
T = ages ;
T = yani ;
T = nauli ;
T = endah ;
T = wiwi ;
T = bowo ;
T = pur ;
T = puput ;
T = tyas ;
T = utari ;
T = tobias ;
T = sami ;

F. paman(K, jacobus)
K = pardiah ;
K = wakijan ;
K = paino ;
K = sutarni ;
K = suyono ;
K = sumarni ;

Rafi Priatna mengatakan...

3KA31, 15118760, Rafi Priatna Kasbiantoro.

https://drive.google.com/file/d/1zL9iSElW0I-aKYcALL6o_gKhqMAuDcPl/view?usp=sharing

%% Fakta */
ayah(suryono, rafi).
ayah(suryono, atha).
ayah(aja, suryono).
ayah(joko, darni).
ayah(joko, sri).
ayah(joko, tohar).
ibu(darni, rafi).
ibu(darni, atha).
ibu(sri, iqbal).
ibu(sri, gilang).
ibu(siti, suryono).
ibu(dami, darni).
ibu(dami, sri).
ibu(dami, tohar).

jk(rafi, laki).
jk(atha, laki).
jk(iqbal, laki).
jk(gilang, laki).
jk(tohar, laki).

%% Aturan */
%% Saudara Kandung */
saudara_kandung(Sk1,Sk2) :-
ayah(Ayah,Sk1),
ayah(Ayah,Sk2),
ibu(Ibu,Sk1),
ibu(Ibu,Sk2),
Sk1 \= Sk2.

%% Saudara Sepupu */
saudara_sepupu(Sp1,Sp2) :-
ayah(Ayah1,Sp1),
ayah(Ayah2,Sp2),
saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sp1,Sp2) :-
ayah(Ayah,Sp1),
ibu(Ibu,Sp2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sp1,Sp2) :-
ibu(Ibu,Sp1),
ayah(Ayah,Sp2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sp1,Sp2) :-
ibu(Ibu1,Sp1),
ibu(Ibu2,Sp2),
saudara_kandung(Ibu1,Ibu2).

%% Paman */
paman(Paman,Keponakan) :-
ibu(Ibu,Keponakan),
jk(Paman,laki),
saudara_kandung(Paman,Ibu).

Output:

a.saudara_kandung(G,H)
?- saudara_kandung(G,H).
G = rafi,
H = atha ;
G = atha,
H = rafi ;
G = darni,
H = sri ;
G = darni,
H = tohar ;
G = sri,
H = darni ;
G = sri,
H = tohar ;
G = tohar,
H = darni ;
G = tohar,
H = sri ;

b. saudara_sepupu(I,J)
?- saudara_sepupu(I,J).
I = rafi,
J = iqbal ;
I = rafi,
J = gilang ;
I = atha,
J = iqbal ;
I = atha,
J = gilang ;
I = iqbal,
J = rafi ;
I = iqbal,
J = atha ;
I = gilang,
J = rafi ;
I = gilang,
J = atha ;

c. paman(K,L)
?- paman(K,L).
K = tohar,
L = rafi ;
K = tohar,
L = atha ;
K = tohar,
L = iqbal ;
K = tohar,
L = gilang ;

d. saudara_kandung(NamaAnda,N)
?- saudara_kandung(rafi,N).
N = atha.

e. saudara_sepupu(NamaAnda,T)
?- saudara_sepupu(rafi,T).
T = iqbal ;
T = gilang ;

f. paman(K,NamaAnda)
?- paman(K,rafi).
K = tohar.

Unknown mengatakan...

11118360,3KA07,Bariki Saifan Negara

https://drive.google.com/file/d/1T7cEU0IyvKQWi_Eah6RGnVms11VsRf8_/view?usp=sharing

Fakta :
%%orang tua */
ayah(daud,rudi).
ayah(daud,lina).
ayah(daud,dewi).
ayah(daud,adhek).
ayah(daud,riri).
ayah(rudi,danu).
ayah(rudi,raeka).
ayah(ihsan,abidi).
ayah(ihsan,bariki).
ayah(bambang,yaya).
ayah(bambang,fio).
ibu(ratna,rudi).
ibu(ratna,lina).
ibu(ratna,dewi).
ibu(ratna,adhek).
ibu(ratna,riri).
ibu(rian,danu).
ibu(rian,raeka).
ibu(lina,abidi).
ibu(lina,bariki).
ibu(dewi,yaya).
ibu(dewi,fio).

perempuan(ratna).
perempuan(lina).
perempuan(dewi).
perempuan(adhek).
perempuan(riri).
perempuan(rian).

Aturan:
%%Kakek adalah kakek cucu */
kakek(Kakek,Cucu):-ayah(Ayah,Cucu),ayah(Kakek,Ayah).


%% Nenek adalah nenek cucu */
nenek(Nenek,Cucu):-ayah(Ayah,Cucu),ibu(Nenek,Ayah).

nenek(Nenek,Cucu):-ibu(Ibu,Cucu),ibu(Nenek,Ibu).


%% Nama1 adalah saudara kandung Nama2 */

saudara_kandung(Nama,Name):-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama\=Name.


%% Sdr1 adalah saudara sepupu sdr2 */


saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).

%% sdr_kdg ayah adalah paman */
paman(Paman,Orang):-
saudara_sepupu(Orang,Sdr1),
ayah(Paman,Sdr1).

a.saudara_kandung(G,H).
G = rudi,
H = lina ;
G = rudi,
H = dewi ;
G = rudi,
H = adhek ;
G = rudi,
H = riri ;
G = lina,
H = rudi ;
G = lina,
H = dewi ;
G = lina,
H = adhek ;
G = lina,
H = riri ;
G = dewi,
H = rudi ;
G = dewi,
H = lina ;
G = dewi,
H = adhek ;
G = dewi,
H = riri ;
G = adhek,
H = rudi ;
G = adhek,
H = lina ;
G = adhek,
H = dewi ;
G = adhek,
H = riri ;
G = riri,
H = rudi ;
G = riri,
H = lina ;
G = riri,
H = dewi ;
G = riri,
H = adhek ;
G = danu,
H = raeka ;
G = raeka,
H = danu ;
G = abidi,
H = bariki ;
G = bariki,
H = abidi ;
G = yaya,
H = fio ;
G = fio,
H = yaya ;

b.saudara_sepupu(I,J).
I = danu,
J = abidi ;
I = danu,
J = bariki ;
I = danu,
J = yaya ;
I = danu,
J = fio ;
I = raeka,
J = abidi ;
I = raeka,
J = bariki ;
I = raeka,
J = yaya ;
I = raeka,
J = fio ;
I = abidi,
J = danu ;
I = abidi,
J = raeka ;
I = bariki,
J = danu ;
I = bariki,
J = raeka ;
I = yaya,
J = danu ;
I = yaya,
J = raeka ;
I = fio,
J = danu ;
I = fio,
J = raeka ;
I = abidi,
J = yaya ;
I = abidi,
J = fio ;
I = bariki,
J = yaya ;
I = bariki,
J = fio ;
I = yaya,
J = abidi ;
I = yaya,
J = bariki ;
I = fio,
J = abidi ;
I = fio,
J = bariki ;

c.paman(K,L).
K = ihsan,
L = danu ;
K = ihsan,
L = danu ;
K = bambang,
L = danu ;
K = bambang,
L = danu ;
K = ihsan,
L = raeka ;
K = ihsan,
L = raeka ;
K = bambang,
L = raeka ;
K = bambang,
L = raeka ;
K = rudi,
L = abidi ;
K = rudi,
L = abidi ;
K = rudi,
L = bariki ;
K = rudi,
L = bariki ;
K = rudi,
L = yaya ;
K = rudi,
L = yaya ;
K = rudi,
L = fio ;
K = rudi,
L = fio ;
K = bambang,
L = abidi ;
K = bambang,
L = abidi ;
K = bambang,
L = bariki ;
K = bambang,
L = bariki ;
K = ihsan,
L = yaya ;
K = ihsan,
L = yaya ;
K = ihsan,
L = fio ;
K = ihsan,
L = fio ;

d.saudara_kandung(bariki,N).
N = abidi

e.saudara_sepupu(bariki,T).
T = danu ;
T = raeka ;
T = yaya ;
T = fio.

f.paman(K,bariki).
K = rudi

Welcome mengatakan...

3KA31_12118190_Eky Riswandiyah

Link gdrive file silsilah_Eky Riswandiyah
https://drive.google.com/file/d/1ptFHED4LUufRiUVvJoAVtlBnYXv6HPAB/view?usp=sharing

FAKTA

%%orangtua */
ayah(suanto,djoni).
ayah(suanto,jefri).
ayah(djoni,ryan).
ayah(djoni,eky).
ayah(djoni,ade).
ayah(jefri,mikhael).
ayah(jefri,semi).
ibu(desi,djoni).
ibu(desi,jefri).
ibu(nunung,ryan).
ibu(nunung,eky).
ibu(nunung,ade).
ibu(kristin,mikhael).
ibu(kristin,semi).

ATURAN

%% Nama1 adalah saudara kandung Nama2*/

saudara_kandung(Sk1,Sk2):-
ayah(Ayah,Sk1),
ayah(Ayah,Sk2),
ibu(Ibu,Sk1),
ibu(Ibu,Sk2),
Sk1 \= Sk2.

saudara_sepupu(Sp1,Sp2):-
ayah(Ayah1,Sp1),
ayah(Ayah2,Sp2),

saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sp1,Sp2) :-
ayah(Ayah,Sp1),
ibu(Ibu,Sp2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sp1,Sp2):-
ibu(Ibu,Sp1),
ayah(Ayah,Sp2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sp1,Sp2) :-
ibu(Ibu1,Sp1),
ibu(Ibu2,Sp2),
saudara_kandung(Ibu1,Ibu2).

%%Paman adalah saudara ayah */

paman(Paman,Keponakan):-
ayah(Ayah,Keponakan),
saudara_kandung(Paman,Ayah).

OUTPUT

a. saudara kandung(G,H)

saudara_kandung(G,H).
G = djoni,
H = jefri ;
G = jefri,
H = djoni ;
G = ryan,
H = eky ;
G = ryan,
H = ade ;
G = eky,
H = ryan ;
G = eky,
H = ade ;
G = ade,
H = ryan ;
G = ade,
H = eky

b.saudara sepuppu(I,J)

saudara_sepupu(I,J).
I = ryan,
J = mikhael ;
I = ryan,
J = semi ;
I = eky,
J = mikhael ;
I = eky,
J = semi ;
I = ade,
J = mikhael ;
I = ade,
J = semi

c. paman(K,L).

paman(K,L).
K = jefri,
L = ryan ;
K = jefri,
L = eky ;
K = jefri,
L = ade ;
K = djoni,
L = mikhael ;
K = djoni,
L = semi

d. saudara kandung(eky,N).

N = ryan ;
N = ade.

e. saudara_sepupu(eky,T).

T = mikhael ;
T = semi

f. paman(K,eky).

K = jefri


Rafif Imam mengatakan...
Komentar ini telah dihapus oleh pengarang.
Arkan Amir mengatakan...

3KA31_11118107_Arkan Amir

https://drive.google.com/file/d/1MQfA31LYcC3UC4Z0im-82xe5pzbbXQL8/view?usp=sharing

%% Fakta */
ayah(suladi,tini).
ayah(suladi,tuti).
ayah(poniman,rima).
ayah(poniman,dyah).
ayah(poniman,mei).
ayah(bustomi,arkan).
ayah(bustomi,hana).
ayah(bustomi,hani).
ayah(bustomi,nabila).
ibu(pariyem,tini).
ibu(pariyem,tuti).
ibu(tini,rima).
ibu(tini,dyah).
ibu(tini,mei).
ibu(tuti,arkan).
ibu(tuti,hana).
ibu(tuti,hani).
ibu(tuti,nabila).

Aturan:
%% Saudara Kandung */
saudara_kandung(Sk1,Sk2) :-
ayah(Ayah,Sk1),
ayah(Ayah,Sk2),
ibu(Ibu,Sk1),
ibu(Ibu,Sk2),
Sk1 \= Sk2.

%% Saudara Sepupu */
saudara_sepupu(Sp1,Sp2) :-
ayah(Ayah1,Sp1),
ayah(Ayah2,Sp2),
saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sp1,Sp2) :-
ayah(Ayah,Sp1),
ibu(Ibu,Sp2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sp1,Sp2) :-
ibu(Ibu,Sp1),
ayah(Ayah,Sp2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sp1,Sp2) :-
ibu(Ibu1,Sp1),
ibu(Ibu2,Sp2),
saudara_kandung(Ibu1,Ibu2).

%% Paman */
paman(Paman,Keponakan) :-
ibu(Ibu,Keponakan),
saudara_kandung(Paman,Ibu).

Output/Jawaban:
A.
saudara_kandung(G,H).
G = tini,
H = tuti ;
G = tuti,
H = tini ;
G = rima,
H = dyah ;
G = rima,
H = mei ;
G = dyah,
H = rima ;
G = dyah,
H = mei ;
G = mei,
H = rima ;
G = mei,
H = dyah ;
G = arkan,
H = hana ;
G = arkan,
H = hani ;
G = arkan,
H = nabila ;
G = hana,
H = arkan ;
G = hana,
H = hani ;
G = hana,
H = nabila ;
G = hani,
H = arkan ;
G = hani,
H = hana ;
G = hani,
H = nabila ;
G = nabila,
H = arkan ;
G = nabila,
H = hana ;
G = nabila,
H = hani ;

B.
saudara_sepupu(I,J).
I = rima,
J = arkan ;
I = rima,
J = hana ;
I = rima,
J = hani ;
I = rima,
J = nabila ;
I = dyah,
J = arkan ;
I = dyah,
J = hana ;
I = dyah,
J = hani ;
I = dyah,
J = nabila ;
I = mei,
J = arkan ;
I = mei,
J = hana ;
I = mei,
J = hani ;
I = mei,
J = nabila ;
I = arkan,
J = rima ;
I = arkan,
J = dyah ;
I = arkan,
J = mei ;
I = hana,
J = rima ;
I = hana,
J = dyah ;
I = hana,
J = mei ;
I = hani,
J = rima ;
I = hani,
J = dyah ;
I = hani,
J = mei ;
I = nabila,
J = rima ;
I = nabila,
J = dyah ;
I = nabila,
J = mei ;

C.
paman(K,L).
K = tuti,
L = rima ;
K = tuti,
L = dyah ;
K = tuti,
L = mei ;
K = tini,
L = arkan ;
K = tini,
L = hana ;
K = tini,
L = hani ;
K = tini,
L = nabila ;

D.
saudara_kandung(arkan,N).
N = hana ;
N = hani ;
N = nabila.

E.
saudara_sepupu(arkan,T).
T = rima ;
T = dyah ;
T = mei ;

F.
paman(K,arkan).
K = tini ;

Rafif Imam mengatakan...

3KA07, 15118771, Rafif Imam Fajari

https://drive.google.com/file/d/1EdspAv3jtO0p7zAYwV03z1eHzV5rtywh/view?usp=sharing

1. Fakta
%%orang tua*/
ayah(saleh,soliihin).
ayah(saleh,yusro).
ayah(hasan,hermanto).
ayah(hasan,feryanto)
ayah(hermanto,rafif).
ayah(hermanto,robi).
ayah(soliihin,okta).
ibu(khalijah,soliihin).
ibu(khalijah,yusro).
ibu(hasanah,hermanto).
ibu(hasanah,feryanto).
ibu(yusro,rafif).
ibu(yusro,robi).
ibu(nurfadilawati, okta).

2. Aturan
%% Kakek adalah kakek cucu */
kakek(Kakek,Cucu):-ayah(Ayah,Cucu),ayah(Kakek,Ayah).

kakek(Kakek,Cucu):-ibu(Ibu,Cucu),ayah(Kakek,Ibu).

%% Nenek adalah nenek cucu */
nenek(Nenek,Cucu):-ayah(Ayah,Cucu),ibu(Nenek,Ayah).

nenek(Nenek,Cucu):-ibu(Ibu,Cucu),ibu(Nenek,Ibu).

%% Nama1 adalah saudara kandung Nama2 */

saudara_kandung(Nama,Name):-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama\=Name.


%% Sdr1 adalah saudara sepupu sdr2 */


saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).

%% sdr_kdg ayah adalah paman */
paman(Paman,Orang):-
saudara_kandung\=(perempuan),
saudara_kandung(Paman,Ayah),
ayah(Ayah,Orang).

3. output
?- saudara_kandung(G,H).
G = solihin,
H = yusro ;
G = yusro,
H = solihin ;
G = hermanto,
H = feryanto ;
G = feryanto,
H = hermanto ;
G = rafif,
H = robi ;
G = robi,
H = rafif ;

?- saudara_sepupu(I,J).
I = okta,
J = rafif ;
I = okta,
J = robi ;
I = rafif,
J = okta ;
I = robi,
J = okta ;

?- paman(K,L).
K = yusro,
L = okta ;
K = feryanto,
L = rafif ;
K = feryanto,
L = robi ;

?- saudara_kandung(rafif,N).
N = robi.

?- saudara_sepupu(rafif,N).
N = okta ;

?- paman(K,rafif).
K = feryanto ;

Kurniawati mengatakan...

3KA31, 13118725, KURNIAWATI

https://drive.google.com/file/d/1uHMcXTstYt5TlxrckZzPPxAdBpf1-vYV/view?usp=sharing

FAKTA

ayah(wirokartono,suparman).
ayah(wirokartono,sukiman).
ayah(suparman,taufik).
ayah(suparman,anik).
ayah(sukiman,irwansyah).
ayah(sukiman,kurniawati).
ibu(diyem,suparman).
ibu(diyem,sukiman).
ibu(dharsinah,taufik).
ibu(dharsinah,anik).
ibu(sugiarti,irwansyah).
ibu(sugiarti,kurniawati).

ATURAN

%% Nama1 Adalah saudara kandung */

saudara_kandung(Nama,Name):-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama \=Name.

%% Sdr1 adalah saudara sepupu sdr2 */

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).

%% paman adalah saudara ayah */
paman(Paman,Orang):-
saudara_kandung(Paman,Ayah),
ayah(Ayah,Orang).

SOAL DAN JAWABAN
a. saudara_kandung(G,H).
G = suparman,
H = sukiman ;
G = sukiman,
H = suparman ;
G = taufik,
H = anik ;
G = anik,
H = taufik ;
G = irwansyah,
H = kurniawati ;
G = kurniawati,
H = irwansyah ;
false.

b. saudara_sepupu(I,J).
I = taufik,
J = irwansyah ;
I = taufik,
J = kurniawati ;
I = anik,
J = irwansyah ;
I = anik,
J = kurniawati ;
I = irwansyah,
J = taufik ;
I = irwansyah,
J = anik ;
I = kurniawati,
J = taufik ;
I = kurniawati,
J = anik ;
false.

c. paman(K,L).
K = suparman,
L = irwansyah ;
K = suparman,
L = kurniawati ;
K = sukiman,
L = taufik ;
K = sukiman,
L = anik ;
false.

d. saudara_kandung(kurniawati, N).
N = irwansyah ;
false.

e. saudara_sepupu(kurniawati, T).
T = taufik ;
T = anik ;
false.

f. paman(K,kurniawati).
K = suparman ;
false.

shinta bella anggriani mengatakan...

3KA31_Shinta Bella Anggriani_16118687

https://drive.google.com/file/d/1dqkiCAI88pW5K6KwIfpQIa4cVHF6GS7s/view?usp=sharing

1. Fakta:
%% fakta
ayah(sugeng,joko).
ayah(sugeng,jarman).
ayah(sugeng,hartono).
ayah(joko,andre).
ayah(joko,dinta).
ayah(jarman,linda).
ayah(jarman,firman).
ayah(hartono,shinta).
ayah(hartono,fauzan).
ibu(sumarmi,joko).
ibu(sumarmi,jarman).
ibu(sumarmi,hartono).
ibu(lulu,andre).
ibu(lulu,dinta).
ibu(endang,linda).
ibu(endang,firman).
ibu(suzianty,shinta).
ibu(suzianty,fauzan).

2. Aturan:
%% Nama1 adalah saudara kandung */

saudara_kandung(Nama,Name):-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama \=Name.

%% Sdr1 adalah saudara sepupu sdr2 */

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).

%% Paman adalah saudara ayah */

paman(Paman,Orang) :-
saudara_kandung(Paman,Ayah),
ayah(Ayah,Orang).

Soal dan Jawab :
a. ?- saudara_kandung(G,H).
G = joko,
H = jarman ;
G = joko,
H = hartono ;
G = jarman,
H = joko ;
G = jarman,
H = hartono ;
G = hartono,
H = joko ;
G = hartono,
H = jarman ;
G = andre,
H = dinta ;
G = dinta,
H = andre ;
G = linda,
H = firman ;
G = firman,
H = linda ;
G = shinta,
H = fauzan ;
G = fauzan,
H = shinta ;


b. ?- saudara_sepupu(I,J).
I = andre,
J = linda ;
I = andre,
J = firman ;
I = andre,
J = shinta ;
I = andre,
J = fauzan ;
I = dinta,
J = linda ;
I = dinta,
J = firman ;
I = dinta,
J = shinta ;
I = dinta,
J = fauzan ;
I = linda,
J = andre ;
I = linda,
J = dinta ;
I = linda,
J = shinta ;
I = linda,
J = fauzan ;
I = firman,
J = andre ;
I = firman,
J = dinta ;
I = firman,
J = shinta ;
I = firman,
J = fauzan ;
I = shinta,
J = andre ;
I = shinta,
J = dinta ;
I = shinta,
J = linda ;
I = shinta,
J = firman ;
I = fauzan,
J = andre ;
I = fauzan,
J = dinta ;
I = fauzan,
J = linda ;
I = fauzan,
J = firman ;


c. ?- paman(K,L).
K = joko,
L = linda ;
K = joko,
L = firman ;
K = joko,
L = shinta ;
K = joko,
L = fauzan ;
K = jarman,
L = andre ;
K = jarman,
L = dinta ;
K = jarman,
L = shinta ;
K = jarman,
L = fauzan ;
K = hartono,
L = andre ;
K = hartono,
L = dinta ;
K = hartono,
L = linda ;
K = hartono,
L = firman ;

d. ?- saudara_kandung(shinta,N).
N = fauzan.

e. ?- saudara_sepupu(shinta,T).
T = andre ;
T = dinta ;
T = linda ;
T = firman ;

f. ?- paman(K,shinta).
K = joko ;
K = jarman ;

Reyhan Bronovan Hanif mengatakan...

3KA31, 16118033, Reyhan Bronovan Hanif

Link gdrive file Silsilah Keluarga - Reyhan Bronovan Hanif :
https://drive.google.com/file/d/1kXpMXDak6CawMoKTsmTayS-SUBxqrC1S/view?usp=sharing
1. Fakta:

%%orang tua */
ayah(hasnoel,tazwin).
ayah(hasnoel,romi).
ayah(tazwin,fariz).
ayah(tazwin,halida).
ayah(tazwin,reyhan).
ayah(romi,dhila).
ayah(romi,fajri).
ayah(romi,dhiba).
ayah(abdul,fatma).
ayah(ahmad,dewi).
ibu(nirul,tazwin).
ibu(nirul,romi).
ibu(fatma,fariz).
ibu(fatma,halida).
ibu(fatma,reyhan).
ibu(dewi,dhila).
ibu(dewi,fajri).
ibu(dewi,dhiba).
ibu(mulizar,fatma).
ibu(ani,dewi).


2. Aturan:

%% ATURAN */

%% Kakek adalah kakek Cucu */

kakek(Kakek,Cucu) :-
ayah(Ayah,Cucu),
ayah(Kakek,Ayah).

kakek(Kakek,Cucu) :-
ibu(Ibu,Cucu),
ayah(Kakek,Ibu).

%% Nenek adalah nenek Cucu */

nenek(Nenek,Cucu) :-
ayah(Ayah,Cucu),
ibu(Nenek,Ayah).

nenek(Nenek,Cucu) :-
ibu(Ibu,Cucu),
ibu(Nenek,Ibu).

%% Nama1 adalah saudara kandung Nama2 */

saudara_kandung(Nama,Name) :-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama \= Name.

%% Sdr1 adalah saudara sepupu Sdr2 */

saudara_sepupu(Sdr1,Sdr2) :-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sdr1,Sdr2) :-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr1,Sdr2) :-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sdr1,Sdr2) :-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).

%% paman adalah saudara ayah */

paman(Paman,Orang):-
saudara_kandung(Paman,Ayah),
ayah(Ayah,Orang).

3. Output Program Prolog:

a. saudara_kandung(G,H).
Output:
G = tazwin,
H = romi ;
G = romi,
H = tazwin ;
G = fariz,
H = halida ;
G = fariz,
H = reyhan ;
G = halida,
H = fariz ;
G = halida,
H = reyhan ;
G = reyhan,
H = fariz ;
G = reyhan,
H = halida ;
G = dhila,
H = fajri ;
G = dhila,
H = dhiba ;
G = fajri,
H = dhila ;
G = fajri,
H = dhiba ;
G = dhiba,
H = dhila ;
G = dhiba,
H = fajri ;

b. saudara_sepupu(I,J).
Output :
I = fariz,
J = dhila ;
I = fariz,
J = fajri ;
I = fariz,
J = dhiba ;
I = halida,
J = dhila ;
I = halida,
J = fajri ;
I = halida,
J = dhiba ;
I = reyhan,
J = dhila ;
I = reyhan,
J = fajri ;
I = reyhan,
J = dhiba ;
I = dhila,
J = fariz ;
I = dhila,
J = halida ;
I = dhila,
J = reyhan ;
I = fajri,
J = fariz ;
I = fajri,
J = halida ;
I = fajri,
J = reyhan ;
I = dhiba,
J = fariz ;
I = dhiba,
J = halida ;
I = dhiba,
J = reyhan ;

c. Paman(K,L).
Output :
K = tazwin,
L = dhila ;
K = tazwin,
L = fajri ;
K = tazwin,
L = dhiba ;
K = romi,
L = fariz ;
K = romi,
L = halida ;
K = romi,
L = reyhan ;

d. saudara_kandung(reyhan,N).
Output :
N = fariz ;
N = halida ;

e. saudara_sepupu(reyhan,T).
Output :
T = dhila ;
T = fajri ;
T = dhiba ;

f. Paman(K,reyhan).
Output :
K = romi ;

grecilia miru mengatakan...

3KA31_Grecilia Pricillia Miru_12118968

https://drive.google.com/file/d/1I2dEeNYRiUV9mR8f6OzbyDfR8-SPbdOy/view?usp=sharing

1. Fakta:
%% fakta
ayah(henci,agusten).
ayah(henci,toby).
ayah(agusten,malvin).
ayah(agusten,rian).
ayah(agusten,grecilia).
ayah(toby, kelvin).
ibu(damares,agusten).
ibu(damares,toby).
ibu(san,kelvin).
ibu(mintje,malvin).
ibu(mintje,rian).
ibu(mintje,grecilia).

2. Aturan:
%% Nama1 Adalah saudara kandung */

saudara_kandung(Nama,Name):-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama \=Name.

%% Sdr1 adalah saudara sepupu sdr2 */

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).

%% paman adalah saudara ayah */
paman(Paman,Orang):-
saudara_kandung(Paman,Ayah),
ayah(Ayah,Orang).
Soal dan Jawab :
a. ?- saudara_kandung(G,H).
G = agusten,
H = toby ;
G = toby,
H = agusten ;
G = malvin,
H = rian ;
G = malvin,
H = grecilia ;
G = rian,
H = malvin ;
G = rian,
H = grecilia ;
G = grecilia,
H = malvin ;
G = grecilia,
H = rian ;


b. ?- saudara_sepupu(I,J).
I = malvin,
J = kelvin ;
I = rian,
J = kelvin ;
I = grecilia,
J = kelvin ;
I = kelvin,
J = malvin ;
I = kelvin,
J = rian ;
I = kelvin,
J = grecilia ;


c. ?- paman(K,L).
K = agusten,
L = kelvin ;
K = toby,
L = malvin ;
K = toby,
L = rian ;
K = toby,
L = grecilia ;


d. ?- saudara_kandung(grecilia,N).
N = malvin ;
N = rian ;


e. ?- saudara_sepupu(grecilia,T).
T = kelvin ;


f. ?- paman(K,grecilia).
K = toby ;

Audina Garlia mengatakan...

3KA31, 17118637, Audina Garlia M

https://drive.google.com/file/d/1s2B6qGHw3V2L7Ez74og0pH_-EMYDfyCS/view?usp=sharing

1. Fakta

ayah(oberlin,alfonso).
ayah(oberlin,tohap).
ayah(alfonso,natasha).
ayah(alfonso,audina).
ayah(tohap,johanna).
ayah(tohap,jonas).
ayah(tohap,jessica).
ibu(tumiar,alfonso).
ibu(tumiar,tohap).
ibu(ida,natasha).
ibu(ida,audina).
ibu(julinar,johanna).
ibu(julinar,jonas).
ibu(julinar,jessica).

2. Aturan

%% Nama1 adalah saudara kandung Nama2 */

saudara_kandung(Nama,Name):-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama\=Name.

%% Sdr1 adalah saudara sepupu sdr2 */

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).


%% paman adalah saudara ayah */
paman(Paman,Orang) :-
saudara_kandung(Paman,Ayah),
ayah(Ayah,Orang).

3. Output Program Prolog:

a. ?- saudara_kandung(G,H).
G = alfonso,
H = tohap ;
G = tohap,
H = alfonso ;
G = natasha,
H = audina ;
G = audina,
H = natasha ;
G = johanna,
H = jonas ;
G = johanna,
H = jessica ;
G = jonas,
H = johanna ;
G = jonas,
H = jessica ;
G = jessica,
H = johanna ;
G = jessica,
H = jonas ;
false.

b. ?- saudara_sepupu(I,J).
I = natasha,
J = johanna ;
I = natasha,
J = jonas ;
I = natasha,
J = jessica ;
I = audina,
J = johanna ;
I = audina,
J = jonas ;
I = audina,
J = jessica ;
I = johanna,
J = natasha ;
I = johanna,
J = audina ;
I = jonas,
J = natasha ;
I = jonas,
J = audina ;
I = jessica,
J = natasha ;
I = jessica,
J = audina ;
false.

c. ?- paman(K,L).
K = alfonso,
L = johanna ;
K = alfonso,
L = jonas ;
K = alfonso,
L = jessica ;
K = tohap,
L = natasha ;
K = tohap,
L = audina ;
false.

d. ?- saudara_kandung(audina,N).
N = natasha ;
false.

e. ?- saudara_sepupu(audina,T).
T = johanna ;
T = jonas ;
T = jessica ;
false.

f. ?- paman(K,audina).
K = tohap ;
false.

Muhamad Rivaldy Bhaskara 14118377 3KA08 mengatakan...

Muhamad Rivaldy Bhaskara,14118377,3KA08

ayah(suparjo,yono).
ayah(yono,hermono).
ayah(yono,bhaskara).
ayah(yono,mita).
ayah(hermono,firman).
ayah(hermono,rivaldy).
ayah(bhaskara,tyas).
ayah(bhaskara,wira).
ayah(bhaskara,surono).
ayah(jusuf,wendy).
ayah(irsyad,windya).
ayah(irsyad,izzat).
ayah(izzat,akbar).
ayah(izzat,maria).
ayah(izzat,ausrin).
ibu(ismi,wendy).
ibu(zahra,farah).
ibu(farah,bhaskara).
ibu(farah,mita).
ibu(mita,mia).
ibu(mita,wira).
ibu(mita,nur).
ibu(wendy,windya).
ibu(wendy,izzat).
ibu(farah,hermono).
ibu(windya,sandika).
ibu(windya,windi).
ibu(tuti,akbar).
ibu(tuti,maria).
ibu(tuti,ausrin).

%Nama1 adalah saudara kandung Nama2*/
saudara_kandung(Nama,Name):-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama\=Name.

%Sdr1 adalah saudara sepupu sdr2*/
saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).

%Paman adalah saudara kandung ayah*/
paman(Paman,Orang):-
saudara_kandung(Paman,Ayah),
ayah(Ayah,Orang).

%Paman adalah saudara kandung ibu*/
paman1(Paman1,Orang):-
saudara_kandung(Paman1,Ibu),
ibu(Ibu,Orang).

G = hermono,
H = bhaskara ;
G = hermono,
H = mita ;
G = bhaskara,
H = hermono ;
G = bhaskara,
H = mita ;
G = mita,
H = hermono ;
G = mita,
H = bhaskara ;
G = windya,
H = izzat ;
G = izzat,
H = windya ;
G = akbar,
H = maria ;
G = akbar,
H = ausrin ;
G = maria,
H = akbar ;
G = maria,
H = ausrin ;
G = ausrin,
H = akbar ;
G = ausrin,
H = maria ;

?- saudara_sepupu(I,J).
I = firman,
J = tyas ;
I = firman,
J = wira ;
I = firman,
J = surono ;
I = rivaldy,
J = tyas ;
I = rivaldy,
J = wira ;
I = rivaldy,
J = surono ;
I = tyas,
J = firman ;
I = tyas,
J = rivaldy ;
I = wira,
J = firman ;
I = wira,
J = rivaldy ;
I = surono,
J = firman ;
I = surono,
J = rivaldy ;
I = firman,
J = mia ;
I = firman,
J = wira ;
I = firman,
J = nur ;
I = rivaldy,
J = mia ;
I = rivaldy,
J = wira ;
I = rivaldy,
J = nur ;
I = tyas,
J = mia ;
I = tyas,
J = wira ;
I = tyas,
J = nur ;
I = wira,
J = mia ;
I = J, J = wira ;
I = wira,
J = nur ;
I = surono,
J = mia ;
I = surono,
J = wira ;
I = surono,
J = nur ;
I = akbar,
J = sandika ;
I = akbar,
J = windi ;
I = maria,
J = sandika ;
I = maria,
J = windi ;
I = ausrin,
J = sandika ;
I = ausrin,
J = windi ;
I = mia,
J = firman ;
I = mia,
J = rivaldy ;
I = mia,
J = tyas ;
I = mia,
J = wira ;
I = mia,
J = surono ;
I = wira,
J = firman ;
I = wira,
J = rivaldy ;
I = wira,
J = tyas ;
I = wira
?- paman(K,L).
K = hermono,
L = tyas ;
K = hermono,
L = wira ;
K = hermono,
L = surono ;
K = bhaskara,
L = firman ;
K = bhaskara,
L = rivaldy ;
K = mita,
L = firman ;
K = mita,
L = rivaldy ;
K = mita,
L = tyas ;
K = mita,
L = wira ;
K = mita,
L = surono ;
K = windya,
L = akbar ;
K = windya,
L = maria ;
K = windya,
L = ausrin ;


?- saudara_kandung(bhaskara,N).
N = hermono ;
N = mita.

?- saudara_sepupu(rivaldy,T).
T = tyas ;
T = wira ;
T = surono ;
T = mia ;
T = wira ;
T = nur ;
?- paman(K,rivaldy).
K = bhaskara ;
K = mita ;

Rio Kislewi Napitupulu mengatakan...

3KA07, 16118201, Rio Kislewi Napitupulu
1.
https://drive.google.com/file/d/1PB6T2PE-ztLFPhZasEYNHDqU-BRWcZ5n/view?usp=sharing


Fakta :
%%orang tua */
ayah(sabar,darwin).
ayah(sabar,richard).
ayah(sabar,paradon).
ayah(darwin,novi).
ayah(darwin,putri).
ayah(richard,suryani).
ayah(richard,wilda).
ayah(richard,rio).
ayah(paradon,costa).
ayah(paradon,sigit).
ibu(lundu,darwin).
ibu(lundu,richard).
ibu(lundu,paradon).
ibu(tiur,novi).
ibu(tiur,putri).
ibu(tiodor,suryani).
ibu(tiodor,wilda).
ibu(tiodor,rio).
ibu(desi,costa).
ibu(desi,sigit).

2. Aturan :
%% Nama1 adalah saudara kandung Nama2 */


saudara_kandung(Nama,Name):-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama\=Name.

%% Sdr1 adalah saudara sepupu sdr2 */


saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).

%% sdr_kdg ayah adalah paman */
paman(Paman,Orang):-
saudara_kandung\=(perempuan),
saudara_kandung(Paman,Ayah),
ayah(Ayah,Orang).

3. Output:
a. saudara_kandung(G,H)
G = darwin;
H = richard;
G = darwin;
H = paradon;
G = richard;
H = darwin;
G = richard;
H = paradon;
G = paradon;
H = darwin;
G = paradon;
H = richard;
G = novi;
H = putri;
G = novi;
H = putri;
G = putri;
H = novi;
G = putri;
G = suryani;
H = wilda;
G = suryani;
H = rio;
G = wilda;
H = suryani;
G = wilda;
H = rio;
G = rio;
H = suryani;
G = rio;
H = wilda;
G = costa;
H = sigit;
G = costa;
H = sigit;
G = sigit;
H = costa;
G = costa;
H = sigit;

b. saudara_sepupu(I,J).
I = novi;
J = suryani;
I = novi;
J = wilda;
I = novi;
J = rio;
I = novi;
J = costa;
I = novi;
J = sigit;
I = putri;
J = suryani;
I = putri;
J = wilda;
I = putri;
J = rio;
I = putri;
J = costa;
I = putri;
J = sigit;
I = suryani;
J = novi;
I = suryani;
J = putri;
I = suryani;
J = costa;
I = suryani;
J = sigit;
I = wilda;
J = novi;
I = wilda;
J = putri;
I = wilda;
J = costa;
I = wilda;
J = sigit;
I = rio;
J = novi;
I = rio;
J = putri;
I = rio;
J = costa;
I = rio;
J = sigit;
I = costa;
J = novi;
I = costa;
J = putri;
I = costa;
J = suryani;
I = costa;
J = wilda;
I = costa;
J = rio;
I = sigit;
G = novi;
I = sigit;
G = putri;
I = sigit;
G = suryani;
I = sigit;
G = wilda;
I = sigit;
G = rio;

c. paman(K,L)
K = darwin;
L = suryani;
K = darwin;
L = wilda;
K = darwin;
L = rio;
K = darwin;
L = costa;
K = darwin;
L = sigit;
K = richard;
L = novi;
K = richard;
L = putri;
K = richard;
L = costa;
K = richard;
L = sigit;
K = paradon;
L = novi;
K = paradon;
L = putri;
K = paradon;
L = suryani;
K = paradon;
L = wilda;
K = paradon;
L = rio;

d. saudara_kandung(rio,N).
N = suryani;
N = wilda;

e. saudara_sepupu(rio_N).
N = novi;
N = putri;
N = costa;
N = sigit;

f.paman(K,rio).
K = darwin;
K = paradon;

Awang Budiman mengatakan...
Komentar ini telah dihapus oleh pengarang.
Awang Budiman mengatakan...
Komentar ini telah dihapus oleh pengarang.
Awang Budiman mengatakan...

3KA31, 11118247, Awang Budiman

https://drive.google.com/file/d/1zeZIe6mz8XF5lHkPuaUBA5XwykooGa0x/view?usp=sharing

1. FAKTA :
ayah(ahya,adi).
ayah(ahya,eman).
ayah(ahya,iyat).
ayah(ahya,ade).
ayah(adi,dian).
ayah(adi,dadan).
ayah(adi,nita).
ayah(adi,awang).
ayah(eman,lulu).
ayah(iing,nana).
ayah(idris,lita).
ibu(jojo,adi).
ibu(jojo,eman).
ibu(jojo,iyat).
ibu(jojo,ade).
ibu(iti,dian).
ibu(iti,dadan).
ibu(iti,nita).
ibu(iti,awang).
ibu(heni,lulu).
ibu(iyat,nana).
ibu(ade,lita).

2. ATURAN :
%% Nama1 adalah saudara kandung Nama2 */

saudara_kandung(Nama,Name):-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama\=Name.

%% Sdr1 adalah saudara sepupu sdr2*/
saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).
%% paman adalah saudara ayah*/

paman(Paman,Orang):-
saudara_kandung(Paman,Ayah),
ayah(Ayah,Orang).

3. Soal & Output Program Prolog:
a. saudara_kandung(G,H)
G = adi,
H = eman ;
G = adi,
H = idris ;
G = adi,
H = iing ;
G = eman,
H = adi ;
G = eman,
H = idris ;
G = eman,
H = iing ;
G = idris,
H = adi ;
G = idris,
H = eman ;
G = idris,
H = iing ;
G = iing,
H = adi ;
G = iing,
H = eman ;
G = iing,
H = idris ;
G = dian,
H = dadan ;
G = dian,
H = nita ;
G = dian,
H = awang ;
G = dadan,
H = dian ;
G = dadan,
H = nita ;
G = dadan,
H = awang ;
G = nita,
H = dian ;
G = nita,
H = dadan ;
G = nita,
H = awang ;
G = awang,
H = dian ;
G = awang,
H = dadan ;
G = awang,
H = nita ;

b. saudara_sepupu(I,J)
I = dian,
J = lulu ;
I = dian,
J = nana ;
I = dian,
J = lita ;
I = dadan,
J = lulu ;
I = dadan,
J = nana ;
I = dadan,
J = lita ;
I = nita,
J = lulu ;
I = nita,
J = nana ;
I = nita,
J = lita ;
I = awang,
J = lulu ;
I = awang,
J = nana ;
I = awang,
J = lita ;
I = lulu,
J = dian ;
I = lulu,
J = dadan ;
I = lulu,
J = nita ;
I = lulu,
J = awang ;
I = lulu,
J = nana ;
I = lulu,
J = lita ;
I = nana,
J = dian ;
I = nana,
J = dadan ;
I = nana,
J = nita ;
I = nana,
J = awang ;
I = nana,
J = lulu ;
I = nana,
J = lita ;
I = lita,
J = dian ;
I = lita,
J = dadan ;
I = lita,
J = nita ;
I = lita,
J = awang ;
I = lita,
J = lulu ;
I = lita,
J = nana ;

c. paman(K,L)
K = adi,
L = lulu ;
K = adi,
L = lita ;
K = adi,
L = nana ;
K = eman,
L = dian ;
K = eman,
L = dadan ;
K = eman,
L = nita ;
K = eman,
L = awang ;
K = eman,
L = lita ;
K = eman,
L = nana ;
K = idris,
L = dian ;
K = idris,
L = dadan ;
K = idris,
L = nita ;
K = idris,
L = awang ;
K = idris,
L = lulu ;
K = idris,
L = nana ;
K = iing,
L = dian ;
K = iing,
L = dadan ;
K = iing,
L = nita ;
K = iing,
L = awang ;
K = iing,
L = lulu ;
K = iing,
L = lita

d. saudara_kandung(awang, N)
N = dian ;
N = dadan ;
N = nita ;

e. saudara_sepupu(awang,T)
T = lulu ;
T = nana ;
T = lita ;

f.paman(K,awang)
K = eman ;
K = idris ;
K = iing ;

josua sinurat mengatakan...

Selamat Sore pak maaf mengganggu saya ingin mengumpulkan Tugas,
Izin mengumpulkan Tugas pak,
Nama : Josua Hotman Santoso Sinurat
Kelas : 3KA08
Npm : 1311841
Fotmat Tugas : Silsilah Keluarga di buat di Software Prolog

ibu(X,Y):-orangtua(X,Y),perempuan(X).
ayah(X,Y):-orangtua(X,Y),laki(X).

anak(X,Y):-orangtua(Y,X).
anaklaki(X,Y):-orangtua(Y,X),laki(X).
anakperempuan(X,Y):-orangtua(Y,X),perempuan(X).

suami(X,Y):-anak(P,X),anak(P,Y),laki(X).
istri(Y,X):-anak(P,X),anak(P,Y),perempuan(Y).

mertua(X,Y):-(suami(Y,Z);istri(Y,Z)),anak(Z,X).
bapakmertua(X,Y):-(suami(Y,Z);istri(Y,Z)),anak(Z,X),laki(X).
ibumertua(X,Y):-(suami(Y,Z);istri(Y,Z)),anak(Z,X),perempuan(X).

menantulaki(X,Y):-suami(X,Z),anak(Z,Y),perempuan(Z).
menantuperempuan(X,Y):-istri(X,Z),anak(Z,Y),laki(Z).

kakek(X,Z):-orangtua(X,Y),orangtua(Y,Z),laki(X).
nenek(X,Z):-ibu(X,Y),ibu(Y,Z).

cucu(X,Z):-orangtua(Z,Y),anak(X,Y).
cuculaki(X,Z):-orangtua(Z,Y),anak(X,Y),laki(X).
cucuperempuan(X,Z):-orangtua(Z,Y),anak(X,Y),perempuan(X).

cicit(X,Z):-anak(X,Y),cucu(Y,Z).
cicitperempuan(X,Z):-anak(X,Y),cucu(Y,Z),perempuan(X).
cicitlaki(X,Z):-anak(X,Y),cucu(Y,Z),laki(X).

buyut(X,Y):-cicit(Y,X).
buyutlaki(X,Y):-cicit(Y,X),laki(X).
buyutperempuan(X,Y):-cicit(Y,X),perempuan(X).

saudarakandung(Y,Z):-anak(Y,X),anak(Z,X).
saudarakandunglaki(Y,Z):-anak(Y,X),anak(Z,X),laki(Y).
saudarakandungperempuan(Y,Z):-anak(Y,X),anak(Z,X),perempuan(Y).

tantekandung(X,Y):-saudarakandung(X,Z),anak(Y,Z),perempuan(X),not(ibu(X,Y)).
tanteipar(X,Y):-istri(X,Z),saudarakandung(Z,W),anak(Y,W),perempuan(X),not(ibu(X,Y)),not(tante(X,Y)).

omkandung(X,Y):-saudarakandung(X,Z),orangtua(Z,Y),laki(X),not(ayah(X,Y)).
omipar(X,Y):-suami(X,Z),saudarakandung(Z,W),anak(Y,W),laki(X),not(ayah(X,Y)),not(om(X,Y)).

ipar(X,Y):-(suami(X,Z);istri(X,Z)),saudarakandung(Z,Y),not(saudarakandung(X,Y)),not((suami(X,Y);istri(X,Y))).
iparlaki(X,Y):-suami(X,Z),saudarakandung(Z,Y),laki(X),not(saudarakandung(X,Y)),not(suami(X,Y)).
iparperempuan(X,Y):-istri(X,Z),saudarakandung(Z,Y),perempuan(X),not(saudarakandung(X,Y)),not(istri(X,Y)).

ponakan(X,Y):-anak(X,Z),saudarakandung(Z,Y),not(anak(X,Y)).
ponakanlaki(X,Y):-anak(X,Z),saudarakandung(Z,Y),not(anak(X,Y)),laki(X).
ponakanperempuan(X,Y):-anak(X,Z),saudarakandung(Z,Y),not(anak(X,Y)),perempuan(X).

sepupu(X,Y):-anak(X,Z),anak(Y,W),saudarakandung(Z,W),not(saudarakandung(X,Y)).
sepupuperempuan(X,Y):-anak(X,Z),anak(Y,W),saudarakandung(Z,W),not(saudarakandung(X,Y)),perempuan(X).
sepupulaki(X,Y):-anak(X,Z),anak(Y,W),saudarakandung(Z,W),not(saudarakandung(X,Y)),laki(X).

laki(marulam).
laki(sinurat).
laki(siagian).
laki(narman).
laki(ade).
laki(josua).
laki(niko).
laki(cris).
laki(mangihut).
laki(parulian).
laki(benget).
laki(andreas).
perempuan(butarbutar).
perempuan(sinaga).
perempuan(asna).
perempuan(maria).
perempuan(andriani).
perempuan(cindy).
perempuan(fika).
perempuan(sara).
perempuan(putri).
perempuan(fransiska).
perempuan(burju).
perempuan(andri).
perempuan(bella).
orangtua(butarbutar,marulam).
orangtua(sinurat,marulam).
orangtua(marulam,narman).
orangtua(marulam,ade).
orangtua(marulam,josua).
orangtua(asna,narman).
orangtua(asna,ade).
orangtua(asna,josua).
orangtua(narman,fika).
orangtua(narman,sara).
orangtua(narman,putri).
orangtua(cindy,fika).
orangtua(cindy,sara).
orangtua(cindy,putri).
orangtua(sinaga,niko).
orangtua(sinaga,cris).
orangtua(siagian,niko).
orangtua(siagian,cris).
orangtua(mangihut,fransiska).
orangtua(mangihut,bella).
orangtua(sara,fransiska).
orangtua(sara,bella).

OUTPUT

a.
?- saudarakandung(X,ade).
X = narman

b.?- omkandung(X,josua).
X = sinurat .

c.
?- saudarakandung(X,josua).
X = narman

d.b.?- omkandung(X,josua).
X = sinurat .

Terimakasih Pak
selamat Sore Pak

Unknown mengatakan...

3KA07_10118434_Alda Camelia

https://drive.google.com/file/d/1XIJ4wRwyzdfubC8xDlDCwgcHM4PExVrN/view?usp=sharing

1. Fakta
%FAKTA*/
%orang tua*/
ayah(indra,nevy).
ayah(indra,wedy).
ayah(ahyar,naufal).
ayah(ahyar,nadifa).
ayah(ahyar,alda).
ayah(ahyar,daffa).
ayah(yuki,shafira).
ayah(yuki,ayesha).
ayah(yuki,atabari).
ibu(eva,nevy).
ibu(eva,wedy).
ibu(nevy,naufal).
ibu(nevy,nadifa).
ibu(nevy,alda).
ibu(nevy,daffa).
ibu(wedy,shafira).
ibu(wedy,ayesha).
ibu(wedy,atabari).

2. Aturan
%% ATURAN */
%% Nama adalah saudara kandung Name */
saudara_kandung(Nama,Name):-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama\=Name.


%% Sdr1 adalah saudara sepupu sdr2 */
saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).

%% Paman adalah ayah dari saudara sepupu */
paman(Paman,Orang):-
saudara_sepupu(Orang,Sdr1),
ayah(Paman,Sdr1).

3. Outputnya adalah ..

A. ? - saudara_kandung(G,H).
G = nevy,
H = wedy ;
G = wedy,
H = nevy ;
G = naufal,
H = nadifa ;
G = naufal,
H = alda ;
G = naufal,
H = daffa ;
G = nadifa,
H = naufal ;
G = nadifa,
H = alda ;
G = nadifa,
H = daffa ;
G = alda,
H = naufal ;
G = alda,
H = nadifa ;
G = alda,
H = daffa ;
G = daffa,
H = naufal ;
G = daffa,
H = nadifa ;
G = daffa,
H = alda ;
G = shafira,
H = ayesha ;
G = shafira,
H = atabari ;
G = ayesha,
H = shafira ;
G = ayesha,
H = atabari ;
G = atabari,
H = shafira ;
G = atabari,
H = ayesha ;

B. ?- saudara_sepupu(I,J).
I = naufal,
J = shafira ;
I = naufal,
J = ayesha ;
I = naufal,
J = atabari ;
I = nadifa,
J = shafira ;
I = nadifa,
J = ayesha ;
I = nadifa,
J = atabari ;
I = alda,
J = shafira ;
I = alda,
J = ayesha ;
I = alda,
J = atabari ;
I = daffa,
J = shafira ;
I = daffa,
J = ayesha ;
I = daffa,
J = atabari ;
I = shafira,
J = naufal ;
I = shafira,
J = nadifa ;
I = shafira,
J = alda ;
I = shafira,
J = daffa ;
I = ayesha,
J = naufal ;
I = ayesha,
J = nadifa ;
I = ayesha,
J = alda ;
I = ayesha,
J = daffa ;
I = atabari,
J = naufal ;
I = atabari,
J = nadifa ;
I = atabari,
J = alda ;
I = atabari,
J = daffa ;

C. ?- paman(K,L).
K = yuki,
L = naufal ;
K = yuki,
L = nadifa ;
K = yuki,
L = alda ;
K = yuki,
L = daffa ;
K = ahyar,
L = shafira ;
K = ahyar,
L = ayesha ;
K = ahyar,
L = atabari ;


D. ?- saudara_kandung(alda, N).
N = naufal ;
N = nadifa ;
N = daffa.

E. ?- saudara_sepupu(alda,T).
T = shafira ;
T = ayesha ;
T = atabari.

F. ?- paman(K,alda).
K = yuki ;

Ahmad Haydar mengatakan...

3KA07_10118335_Ahmad Haydar Muzaki

https://drive.google.com/file/d/12aUzkpWHhf5_dWy8uSQSFSr9bMLE3L7V/view?usp=sharing

1. Fakta
%%Fakta*/
%%orang tua*/
ayah(rozali,sauqi).
ayah(rozali,rifqi).
ayah(rozali,roni).
ayah(sauqi,haydar).
ayah(sauqi,zaidan).
ayah(rifqi,nazwan).
ayah(rifqi,nazmi).
ayah(roni,nadhifa).
ayah(roni,nadhira).
ibu(asmani,sauqi).
ibu(asmani,rifqi).
ibu(asmani,roni).
ibu(irna,haydar).
ibu(irna,zaidan).
ibu(ria,nazwan).
ibu(ria,nazmi).
ibu(ziyah,nadhifa).
ibu(ziyah,nadhira).

2. Aturan
%%aturan*/
% Nama adalah saudara kandung Name*/

saudara_kandung(Nama,Name):-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama\=Name.

%% Sdr1 adalah saudara sepupu sdr2*/

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).

%% paman adalah saudara ayah*/
paman(Paman,Orang):-
saudara_kandung(Paman,Ayah),
ayah(Ayah,Orang).

%% sdr_kdg ayah adalah paman */
paman(Paman,Orang):-
saudara_kandung(Paman,Ayah),
ayah(Ayah,Orang).

3. Outputnya adalah ...?

A.?- saudara_kandung(G,H).
G = sauqi,
H = rifqi ;
G = sauqi,
H = roni ;
G = rifqi,
H = sauqi ;
G = rifqi,
H = roni ;
G = roni,
H = sauqi ;
G = roni,
H = rifqi ;
G = haydar,
H = zaidan ;
G = zaidan,
H = haydar ;
G = nazwan,
H = nazmi ;
G = nazmi,
H = nazwan ;
G = nadhifa,
H = nadhira ;
G = nadhira,
H = nadhifa ;


B.?- saudara_sepupu(I,J).
I = haydar,
J = nazwan ;
I = haydar,
J = nazmi ;
I = haydar,
J = nadhifa ;
I = haydar,
J = nadhira ;
I = zaidan,
J = nazwan ;
I = zaidan,
J = nazmi ;
I = zaidan,
J = nadhifa ;
I = zaidan,
J = nadhira ;
I = nazwan,
J = haydar ;
I = nazwan,
J = zaidan ;
I = nazwan,
J = nadhifa ;
I = nazwan,
J = nadhira ;
I = nazmi,
J = haydar ;
I = nazmi,
J = zaidan ;
I = nazmi,
J = nadhifa ;
I = nazmi,
J = nadhira ;
I = nadhifa,
J = haydar ;
I = nadhifa,
J = zaidan ;
I = nadhifa,
J = nazwan ;
I = nadhifa,
J = nazmi ;
I = nadhira,
J = haydar ;
I = nadhira,
J = zaidan ;
I = nadhira,
J = nazwan ;
I = nadhira,
J = nazmi ;

C.?- paman(K,L).
K = sauqi,
L = nazwan ;
K = sauqi,
L = nazmi ;
K = sauqi,
L = nadhifa ;
K = sauqi,
L = nadhira ;
K = rifqi,
L = haydar ;
K = rifqi,
L = zaidan ;
K = rifqi,
L = nadhifa ;
K = rifqi,
L = nadhira ;
K = roni,
L = haydar ;
K = roni,
L = zaidan ;
K = roni,
L = nazwan ;
K = roni,
L = nazmi ;

D.?- saudara_kandung(haydar,N).
N = zaidan.

E.?- saudara_sepupu(haydar,T).
T = nazwan ;
T = nazmi ;
T = nadhifa ;
T = nadhira ;

F.?- paman(K,haydar).
K = rifqi ;
K = roni ;

Bayu Sri Pratama mengatakan...
Komentar ini telah dihapus oleh pengarang.
Bayu Sri Pratama mengatakan...

3KA31, 11118386, Bayu Sri Pratama

https://drive.google.com/file/d/1yQ-WQA3smpCKCnW9-4n8VRTU9DnJ4LYG/view?usp=sharing

FAKTA:

%% Orang Tua */
ayah(karman,pradoto).
ayah(karman,didik).
ayah(karman,alip).
ayah(pradoto,windhayu).
ayah(pradoto,andi).
ayah(pradoto,ryan).
ayah(didik,david).
ayah(didik,linda).
ayah(alip,bayu).
ayah(alip,kania).
ibu(wagiyem,pradoto).
ibu(wagiyem,didik).
ibu(wagiyem,alip).
ibu(endang,windhayu).
ibu(endang,andi).
ibu(endang,ryan).
ibu(dewi,david).
ibu(dewi,linda).
ibu(ani,bayu).
ibu(ani,kania).

ATURAN :

% Nama1 adalah saudara kandung Nama2 */

saudara_kandung(Nama,Name):-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama\=Name.

%% Sdr1 adalah saudara sepupu sdr2 */

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).

%% paman adalah saudara ayah */
paman(Paman,Orang):-
saudara_kandung(Paman,Ayah),
ayah(Ayah,Orang).

OUTPUT:

a. ?- saudara_kandung(G,H).
G = pradoto,
H = didik ;
G = pradoto,
H = alip ;
G = didik,
H = pradoto ;
G = didik,
H = alip ;
G = alip,
H = pradoto ;
G = alip,
H = didik ;
G = windhayu,
H = andi ;
G = windhayu,
H = ryan ;
G = andi,
H = windhayu ;
G = andi,
H = ryan ;
G = ryan,
H = windhayu ;
G = ryan,
H = andi ;
G = david,
H = linda ;
G = linda,
H = david ;
G = bayu,
H = kania ;
G = kania,
H = bayu ;

b. ?- saudara_sepupu(I,J).
I = windhayu,
J = david ;
I = windhayu,
J = linda ;
I = windhayu,
J = bayu ;
I = windhayu,
J = kania ;
I = andi,
J = david ;
I = andi,
J = linda ;
I = andi,
J = bayu ;
I = andi,
J = kania ;
I = ryan,
J = david ;
I = ryan,
J = linda ;
I = ryan,
J = bayu ;
I = ryan,
J = kania ;
I = david,
J = windhayu ;
I = david,
J = andi ;
I = david,
J = ryan ;
I = david,
J = bayu ;
I = david,
J = kania ;
I = linda,
J = windhayu ;
I = linda,
J = andi ;
I = linda,
J = ryan ;
I = linda,
J = bayu ;
I = linda,
J = kania ;
I = bayu,
J = windhayu ;
I = bayu,
J = andi ;
I = bayu,
J = ryan ;
I = bayu,
J = david ;
I = bayu,
J = linda ;
I = kania,
J = windhayu ;
I = kania,
J = andi ;
I = kania,
J = ryan ;
I = kania,
J = david ;
I = kania,
J = linda ;

c. ?- paman(K,L).
K = pradoto,
L = david ;
K = pradoto,
L = linda ;
K = pradoto,
L = bayu ;
K = pradoto,
L = kania ;
K = didik,
L = windhayu ;
K = didik,
L = andi ;
K = didik,
L = ryan ;
K = didik,
L = bayu ;
K = didik,
L = kania ;
K = alip,
L = windhayu ;
K = alip,
L = andi ;
K = alip,
L = ryan ;
K = alip,
L = david ;
K = alip,
L = linda ;

d. ?- saudara_kandung(bayu, N).
N = kania.

e. ?- saudara_sepupu(bayu, T).
T = windhayu ;
T = andi ;
T = ryan ;
T = david ;
T = linda ;

f. ?- paman(K, bayu).
K = pradoto ;
K = didik ;

Vin mengatakan...

3KA31, 13118636, Kevin Himawan Prakasa

https://drive.google.com/file/d/1Fuo7VnPm56NdrMfZowloHcH8yguwyFAR/view?usp=sharing

Fakta :
ayah(johan,david).
ayah(johan,andre).
ayah(david,kevin).
ayah(andre,sandra).
ayah(andre,levi).
ayah(andre,nova).
ayah(andre,angel).
ayah(maridi,nuryani).
ayah(maridi,erni).
ayah(maridi,gunawan).
ayah(maridi,rosita).
ayah(gunawan,dzaki).
ayah(gunawan,afgan).
ibu(lessy,david).
ibu(lessy,andre).
ibu(samiyem,nuryani).
ibu(samiyem,erni).
ibu(samiyem,gunawan).
ibu(samiyem,rosita).
ibu(nuryani,kevin).
ibu(erni,aqilla).
ibu(rosita,aghna).
ibu(rosita,alzena).

Aturan :
%% Nama1 adalah saudara kandung Nama2 */
saudara_kandung(Nama,Name):-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama\=Name.

%% Sdr1 adalah saudara sepupu sdr2 */

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).

%% Paman adalah saudara ayah */

paman(Paman,Orang) :-
saudara_kandung(Paman,Ayah),
ayah(Ayah,Orang).

Output:
A. saudara_kandung(G,H)
?- saudara_kandung(G,H).
G = david,
H = andre ;
G = andre,
H = david ;
G = nuryani,
H = erni ;
G = nuryani,
H = gunawan ;
G = nuryani,
H = rosita ;
G = erni,
H = nuryani ;
G = erni,
H = gunawan ;
G = erni,
H = rosita ;
G = gunawan,
H = nuryani ;
G = gunawan,
H = erni ;
G = gunawan,
H = rosita ;
G = rosita,
H = nuryani ;
G = rosita,
H = erni ;
G = rosita,
H = gunawan ;
false.

B. saudara_sepupu(I,J)
?- saudara_sepupu(I,J).
I = kevin,
J = sandra ;
I = kevin,
J = levi ;
I = kevin,
J = nova ;
I = kevin,
J = angel ;
I = sandra,
J = kevin ;
I = levi,
J = kevin ;
I = nova,
J = kevin ;
I = angel,
J = kevin ;
I = dzaki,
J = kevin ;
I = dzaki,
J = aqilla ;
I = dzaki,
J = aghna ;
I = dzaki,
J = alzena ;
I = afgan,
J = kevin ;
I = afgan,
J = aqilla ;
I = afgan,
J = aghna ;
I = afgan,
J = alzena ;
I = kevin,
J = dzaki ;
I = kevin,
J = afgan ;
I = aqilla,
J = dzaki ;
I = aqilla,
J = afgan ;
I = aghna,
J = dzaki ;
I = aghna,
J = afgan ;
I = alzena,
J = dzaki ;
I = alzena,
J = afgan ;
I = kevin,
J = aqilla ;
I = kevin,
J = aghna ;
I = kevin,
J = alzena ;
I = aqilla,
J = kevin ;
I = aqilla,
J = aghna ;
I = aqilla,
J = alzena ;
I = aghna,
J = kevin ;
I = aghna,
J = aqilla ;
I = alzena,
J = kevin ;
I = alzena,
J = aqilla ;
false.

C. paman(K,L)
?- paman(K,L).
K = david,
L = sandra ;
K = david,
L = levi ;
K = david,
L = nova ;
K = david,
L = angel ;
K = andre,
L = kevin ;
K = nuryani,
L = dzaki ;
K = nuryani,
L = afgan ;
K = erni,
L = dzaki ;
K = erni,
L = afgan ;
K = rosita,
L = dzaki ;
K = rosita,
L = afgan ;

D. saudara_kandung(NamaAnda,N)
?- saudara_kandung(kevin,N).
false.

E. saudara_sepupu(NamaAnda,T).
?- saudara_sepupu(kevin,T).
T = sandra ;
T = levi ;
T = nova ;
T = angel ;
T = dzaki ;
T = afgan ;
T = aqilla ;
T = aghna ;
T = alzena.

F. paman(K,NamaAnda)
?- paman(K,kevin).
K = andre ;
false.

naufalabiyyu mengatakan...
Komentar ini telah dihapus oleh pengarang.
naufalabiyyu mengatakan...

3KA31, 14118773, Muhammad Naufal A
https://drive.google.com/file/d/1ffbZ2i5JSt0SDFTRSMvxH1aeYuLMQ_Zy/view?usp=sharing

1. Fakta:
https://drive.google.com/file/d/10iyvAIBJp47F6V7Omr1EyaUNH8pQc61F/view?usp=sharing

2. Aturan:
https://drive.google.com/file/d/1tcCe0LdHWIRwrEWfBa1hPCFdhs43UKij/view

3. Soal & Output Program Prolog :
a. saudara_kandung(G,H)
G = ismoyo,
H = istanto ;
G = ismoyo,
H = agus ;
G = ismoyo,
H = bambang ;
G = istanto,
H = ismoyo ;
G = istanto,
H = agus ;
G = istanto,
H = bambang ;
G = agus,
H = ismoyo ;
G = agus,
H = istanto ;
G = agus,
H = bambang ;
G = bambang,
H = ismoyo ;
G = bambang,
H = istanto ;
G = bambang,
H = agus ;
G = gaga,
H = guna ;
G = gaga,
H = anti ;
G = guna,
H = gaga ;
G = guna,
H = anti ;
G = anti,
H = gaga ;
G = anti,
H = guna ;
G = nahda,
H = rafi ;
G = rafi,
H = nahda ;
G = irfan,
H = rizki ;
G = irfan,
H = naufal ;
G = irfan,
H = nabila ;
G = rizki,
H = irfan ;
G = rizki,
H = naufal ;
G = rizki,
H = nabila ;
G = naufal,
H = irfan ;
G = naufal,
H = rizki ;
G = naufal,
H = nabila ;
G = nabila,
H = irfan ;
G = nabila,
H = rizki ;
G = nabila,
H = naufal ;

b. saudara_sepupu(I,J)

I = gaga,
J = riri ;
I = gaga,
J = nahda ;
I = gaga,
J = rafi ;
I = gaga,
J = irfan ;
I = gaga,
J = rizki ;
I = gaga,
J = naufal ;
I = gaga,
J = nabila ;
I = guna,
J = riri ;
I = guna,
J = nahda ;
I = guna,
J = rafi ;
I = guna,
J = irfan ;
I = guna,
J = rizki ;
I = guna,
J = naufal ;
I = guna,
J = nabila ;
I = anti,
J = riri ;
I = anti,
J = nahda ;
I = anti,
J = rafi ;
I = anti,
J = irfan ;
I = anti,
J = rizki ;
I = anti,
J = naufal ;
I = anti,
J = nabila ;
I = riri,
J = gaga ;
I = riri,
J = guna ;
I = riri,
J = anti ;
I = riri,
J = nahda ;
I = riri,
J = rafi ;
I = riri,
J = irfan ;
I = riri,
J = rizki ;
I = riri,
J = naufal ;
I = riri,
J = nabila ;
I = nahda,
J = gaga ;
I = nahda,
J = guna ;
I = nahda,
J = anti ;
I = nahda,
J = riri ;
I = nahda,
J = irfan ;
I = nahda,
J = rizki ;
I = nahda,
J = naufal ;
I = nahda,
J = nabila ;
I = rafi,
J = gaga ;
I = rafi,
J = guna ;
I = rafi,
J = anti ;
I = rafi,
J = riri ;
I = rafi,
J = irfan ;
I = rafi,
J = rizki ;
I = rafi,
J = naufal ;
I = rafi,
J = nabila ;
I = irfan,
J = gaga ;
I = irfan,
J = guna ;
I = irfan,
J = anti ;
I = irfan,
J = riri ;
I = irfan,
J = nahda ;
I = irfan,
J = rafi ;
I = rizki,
J = gaga ;
I = rizki,
J = guna ;
I = rizki,
J = anti ;
I = rizki,
J = riri ;
I = rizki,
J = nahda ;
I = rizki,
J = rafi ;
I = naufal,
J = gaga ;
I = naufal,
J = guna;
I = naufal,
J = anti;
I = naufal,
J = riri;
I = naufal,
J = nahda;
I = naufal,
J = rafi ;
I = nabila,
J = gaga ;
I = nabila,
J = guna ;
I = nabila,
J = anti ;
I = nabila,
J = riri ;
I = nabila,
J = nahda ;
I = nabila,
J = rafi ;

c. paman(K,L)

K = ismoyo,
L = riri ;
K = ismoyo,
L = nahda ;
K = ismoyo,
L = rafi ;
K = ismoyo,
L = irfan ;
K = ismoyo,
L = rizki ;
K = ismoyo,
L = naufal ;
K = ismoyo,
L = nabila ;
K = istanto,
L = gaga ;
K = istanto,
L = guna ;
K = istanto,
L = anti ;
K = istanto,
L = nahda ;
K = istanto,
L = rafi ;
K = istanto,
L = irfan ;
K = istanto,
L = rizki ;
K = istanto,
L = naufal ;
K = istanto,
L = nabila ;
K = agus,
L = gaga ;
K = agus,
L = guna ;
K = agus,
L = anti ;
K = agus,
L = riri ;
K = agus,
L = irfan ;
K = agus,
L = rizki ;
K = agus,
L = naufal ;
K = agus,
L = nabila ;
K = bambang,
L = gaga ;
K = bambang,
L = guna ;
K = bambang,
L = anti ;
K = bambang,
L = riri ;
K = bambang,
L = nahda ;
K = bambang,
L = rafi ;

d. saudara_kandung(naufal, N)

N = irfan ;
N = rizki ;
N = nabila.

e. saudara_sepupu(naufal,T)

T = gaga ;
T = guna ;
T = anti ;
T = riri ;
T = nahda ;
T = rafi ;

f.paman(K,naufal)
K = ismoyo ;
K = istanto ;
K = agus ;

Danny Restu Mukti mengatakan...

https://drive.google.com/file/d/1Au2bXR6KPgQWuyI4ho2GrljlVYkzCnJO/view?usp=sharing

%% Orang Tua */
ayah(hadiwiroto,triono).
ayah(hadiwiroto,natal).
ayah(hadiwiroto,juniyanto).
ayah(triono,niko).
ayah(triono,vina).
ayah(triono,depi).
ayah(natal,galih).
ayah(natal,angel).
ayah(natal,damian).
ayah(juniyanto,danny).
ayah(juniyanto,evita).
ayah(juniyanto,viska).
ayah(juniyanto,danang).
ibu(slamet,triono).
ibu(slamet,natal).
ibu(slamet,juniyanto).
ibu(rum,niko).
ibu(rum,vina).
ibu(rum,depi).
ibu(mei,galih).
ibu(mei,angel).
ibu(mei,damian).
ibu(paini,danny).
ibu(paini,evita).
ibu(paini,viska).
ibu(paini,danang).

ATURAN :


%% Nama1 adalah saudara kandung Nama2 */

saudara_kandung(Nama,Name):-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama\=Name.

%% Sdr1 adalah saudara sepupu sdr2 */

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).

%% paman adalah saudara ayah */
paman(Paman,Orang):-
saudara_kandung(Paman,Ayah),
ayah(Ayah,Orang).

OUTPUT
?- saudara_kandung(G,H).
G = triono,
H = natal ;
G = triono,
H = juniyanto ;
G = natal,
H = triono ;
G = natal,
H = juniyanto ;
G = juniyanto,
H = triono ;
G = juniyanto,
H = natal ;
G = niko,
H = vina ;
G = niko,
H = depi ;
G = vina,
H = niko ;
G = vina,
H = depi ;
G = depi,
H = niko ;
G = depi,
H = vina ;
G = galih,
H = angel ;
G = galih,
H = damian ;
G = angel,
H = galih ;
G = angel,
H = damian ;
G = damian,
H = galih ;
G = damian,
H = angel ;
G = danny,
H = evita ;
G = danny,
H = viska ;
G = danny,
H = danang ;
G = evita,
H = danny ;
G = evita,
H = viska ;
G = evita,
H = danang ;
G = viska,
H = danny ;
G = viska,
H = evita ;
G = viska,
H = danang ;
G = danang,
H = danny ;
G = danang,
H = evita ;
G = danang,
H = viska ;
false.

?- paman(K,L).
K = triono,
L = galih ;
K = triono,
L = angel ;
K = triono,
L = damian ;
K = triono,
L = danny ;
K = triono,
L = evita ;
K = triono,
L = viska ;
K = triono,
L = danang ;
K = natal,
L = niko ;
K = natal,
L = vina ;
K = natal,
L = depi ;
K = natal,
L = danny ;
K = natal,
L = evita ;
K = natal,
L = viska ;
K = natal,
L = danang ;
K = juniyanto,
L = niko ;
K = juniyanto,
L = vina ;
K = juniyanto,
L = depi ;
K = juniyanto,
L = galih ;
K = juniyanto,
L = angel ;
K = juniyanto,
L = damian ;
false.


?- saudara_kandung(danny,N).
N = evita ;
N = viska ;
N = danang.


?- saudara_sepupu(danny,T).
T = niko ;
T = vina ;
T = depi ;
T = galih ;
T = angel ;
T = damian ;
false.


?- paman(K,danny);
K = triono ;
K = natal ;
K = triono ;
K = natal ;
false.

Danny Restu Mukti mengatakan...

3KA31, 11118658, Danny Restu Mukti

Kelas dan NPM tertinggal pak.

Fikri's Blog mengatakan...

https://drive.google.com/file/d/1pLMyqc2iYlviA4VO16k5Iv3Bgr4OZthf/view?usp=sharing

10118004_Fikri Wanagiel_3KA31

FAKTA:
%%orang tua*/
ayah(sukarjo,siswoyo).
ayah(sukarjo,umihani).
ayah(sukarjo,kayan).
ayah(sukarjo,kodrat).
ayah(siswoyo,samsul).
ayah(siswoyo,tuti).
ayah(siswoyo,alpan).
ayah(siswoyo,fikri).
ayah(sarjono,suci).
ayah(sarjono,sohibul).
ayah(sarjono,abi).
ayah(sarjono,ning).
ayah(kayan,nunur).
ayah(kayan,saring).
ayah(kayan,selamet).
ayah(kodrat,rizki).
ayah(kodrat,hidayat).

ibu(tukinah,siswoyo).
ibu(tukinah,umihani).
ibu(tukinah,kayan).
ibu(tukinah,kodrat).
ibu(sunarti,samsul).
ibu(sunarti,tuti).
ibu(sunarti,alpan).
ibu(sunarti,fikri).
ibu(umihani,suci).
ibu(umihani,sohibul).
ibu(umihani,abi).
ibu(umihani,ning).
ibu(nani,nunur).
ibu(nani,saring).
ibu(nani,selamet).
ibu(dewi,rizki).
ibu(dewi,hidayat).

ATURAN:
%% Kakek adalah kakek cucu */
kakek(Kakek,Cucu):-ayah(Ayah,Cucu),ayah(Kakek,Ayah).
kakek(Kakek,Cucu):-ibu(Ibu,Cucu),ayah(Kakek,Ibu).

%% Nenek adalah nenek cucu */
nenek(Nenek,Cucu):-ayah(Ayah,Cucu),ibu(Nenek,Ayah).
nenek(Nenek,Cucu):-ibu(Ibu,Cucu),ibu(Nenek,Ibu).

%% Nama1 adalah saudara kandung Nama2 */
saudara_kandung(Nama,Name):-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama\=Name.

%% Sdr1 adalah saudara sepupu sdr2 */
saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).

%% sdr_kdg ayah adalah paman */
paman(Paman,Orang):-
saudara_kandung(Paman,Ayah),
ayah(Ayah,Orang).

OUTPUT:
?-saudara_kandung(G,H)
G = siswoyo,
H = umihani ;
G = siswoyo,
H = kayan ;
G = siswoyo,
H = kodrat ;
G = umihani,
H = siswoyo ;
G = umihani,
H = kayan ;
G = umihani,
H = kodrat ;
G = kayan,
H = siswoyo ;
G = kayan,
H = umihani ;
G = kayan,
H = kodrat ;
G = kodrat,
H = siswoyo ;
G = kodrat,
H = umihani ;
G = kodrat,
H = kayan ;
G = samsul,
H = tuti ;
G = samsul,
H = alpan ;
G = samsul,
H = fikri ;
G = tuti,
H = samsul ;
G = tuti,
H = alpan ;
G = tuti,
H = fikri ;
G = alpan,
H = samsul ;
G = alpan,
H = tuti ;
G = alpan,
H = fikri ;
G = fikri,
H = samsul ;
G = fikri,
H = tuti ;
G = fikri,
H = alpan ;
G = suci,
H = sohibul ;
G = suci,
H = abi ;
G = suci,
H = ning ;
G = sohibul,
H = suci ;
G = sohibul,
H = abi ;
G = sohibul,
H = ning ;
G = abi,
H = suci ;
G = abi,
H = sohibul ;
G = abi,
H = ning ;
G = ning,
H = suci ;
G = ning,
H = sohibul ;
G = ning,
H = abi ;
G = nunur,
H = saring ;
G = nunur,
H = selamet ;
G = saring,
H = nunur ;
G = saring,
H = selamet ;
G = selamet,
H = nunur ;
G = selamet,
H = saring ;
G = rizki,
H = hidayat ;
G = hidayat,
H = rizki ;
false.

?- saudara_sepupu(I,J).
I = samsul,
J = nunur ;
I = samsul,
J = saring ;
I = samsul,
J = selamet ;
I = samsul,
J = rizki ;
I = samsul,
I = ning,
J = selamet ;
I = ning,
J = rizki ;
I = ning,
J = hidayat ;
false.

?- paman(K,L).
K = siswoyo,
L = nunur ;
K = siswoyo,
L = saring ;
K = siswoyo,
L = selamet ;
K = siswoyo,
L = rizki ;
K = siswoyo,
L = hidayat ;
K = umihani,
L = samsul ;
K = umihani,
L = tuti ;
K = umihani,
L = alpan ;
K = umihani,
L = fikri ;
K = umihani,
L = nunur ;
K = umihani,
L = saring ;
K = umihani,
L = selamet ;
K = umihani,
L = rizki ;
K = umihani,
L = hidayat ;
K = kayan,
L = samsul ;
K = kayan,
L = tuti ;
K = kayan,
L = alpan ;
K = kayan,
L = fikri ;
K = kayan,
L = rizki ;
K = kayan,
L = hidayat ;
K = kodrat,
L = samsul ;
K = kodrat,
L = tuti ;
K = kodrat,
L = alpan ;
K = kodrat,
L = fikri ;
K = kodrat,
L = nunur ;
K = kodrat,
L = saring ;
K = kodrat,
L = selamet ;
false.

?- saudara_kandung(fikri,N).
N = samsul ;
N = tuti ;
N = alpan ;
false.

?- saudara_sepupu(fikri,T).
T = nunur ;
T = saring ;
T = selamet ;
T = rizki ;
T = hidayat ;
T = suci ;
T = sohibul ;
T = abi ;
T = ning ;
false.

?- paman(K,fikri).
K = umihani ;
K = kayan ;
K = kodrat ;
false.

Megantara Wiguna mengatakan...

14118059_Megantara Wiguna_3KA31
https://drive.google.com/file/d/12AQ2N8fqvqtlEuJjUI7m2mBu4RFlweVk/view?usp=sharing

FAKTA
%%orang tua*/
ayah(sumanto,garit).
ayah(sumanto,goni).
ayah(sumanto,udin).
ayah(sumanto,manca).
ayah(sumanto,tori).
ayah(sumanto,ridwan).
ayah(sumanto,seto).
ayah(sumanto,eri).
ayah(andi,yumi).
ayah(andi,opang).
ayah(andi,coki).
ayah(andi,tiwi).
ayah(andi,dedy).
ayah(andi,pur).
ayah(goni,yuli).
ayah(udin,eno).
ayah(udin,edi).
ayah(jarwo,putri).
ayah(jarwo,rozali).
ayah(narji,gilang).
ayah(narji,yanto).
ayah(narji,haikal).
ayah(tara,gema).
ayah(tara,alip).
ayah(tara,maul).
ayah(tara,veronica).
ayah(tarno,hamdalah).
ayah(tarno,ghani).
ayah(joko,piji).
ayah(joko,tiara).
ayah(joko,jaka).

ibu(sulami,garit).
ibu(sulami,goni).
ibu(sulami,udin).
ibu(sulami,manca).
ibu(sulami,tori).
ibu(sulami,ridwan).
ibu(sulami,seto).
ibu(markijah,yumi).
ibu(markijah,opang).
ibu(markijah,coki).
ibu(markijah,tiwi).
ibu(markijah,dedy).
ibu(markijahh,pur).
ibu(tantri,yuri).
ibu(santi,eno).
ibu(santi,erni).
ibu(susi,putri).
ibu(susi,rozali).
ibu(paimon,gilang).
ibu(paimon,yanto).
ibu(paimon,haikal).
ibu(siti,gema).
ibu(siti,alip).
ibu(siti,egan).
ibu(siti,maul).
ibu(lara,hamdalah).
ibu(lara,ghani).
ibu(rara,puji).
ibu(rara,tiara).
ibu(rara,jaka).

aturan:
%% Kakek adalah kakek cucu */
kakek(Kakek,Cucu):-ayah(Ayah,Cucu),ayah(Kakek,Ayah).
kakek(Kakek,Cucu):-ibu(Ibu,Cucu),ayah(Kakek,Ibu).

%% Nenek adalah nenek cucu */
nenek(Nenek,Cucu):-ayah(Ayah,Cucu),ibu(Nenek,Ayah).
nenek(Nenek,Cucu):-ibu(Ibu,Cucu),ibu(Nenek,Ibu).

%% Nama1 adalah saudara kandung Nama2 */
saudara_kandung(Nama,Name):-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama\=Name.

%% Sdr1 adalah saudara sepupu sdr2 */
saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).

%% sdr_kdg ayah adalah paman */
paman(Paman,Orang):-
saudara_kandung(Paman,Ayah),
ayah(Ayah,Orang).

Output:
?- saudara_kandung(H,G).
H = goni,
G = udin ;
H = goni,
G = tori ;
H = udin,
G = goni ;
H = udin,
G = tori ;
H = tori,
G = goni ;
H = tori,
G = udin ;
H = yumi,
G = tiwi ;
H = tiwi,
G = yumi ;
H = putri,
G = rozali ;
H = rozali,
G = putri ;
H = gilang,
G = yanto ;
H = gilang,
G = haikal ;
H = yanto,
G = gilang ;
H = yanto,
G = haikal ;
H = haikal,
G = gilang ;
H = haikal,
G = yanto ;
H = gema,
G = alip ;
H = gema,
G = maul ;
H = alip,
G = gema ;
H = alip,
G = maul ;
H = maul,
G = gema ;
H = maul,
G = alip ;
H = hamdalah,
G = ghani ;
H = ghani,
G = hamdalah ;
H = tiara,
G = jaka ;
H = jaka,
G = tiara ;
false.

?- saudara_sepupu(I,J).
I = yuli,
J = eno ;
I = yuli,
J = edi ;
I = eno,
J = yuli ;
I = edi,
J = yuli ;
false.

?- paman(K,L).
K = goni,
L = eno ;
K = goni,
L = edi ;
K = udin,
L = yuli ;
K = tori,
L = yuli ;
K = tori,
L = eno ;
K = tori,
L = edi ;
false.

?- saudara_kandung(egan,N).
false.

?- saudara_sepupu(egan,T).
false.

?- paman(K,egan).
false




KuraKura mengatakan...

3KA31, 14118489, Muhammad Ariq Najmifathan
https://drive.google.com/file/d/1hmRzU3SiK9a5oVas_w9SUpJiBpx40b2D/view?usp=sharing

FAKTA :
%% Orang Tua */
ayah(astari,yus).
ayah(astari,iwan).
ayah(astari,enay).
ayah(astari,adi).
ayah(yus,fariza).
ayah(yus,tiara).
ayah(iwan,ryan).
ayah(iwan,dika).
ayah(enay,reynal).
ayah(adi,fikri).
ayah(adi,ariq).
ibu(rohmah,yus).
ibu(rohmah,iwan).
ibu(rohmah,enay).
ibu(rohmah,adi).
ibu(wiwin,fariza).
ibu(wiwin,tiara).
ibu(indira,ryan).
ibu(indira,dika).
ibu(ina,reynal).
ibu(ade,fikri).
ibu(ade,ariq).

ATURAN :
% Nama1 adalah saudara kandung Nama2 */

saudara_kandung(Nama,Name):-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama\=Name.

%% Sdr1 adalah saudara sepupu sdr2 */

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).

%% paman adalah saudara ayah */
paman(Paman,Orang):-
saudara_kandung(Paman,Ayah),
ayah(Ayah,Orang).

OUTPUT :
?- saudara_kandung(G,H).
G = yus,
H = iwan ;
G = yus,
H = enay ;
G = yus,
H = adi ;
G = iwan,
H = yus ;
G = iwan,
H = enay ;
G = iwan,
H = adi ;
G = enay,
H = yus ;
G = enay,
H = iwan ;
G = enay,
H = adi ;
G = adi,
H = yus ;
G = adi,
H = iwan ;
G = adi,
H = enay ;
G = fariza,
H = tiara ;
G = tiara,
H = fariza ;
G = ryan,
H = dika ;
G = dika,
H = ryan ;
G = fikri,
H = ariq ;
G = ariq,
H = fikri ;
false.

?- saudara_sepupu(I,J).
I = fariza,
J = ryan ;
I = fariza,
J = dika ;
I = fariza,
J = reynal ;
I = fariza,
J = fikri ;
I = fariza,
J = ariq ;
I = tiara,
J = ryan ;
I = tiara,
J = dika ;
I = tiara,
J = reynal ;
I = tiara,
J = fikri ;
I = tiara,
J = ariq ;
I = ryan,
J = fariza ;
I = ryan,
J = tiara ;
I = ryan,
J = reynal ;
I = ryan,
J = fikri ;
I = ryan,
J = ariq ;
I = dika,
J = fariza ;
I = dika,
J = tiara ;
I = dika,
J = reynal ;
I = dika,
J = fikri ;
I = dika,
J = ariq ;
I = reynal,
J = fariza ;
I = reynal,
J = tiara ;
I = reynal,
J = ryan ;
I = reynal,
J = dika ;
I = reynal,
J = fikri ;
I = reynal,
J = ariq ;
I = fikri,
J = fariza ;
I = fikri,
J = tiara ;
I = fikri,
J = ryan ;
I = fikri,
J = dika ;
I = fikri,
J = reynal ;
I = ariq,
J = fariza ;
I = ariq,
J = tiara ;
I = ariq,
J = ryan ;
I = ariq,
J = dika ;
I = ariq,
J = reynal ;
false.

?- paman(K,L).
K = yus,
L = ryan ;
K = yus,
L = dika ;
K = yus,
L = reynal ;
K = yus,
L = fikri ;
K = yus,
L = ariq ;
K = iwan,
L = fariza ;
K = iwan,
L = tiara ;
K = iwan,
L = reynal ;
K = iwan,
L = fikri ;
K = iwan,
L = ariq ;
K = enay,
L = fariza ;
K = enay,
L = tiara ;
K = enay,
L = ryan ;
K = enay,
L = dika ;
K = enay,
L = fikri ;
K = enay,
L = ariq ;
K = adi,
L = fariza ;
K = adi,
L = tiara ;
K = adi,
L = ryan ;
K = adi,
L = dika ;
K = adi,
L = reynal ;
false.

?- saudara_kandung(ariq,N).
N = fikri ;
false.

?- saudara_sepupu(ariq,T).
T = fariza ;
T = tiara ;
T = ryan ;
T = dika ;
T = reynal ;
false.

?- paman(K,ariq).
K = yus ;
K = iwan ;
K = enay ;
false.

raka mengatakan...
Komentar ini telah dihapus oleh pengarang.
raka mengatakan...

3KA07, 14118835, Muhammad Raka Satria

1. https://drive.google.com/file/d/15PO7yKDgHbsHYfHgnRR2RFv50R8Y4hrj/view

%% FAKTA */
%%orang tua */
ayah(nawi,sadidah).
ayah(nawi,sunayah).
ayah(nawi,syarif).
ayah(nawi,ihsan).
ayah(syarif,mahesa).
ayah(syarif,iqbal).
ayah(ihsan,uri).
ayah(ihsan,rizki).
ayah(ali,irma).
ayah(marullah,reza).
ayah(marullah,rangga).
ayah(marullah,intan).
ayah(marullah,raka).
ibu(sopia,sadidah).
ibu(sopia,sunayah).
ibu(sopia,syarif).
ibu(sopia,ihsan).
ibu(sadidah,irma).
ibu(sunayah,reza).
ibu(sunayah,rangga).
ibu(sunayah,intan).
ibu(sunayah,raka).
ibu(wati,mahesa).
ibu(wati,iqbal).
ibu(endang,uri).
ibu(endang,rizki).



2. Aturan

%% Nama adalah saudara kandung Name */

saudara_kandung(Nama,Name):-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama\=Name.


%% Sdr1 adalah saudara sepupu sdr2 */


saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).

%% sdr_kdg ayah adalah paman */
paman(Paman,Orang):-
saudara_sepupu(Orang,Sdr1),
ayah(Paman,Sdr1).

3.Output
?- saudara_kandung(G,H).
G = sunayah,
H = syarif ;
G = sunayah,
H = ihsan ;
G = syarif,
H = sunayah ;
G = syarif,
H = ihsan ;
G = ihsan,
H = sunayah ;
G = ihsan,
H = syarif ;
G = mahesa,
H = iqbal ;
G = iqbal,
H = mahesa ;
G = uri,
H = rizki ;
G = rizki,
H = uri ;
G = reza,
H = rangga ;
G = reza,
H = intan ;
G = reza,
H = raka ;
G = rangga,
H = reza ;
G = rangga,
H = intan ;
G = rangga,
H = raka ;
G = intan,
H = reza ;
G = intan,
H = rangga ;
G = intan,
H = raka ;
G = raka,
H = reza ;
G = raka,
H = rangga ;
G = raka,
H = intan ;

?- saudara_sepupu(I,J).
I = mahesa,
J = uri ;
I = mahesa,
J = rizki ;
I = iqbal,
J = uri ;
I = iqbal,
J = rizki ;
I = uri,
J = mahesa ;
I = uri,
J = iqbal ;
I = rizki,
J = mahesa ;
I = rizki,
J = iqbal ;
I = mahesa,
J = reza ;
I = mahesa,
J = rangga ;
I = mahesa,
J = intan ;
I = mahesa,
J = raka ;
I = iqbal,
J = reza ;
I = iqbal,
J = rangga ;
I = iqbal,
J = intan ;
I = iqbal,
J = raka ;
I = uri,
J = reza ;
I = uri,
J = rangga ;
I = uri,
J = intan ;
I = uri,
J = raka ;
I = rizki,
J = reza ;
I = rizki,
J = rangga ;
I = rizki,
J = intan ;
I = rizki,
J = raka ;
I = reza,
J = mahesa ;
I = reza,
J = iqbal ;
I = reza,
J = uri ;
I = reza,
J = rizki ;
I = rangga,
J = mahesa ;
I = rangga,
J = iqbal ;
I = rangga,
J = uri ;
I = rangga,
J = rizki ;
I = intan,
J = mahesa ;
I = intan,
J = iqbal ;
I = intan,
J = uri ;
I = intan,
J = rizki ;
I = raka,
J = mahesa ;
I = raka,
J = iqbal ;
I = raka,
J = uri ;
I = raka,
J = rizki ;

?- paman(K,L).
K = ihsan,
L = mahesa ;
K = ihsan,
L = mahesa ;
K = ihsan,
L = iqbal ;
K = ihsan,
L = iqbal ;
K = syarif,
L = uri ;
K = syarif,
L = uri ;
K = syarif,
L = rizki ;
K = syarif,
L = rizki ;
K = marullah,
L = mahesa ;
K = marullah,
L = mahesa ;
K = marullah,
L = mahesa ;
K = marullah,
L = mahesa ;
K = marullah,
L = iqbal ;
K = marullah,
L = iqbal ;
K = marullah,
L = iqbal ;
K = marullah,
L = iqbal ;
K = marullah,
L = uri ;
K = marullah,
L = uri ;
K = marullah,
L = uri ;
K = marullah,
L = uri ;
K = marullah,
L = rizki ;
K = marullah,
L = rizki ;
K = marullah,
L = rizki ;
K = marullah,
L = rizki ;
K = syarif,
L = reza ;
K = syarif,
L = reza ;
K = ihsan,
L = reza ;
K = ihsan,
L = reza ;
K = syarif,
L = rangga ;
K = syarif,
L = rangga ;
K = ihsan,
L = rangga ;
K = ihsan,
L = rangga ;
K = syarif,
L = intan ;
K = syarif,
L = intan ;
K = ihsan,
L = intan ;
K = ihsan,
L = intan ;
K = syarif,
L = raka ;
K = syarif,
L = raka ;
K = ihsan,
L = raka ;
K = ihsan,
L = raka ;


?- saudara_kandung(raka,N).
N = reza ;
N = rangga ;
N = intan ;

?- saudara_sepupu(raka,T).
T = mahesa ;
T = iqbal ;
T = uri ;
T = rizki ;

?- paman(K,raka).
K = syarif ;
K = syarif ;
K = ihsan ;
K = ihsan ;

usamah abndulhakim mengatakan...

3KA21, Usamah Abdulhakim, 17118183
https://drive.google.com/file/d/1dtUzuL9GpmLivEfgNefVeB_w0_5vbOfF/view?usp=drivesdk

%%orang tua*/
ayah(dimjati,aldi).
ayah(dimjati,fauzi).
ayah(fauzi,fatih).
ayah(fauzi,usamah).
ayah(fauzi,habib).
ayah(aldi,akmal).
ibu(putri,aldi).
ibu(putri,fauzi).
ibu(arin,fatih).
ibu(arin,usamah).
ibu(arin,habib).
ibu(ani,akmal).

% Nama1 adalah saudara kandung Nama2*/

saudara_kandung(Nama,Name):-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama\=Name.

%% Sdr1 adalah saudara sepupu sdr2*/

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).

%% paman adalah saudara ayah*/
paman(Paman,Orang):-
saudara_kandung(Paman,Ayah),
ayah(Ayah,Orang).

SOAL dan JAWABAN !

a. saudara_kandung(G,H).
G = aldi,
H = fauzi ;
G = fauzi,
H = aldi ;
G = fatih,
H = usamah ;
G = fatih,
H = habib ;
G = usamah,
H = fatih ;
G = usamah,
H = habib ;
G = habib,
H = fatih ;
G = habib,
H = usamah ;
b. saudara_sepupu(I,J).
I = fatih,
J = akmal ;
I = usamah,
J = akmal ;
I = habib,
J = akmal ;
I = akmal,
J = fatih ;
I = akmal,
J = usamah ;
I = akmal,
J = habib ;
c. paman(K,L).
K = aldi,
L = fatih ;
K = aldi,
L = usamah ;
K = aldi,
L = habib ;
K = fauzi,
L = akmal ;
d. saudara_kandung(usamah,N).
N = fatih ;
N = habib.
e. saudara_sepupu(usamah,T).
T = akmal ;
f. paman(K,usamah).
K = aldi ;

Ryan mengatakan...

3KA31, 16118404, Ryan Aziz Abdillah

https://drive.google.com/file/d/1fZzS0bMYQ3SBOMYKNg1T1AUA7hnSkvjs/view?usp=sharing

Fakta:
ayah(jati,agus).
ayah(jati,kurniawan).
ayah(jati,hananto).
ayah(agus,ryan).
ayah(agus,fitri).
ayah(agus,argya).
ayah(kurniawan,mecca).
ayah(kurniawan,satrio).
ayah(kurniawan,zaha).
ayah(hananto,alya).
ayah(hananto,aksa).
ayah(hananto,alvin).
ibu(sumini,agus).
ibu(sumini,kurniawan).
ibu(sumini,hananto).
ibu(arianti,ryan).
ibu(arianti,fitri).
ibu(arianti,argya).
ibu(ririn,mecca).
ibu(ririn,satrio).
ibu(ririn,zaha).
ibu(rina,alya).
ibu(rina,aksa).
ibu(rina,alvin).

Aturan:
% Nama1 adalah saudara kandung Nama2*/

saudara_kandung(Nama,Name):-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama\=Name.

%% Sdr1 adalah saudara sepupu sdr2*/

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).
%% paman adalah saudara ayah*/

paman(Paman,Orang):-
saudara_kandung(Paman,Ayah),
ayah(Ayah,Orang).

Output:
A.saudara_kandung(G,H).
G = agus,
H = kurniawan ;
G = agus,
H = hananto ;
G = kurniawan,
H = agus ;
G = kurniawan,
H = hananto ;
G = hananto,
H = agus ;
G = hananto,
H = kurniawan ;
G = ryan,
H = fitri ;
G = ryan,
H = argya ;
G = fitri,
H = ryan ;
G = fitri,
H = argya ;
G = argya,
H = ryan ;
G = argya,
H = fitri ;
G = mecca,
H = satrio ;
G = mecca,
H = zaha ;
G = satrio,
H = mecca ;
G = satrio,
H = zaha ;
G = zaha,
H = mecca ;
G = zaha,
H = satrio ;
G = alya,
H = aksa ;
G = alya,
H = alvin ;
G = aksa,
H = alya ;
G = aksa,
H = alvin ;
G = alvin,
H = alya ;
G = alvin,
H = aksa ;

B.saudara_sepupu(I,J).
I = ryan,
J = mecca ;
I = ryan,
J = satrio ;
I = ryan,
J = zaha ;
I = ryan,
J = alya ;
I = ryan,
J = aksa ;
I = ryan,
J = alvin ;
I = fitri,
J = mecca ;
I = fitri,
J = satrio ;
I = fitri,
J = zaha ;
I = fitri,
J = alya ;
I = fitri,
J = aksa ;
I = fitri,
J = alvin ;
I = argya,
J = mecca ;
I = argya,
J = satrio ;
I = argya,
J = zaha ;
I = argya,
J = alya ;
I = argya,
J = aksa ;
I = argya,
J = alvin ;
I = mecca,
J = ryan ;
I = mecca,
J = fitri ;
I = mecca,
J = argya ;
I = mecca,
J = alya ;
I = mecca,
J = aksa ;
I = mecca,
J = alvin ;
I = satrio,
J = ryan ;
I = satrio,
J = fitri ;
I = satrio,
J = argya ;
I = satrio,
J = alya ;
I = satrio,
J = aksa ;
I = satrio,
J = alvin ;
I = zaha,
J = ryan ;
I = zaha,
J = fitri ;
I = zaha,
J = argya ;
I = zaha,
J = alya ;
I = zaha,
J = aksa ;
I = zaha,
J = alvin ;
I = alya,
J = ryan ;
I = alya,
J = fitri ;
I = alya,
J = argya ;
I = alya,
J = mecca ;
I = alya,
J = satrio ;
I = alya,
J = zaha ;
I = aksa,
J = ryan ;
I = aksa,
J = fitri ;
I = aksa,
J = argya ;
I = aksa,
J = mecca ;
I = aksa,
J = satrio ;
I = aksa,
J = zaha ;
I = alvin,
J = ryan ;
I = alvin,
J = fitri ;
I = alvin,
J = argya ;
I = alvin,
J = mecca ;
I = alvin,
J = satrio ;
I = alvin,
J = zaha ;

C.paman(K,L).
K = agus,
L = mecca ;
K = agus,
L = satrio ;
K = agus,
L = zaha ;
K = agus,
L = alya ;
K = agus,
L = aksa ;
K = agus,
L = alvin ;
K = kurniawan,
L = ryan ;
K = kurniawan,
L = fitri ;
K = kurniawan,
L = argya ;
K = kurniawan,
L = alya ;
K = kurniawan,
L = aksa ;
K = kurniawan,
L = alvin ;
K = hananto,
L = ryan ;
K = hananto,
L = fitri ;
K = hananto,
L = argya ;
K = hananto,
L = mecca ;
K = hananto,
L = satrio ;
K = hananto,
L = zaha ;

D.saudara_kandung(NamaAnda,N).
N = fitri ;
N = argya.

E.saudara_sepupu(NamaAnda,T).
T = mecca ;
T = satrio ;
T = zaha ;
T = alya ;
T = aksa ;
T = alvin ;

F.paman(K,NamaAnda).
K = kurniawan ;
K = hananto ;

Fathiyyah Nuswantari mengatakan...
Komentar ini telah dihapus oleh pengarang.
Fathiyyah Nuswantari mengatakan...

3KA21, Fathiyyah Nuswantari, 12118579.

https://drive.google.com/file/d/1PKkdWqvlM_KaA64mjKiyi9Omhu4d9tW8/view?usp=sharing

1. FAKTA :

%% orang tua */
ayah(tugi,syamsudi).
ayah(tugi,yono).
ayah(tugi,udin).
ayah(syamsudi,fathiyyah).
ayah(syamsudi,awan).
ayah(yono,farel).
ayah(yono,aira).
ayah(udin,kalila).
ibu(toyi,syamsudi).
ibu(toyi,yono).
ibu(toyi,udin).
ibu(nurhayati,fathiyyah).
ibu(nurhayati,awan).
ibu(ratna,farel).
ibu(ratna,aira).
ibu(tri,kalila).

- ATURAN :

%% Nama1 adalah saudara kandung Nama2 */
saudara_kandung(Nama,Name):-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama\=Name.

%% Sdr1 adalah saudara sepupu sdr2 */

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).

%% Paman adalah saudara ayah */

paman(Paman,Orang) :-
saudara_kandung(Paman,Ayah),
ayah(Ayah,Orang).

A.
saudara_kandung(G,H).
G = syamsudi,
H = yono ;
G = syamsudi,
H = udin ;
G = yono,
H = syamsudi ;
G = yono,
H = udin ;
G = udin,
H = syamsudi ;
G = udin,
H = yono ;
G = fathiyyah,
H = awan ;
G = awan,
H = fathiyyah ;
G = farel,
H = aira ;
G = aira,
H = farel ;

B.
saudara_sepupu(I,J).
I = fathiyyah,
J = farel ;
I = fathiyyah,
J = aira ;
I = fathiyyah,
J = kalila ;
I = awan,
J = farel ;
I = awan,
J = aira ;
I = awan,
J = kalila ;
I = farel,
J = fathiyyah ;
I = farel,
J = awan ;
I = farel,
J = kalila ;
I = aira,
J = fathiyyah ;
I = aira,
J = awan ;
I = aira,
J = kalila ;
I = kalila,
J = fathiyyah ;
I = kalila,
J = awan ;
I = kalila,
J = farel ;
I = kalila,
J = aira ;

C.
paman(K,L).
K = syamsudi,
L = farel ;
K = syamsudi,
L = aira ;
K = syamsudi,
L = kalila ;
K = yono,
L = fathiyyah ;
K = yono,
L = awan ;
K = yono,
L = kalila ;
K = udin,
L = fathiyyah ;
K = udin,
L = awan ;
K = udin,
L = farel ;
K = udin,
L = aira ;

D.
saudara_kandung(fathiyyah, N).
N = awan.

E.
saudara_sepupu(fathiyyah, T).
T = farel ;
T = aira ;
T = kalila ;

F.
paman(K, fathiyyah)
K = yono ;
K = udin ;

Adiwijaya mengatakan...

3ka21_Danang Adiwijaya_11118627

https://drive.google.com/drive/folders/1KxGMcYwn4MumB7xvrl93T4szIdM35HbZ?usp=sharing

Swi -prolog versi 6.4.0

Fakta:
ayah(parto,muhadi).
ayah(parto,sukardi).
ayah(ahmad,rosidah).
ayah(muhadi,dina).
ayah(muhadi,danang).
ayah(sukardi,tias).
ayah(sukardi,temi).
ibu(sukardi,tias).
ibu(painah,muhadi).
ibu(painah,sukardi).
ibu(rosidah,dina).
ibu(rosidah,danang).
ibu(mia,temi).
ibu(mia,tias).

Aturan:
%% Nama1 adalah saudara kandung Nama2 */

saudara_kandung(Nama,Name):-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama\=Name.
%% Sdr1 adalah saudara sepupu sdr2 */


saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).


%% sdr_kdg ayah adalah paman */
paman(Paman,Orang):-
saudara_kandung(Paman,Ayah),
ayah(Ayah,Orang).

Soal

1. saudara_kandung(G,H).
G = muhadi,
H = sukardi .

2. saudara_sepupu(I,J).
I = dina,
J = tias .

3. paman(K,L).
K = muhadi,
L = tias

4. saudara_kandung(danang,N).
N = dina

5. saudara_sepupu(danang,T).
T = tias

6. paman(K,danang).
K = sukardi

Syarah Safira Safitri mengatakan...

3KA21_Syarah Safira Safitri_16118926

https://drive.google.com/file/d/1m84jJo1AOJJZMycJ1PUErUrkO2q8ygaf/view?usp=sharing

FAKTA :
%orang_tua
%
ayah(djayusman,ideng).
ayah(djayusman,pratiwi).
ayah(djayusman,lise).
ayah(adi,heni).
ayah(abdul,isma).
ayah(wardoyo,syarah).
ayah(wardoyo,farhan).
ibu(tati,ideng).
ibu(tati,pratiwi).
ibu(tati,lise).
ibu(ideng,heni).
ibu(pratiwi,isma).
ibu(lise,syarah).
ibu(lise,farhan).
Aturan :
%saudara_kandung
saudara_kandung(Pulan,Fulan):-
ayah(Ayah,Pulan),
ayah(Ayah,Fulan),
ibu(Ibu,Pulan),
ibu(Ibu,Fulan),
Pulan\=Fulan.

%saudara_sepupu
saudara_sepupu(Sdr,Sdra):-
ayah(AyahSdr,Sdr),
ayah(AyahSdra,Sdra),
saudara_kandung(AyahSdr,AyahSdra).

saudara_sepupu(Sdr,Sdra):-
ayah(Ayah,Sdr),
ibu(Ibu,Sdra),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr,Sdra):-
ibu(Ibu,Sdr),
ayah(Ayah,Sdra),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sdr,Sdra):-
ibu(IbuSdr,Sdr),
ibu(IbuSdra,Sdra),
saudara_kandung(IbuSdr,IbuSdra).


%bude adalah saudara ibu

bude(Bude,Pulan):-
saudara_kandung(Bude,Ibu),
ibu(Ibu,Pulan).

Output :

% c:/users/admin/documents/prolog/tugas 1 compiled 0.02 sec, 0 clauses
?- saudara_kandung(X,Y).
X = ideng,
Y = pratiwi ;
X = ideng,
Y = lise ;
X = pratiwi,
Y = ideng ;
X = pratiwi,
Y = lise ;
X = lise,
Y = ideng ;
X = lise,
Y = pratiwi ;
X = syarah,
Y = farhan ;
X = farhan,
Y = syarah ;
false.
?- saudara_sepupu(A,B).
A = heni,
B = isma ;
A = heni,
B = syarah ;
A = heni,
B = farhan ;
A = isma,
B = heni ;
A = isma,
B = syarah ;
A = isma,
B = farhan ;
A = syarah,
B = heni ;
A = syarah,
B = isma ;
A = farhan,
B = heni ;
A = farhan,
B = isma ;
false.
?- bude(H,syarah).
H = ideng ;
H = pratiwi ;
false.

?- bude(I,heni).
I = pratiwi ;
I = lise ;
false.

?- bude(J,isma).
J = ideng ;
J = lise ;
false.

?- saudara_sepupu(farhan,K).
K = heni ;
K = isma ;
false.

Ram P mengatakan...


3KA21, Ramadhana P, 15118880.
url silsilah-Rama.pl : https://bit.ly/3dvYf9e
% Tugas M3 - SBP - 3KA21 */


1. Fakta :
ayah(eyangkakung,papa).
ayah(eyangkakung,omA).
ayah(papa,rama).
ayah(papa,son).
ayah(omA,put).
ibu(eyangputri,omA).
ibu(eyangputri,papa).
ibu(mama,rama).
ibu(mama,son).
ibu(tanteA,put).


2. Aturan :
% A saudara kandung dari B */
saudara_kandung(A,B):-
ayah(X1,A),
ayah(X1,B),
ibu(Y1,A),
ibu(Y1,B),
A\==B.

% A saudara sepupu dari B */
saudara_sepupu(A,B):-
ayah(X1,A),
ayah(X2,B),
saudara_kandung(X2,X1).


saudara_sepupu(A,B):-
ayah(X1,A),
ibu(Y1,B),
saudara_kandung(X1,Y1).

saudara_sepupu(A,B):-
ibu(Y1,A),
ayah(X1,B),
saudara_kandung(Y1,X1).

saudara_sepupu(A,B):-
ibu(Y1,A),
ibu(Y2,B),
saudara_kandung(Y1,Y2).

%A paman dari B */
paman(Z,W):-
saudara_kandung(Z,X2),
ayah(X2,W).


3. Output program :
a. ?- saudara_kandung(G,H).
G = papa,
H = omA ;
G = omA,
H = papa ;
G = rama,
H = son ;
G = son,
H = rama ;
false.

?-

b. ?- saudara_sepupu(I,J).
I = rama,
J = put ;
I = son,
J = put ;
I = put,
J = rama ;
I = put,
J = son ;
false.

?-

c. ?- paman(K,L).
K = papa,
L = put ;
K = omA,
L = rama ;
K = omA,
L = son ;
false.

?-

d.
?- saudara_kandung(rama,N).
N = son.

?-

e. ?- saudara_sepupu(rama,T).
T = put ;
false.

f. ?- paman(K,rama).
K = omA ;
false.

Fakhri Fath mengatakan...

3KA21, Fakhri Fath Ashar, 19120007

https://drive.google.com/file/d/1ohOpOT_nnjXinZkNBxKApwP5oDqdDMk7/view?usp=sharing

1. Fakta
%% FAKTA */

%%orang tua */
ayah(ridwan,andi).
ayah(ridwan,yanti).
ayah(ridwan,yeni).
ayah(andi,ikhsan).
ayah(andi,nia).
ayah(andi,nisa).
ibu(yanti,risa).
ibu(yanti,diega).
ibu(yanti,ara).
ibu(yeni,fakhri).
ibu(yeni,syifa).
ibu(risa,bila).
ayah(gatot,risa).
ayah(gatot,diega).
ayah(gatot,ara).
ayah(sulis,fakhri).
ayah(sulis,syifa).
ibu(ani,ikhsan).
ibu(ani,nia).
ibu(ani,nisa).
ibu(bu_ridwan,yeni).
ibu(bu_ridwan,andi).
ibu(bu_ridwan,yanti).

2. Aturan
%% ATURAN */
%% Nama1 adalah saudara kandung Nama2
saudara_kandung(Nama,Name) :-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama \= Name.
%% Sdr1 adalah saudara sepupu Sdr2
saudara_sepupu(Sdr1,Sdr2) :-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2)
saudara_sepupu(Sdr1,Sdr2) :-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).
saudara_sepupu(Sdr1,Sdr2) :-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).
saudara_sepupu(Sdr1,Sdr2) :-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).
%% Paman */
paman(Paman,Keponakan) :-
ibu(Ibu,Keponakan),
saudara_kandung(Paman,Ibu).

3.
a) Saudara kandung(G,H).
?- saudara_kandung(G,H).
G = andi,
H = yanti ;
G = andi,
H = yeni ;
G = yanti,
H = andi ;
G = yanti,
H = yeni ;
G = yeni,
H = andi ;
G = yeni,
H = yanti ;
G = ikhsan,
H = nia ;
G = ikhsan,
H = nisa ;
G = nia,
H = ikhsan ;
G = nia,
H = nisa ;
G = nisa,
H = ikhsan ;
G = nisa,
H = nia ;
G = risa,
H = diega ;
G = risa,
H = ara ;
G = diega,
H = risa ;
G = diega,
H = ara ;
G = ara,
H = risa ;
G = ara,
H = diega ;
G = fakhri,
H = syifa ;
G = syifa,
H = fakhri ;

b) saudara_sepupu(I,J).
?- saudara_sepupu(I,J).
I = risa,
J = ikhsan ;
I = risa,
J = nia ;
I = risa,
J = nisa ;
I = diega,
J = ikhsan ;
I = diega,
J = nia ;
I = diega,
J = nisa ;
I = ara,
J = ikhsan ;
I = ara,
J = nia ;
I = ara,
J = nisa ;
I = fakhri,
J = ikhsan ;
I = fakhri,
J = nia ;
I = fakhri,
J = nisa ;
I = syifa,
J = ikhsan ;
I = syifa,
J = nia ;
I = syifa,
J = nisa ;
I = risa,
J = fakhri ;
I = risa,
J = syifa ;
I = diega,
J = fakhri ;
I = diega,
J = syifa ;
I = ara,
J = fakhri ;
I = ara,
J = syifa ;
I = fakhri,
J = risa ;
I = fakhri,
J = diega ;
I = fakhri,
J = ara ;
I = syifa,
J = risa ;
I = syifa,
J = diega ;
I = syifa,
J = ara ;

c). paman(K,L)
?- paman(K,L).
K = andi,
L = risa ;
K = yeni,
L = risa ;
K = andi,
L = diega ;
K = yeni,
L = diega ;
K = andi,
L = ara ;
K = yeni,
L = ara ;
K = andi,
L = fakhri ;
K = yanti,
L = fakhri ;
K = andi,
L = syifa ;
K = yanti,
L = syifa ;
K = diega,
L = bila ;
K = ara,
L = bila ;

d). saudara_kandung(NamaAnda, N)
?- saudara_kandung(fakhri,N).
N = syifa.

e). saudara_sepupu(NamaAnda,T)
?- saudara_sepupu(fakhri,T).
T = ikhsan ;
T = nia ;
T = nisa ;
T = risa ;
T = diega ;
T = ara ;

f). paman(K, NamaAnda)
?- paman(K,fakhri).
K = andi ;
K = yanti ;

hugo agung mengatakan...

Nama : hugo Agung Hokiarto
Kelas: 3KA31
Npm : 13118170
https://drive.google.com/file/d/1fvYmUiuBzJUpS_j2mrqNbz9rMw9c3SJf/view?usp=sharing

%%orang tua*/
ayah(muji,suprihono).
ayah(muji,sumarno).
ayah(jianheeng,inge).
ayah(jianheeng,rudi).
ayah(suprihono,hugo).
ayah(suprihono,evan).
ayah(rudi,bagus).
ayah(rudi,yerin).
ayah(sumarno,galih).
ayah(sumarno,eka).



ibu(sumiati,suprihono).
ibu(sumiati,sumarno).
ibu(bao-yu,inge).
ibu(bao-yu,rudi).
ibu(inge,hugo).
ibu(inge,evan).
ibu(reni,bagus).
ibu(reni,yerin).
ibu(berlina,galih).
ibu(berlina,eka).



%% Kakek adalah kakek cucu */
kakek(Kakek,Cucu):-ayah(Ayah,Cucu),ayah(Kakek,Ayah).
kakek(Kakek,Cucu):-ibu(Ibu,Cucu),ayah(Kakek,Ibu).

%% Nenek adalah nenek cucu */
nenek(Nenek,Cucu):-ayah(Ayah,Cucu),ibu(Nenek,Ayah).
nenek(Nenek,Cucu):-ibu(Ibu,Cucu),ibu(Nenek,Ibu).

%% Nama1 adalah saudara kandung Nama2 */
saudara_kandung(Nama,Name):-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama\=Name.

%% Sdr1 adalah saudara sepupu sdr2 */
saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).

%% sdr_kdg ayah adalah paman */
paman(Paman,Orang):-
saudara_kandung(Paman,Ayah),
ayah(Ayah,Orang).

a.saudara_kandung(G,H).
G=suprihono,
H=sumarno;
G=sumarno,
H=suprihono;
G = rudi,
H = winarto;
G = winarto,
H = rudi;
G=hugo,
H=evan;
G=evan,
H=hugo;
G=galih,
H=eka;
G=eka,
H=galih;
G = bagus,
H = yerin;

b.saudara_sepupu(I,J).

I = hugo,
J = galih;
I = hugo,
J = eka;

I = hugo,
J = eka;
I = evan,
J = galih;
I = evan,
J = eka;
I = evan,
J = eka;
I = galih,
J = hugo,
I = eka,
J = hugo;
I= galih.
J= evan;
I = eka,
J = evan;
I = hugo,
J = bagus;
I = hugo,
J = yerin;
I = evan,
J = bagus;
I = evan,
J = yerin;
I = bagus,
J = hugo;
I = yerin,
J = hugo;
I = bagus,
J = evan;
I = bagus,
J = evan;

c. paman(k,l).
K = suprihono,
L = galih;
K = suprihono,
L = eka;
K = sumarno,
L = hugo;
K = sumarno ,
L = evan;
K = rudi,
L = hugo;
K = rudi,
L = evan;

d. saudara_kandung(evan.N).
N =hugo;

e. saudara_ sepupu(evan.T).
T = galih;
T = eka;
T = bagus;
T = yerin;

f.paman(K.evan).
k = sumarno;
K = rudi;

Alifadun Hamzah mengatakan...

3KA31, 10118544, Alifadun Hamzah

https://drive.google.com/file/d/1yjjRZU4JIQN9hZ47fpgfG5VUmlTjWt4r/view?usp=sharing


1. Fakta
%%orang tua*/
ayah(mardian,asendra).
ayah(mardian,suhaimi).
ayah(mardian,zahra).
ayah(raden,desi).
ayah(raden,jamal).
ibu(nazwa,asendra).
ibu(nazwa,suhaimi).
ibu(desi,alif).
ibu(lela,fitriana).
ibu(lela.andini).



%% Kakek adalah kakek cucu */
kakek(Kakek,Cucu):-ayah(Ayah,Cucu),ayah(Kakek,Ayah).

kakek(Kakek,Cucu):-ibu(Ibu,Cucu),ayah(Kakek,Ibu).

%% Nenek adalah nenek cucu */
nenek(Nenek,Cucu):-ayah(Ayah,Cucu),ibu(Nenek,Ayah).

nenek(Nenek,Cucu):-ibu(Ibu,Cucu),ibu(Nenek,Ibu).

%% Nama1 adalah saudara kandung Nama2 */

saudara_kandung(Nama,Name):-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama\=Name.


%% Sdr1 adalah saudara sepupu sdr2 */


saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).

%% sdr_kdg ayah adalah paman */
paman(Paman,Orang):-
saudara_kandung\=(perempuan),
saudara_kandung(Paman,Ayah),
ayah(Ayah,Orang).

3. output
?- saudara_kandung(G,H).
G = asendra
H = suhaimi
G = asendra
H = suhaimi
G = raden
H = jamal
G = desi
H = raden
G = lela
H = andini


?- saudara_sepupu(I,J).
I = fitriana
J = suhaimi
I = andini
J = raden
I = mardian
J = lela
I = nazwa
J = jamal

?- paman(K,L).
K = suhaimi
L = asendra
K = raden
L = jamal


?- saudara_kandung(alif,N).
N = andini

?- saudara_sepupu(alif,T).
N = jamal

?- paman(K,alif).
K = suhaimi

Dahlia Nur Padilah mengatakan...

fakta :

ayah(kakek,aris).
ayah(kakek,dedi).
ayah(kakek,maya).
ayah(kakek,toni).
ayah(aris,fadli).
ayah(dedi,fauzan).
ayah(syamsudin,reza).
ayah(syamsudin,dahlia).
ayah(toni,elang).
ibu(nenek,aris).
ibu(nenek,dedi).
ibu(nenek,maya).
ibu(nenek,toni).
ibu(yanti,fadli).
ibu(elsi,fauzan).
ibu(maya,reza).
ibu(maya,dahlia).
ibu(aida,elang).

aturan :

%saudaraKandung
%
saudaraKandung(Ab,Ac):-
ayah(Ayah,Ab),
ayah(Ayah,Ac),
ibu(Ibu,Ab),
ibu(Ibu,Ac),
Ab\=Ac.

%saudaraSepupu
%
saudaraSepupu(A1,A2):-
ayah(AyahA1,A1),
ayah(AyahA2,A2),
saudaraKandung(AyahA1,AyahA2).

saudaraSepupu(A1,A2):-
ayah(Ayah,A1),
ibu(Ibu,A2),
saudaraKandung(Ayah,Ibu).

saudaraSepupu(A1,A2):-
ibu(Ibu,A1),
ayah(Ayah,A2),
saudaraKandung(Ibu,Ayah).

saudaraSepupu(A1,A2):-
ibu(IbuA1,A1),
ibu(IbuA2,A2),
saudaraKandung(IbuA1,IbuA2).


%om adalah saudara ibu

om(Om,A4):-
saudaraKandung(Om,Ibu),
ibu(Ibu,A4).

hasil :

?- saudaraKandung(S,M).
S = aris,
M = dedi ;
S = aris,
M = maya ;
S = aris,
M = toni ;
S = dedi,
M = aris ;
S = dedi,
M = maya ;
S = dedi,
M = toni ;
S = maya,
M = aris ;
S = maya,
M = dedi ;
S = maya,
M = toni ;
S = toni,
M = aris ;
S = toni,
M = dedi ;
S = toni,
M = maya ;
S = reza,
M = dahlia ;
S = dahlia,
M = reza ;
false.

?- saudaraSepupu(Y,G).
Y = fadli,
G = fauzan ;
Y = fadli,
G = elang ;
Y = fauzan,
G = fadli ;
Y = fauzan,
G = elang ;
Y = elang,
G = fadli ;
Y = elang,
G = fauzan ;
Y = fadli,
G = reza ;
Y = fadli,
G = dahlia ;
Y = fauzan,
G = reza ;
Y = fauzan,
G = dahlia ;
Y = elang,
G = reza ;
Y = elang,
G = dahlia ;
Y = reza,
G = fadli ;
Y = reza,
G = fauzan ;
Y = reza,
G = elang ;
Y = dahlia,
G = fadli ;
Y = dahlia,
G = fauzan ;
Y = dahlia,
G = elang ;
false.

?- om(D,dahlia).
D = aris ;
D = dedi ;
D = toni ;
false.

Dahlia Nur Padilah mengatakan...

3KA21 Dahlia Nur Padilah 11118622

ayah(kakek,aris).
ayah(kakek,dedi).
ayah(kakek,maya).
ayah(kakek,toni).
ayah(aris,fadli).
ayah(dedi,fauzan).
ayah(syamsudin,reza).
ayah(syamsudin,dahlia).
ayah(toni,elang).
ibu(nenek,aris).
ibu(nenek,dedi).
ibu(nenek,maya).
ibu(nenek,toni).
ibu(yanti,fadli).
ibu(elsi,fauzan).
ibu(maya,reza).
ibu(maya,dahlia).
ibu(aida,elang).

aturan :

%saudaraKandung
%
saudaraKandung(Ab,Ac):-
ayah(Ayah,Ab),
ayah(Ayah,Ac),
ibu(Ibu,Ab),
ibu(Ibu,Ac),
Ab\=Ac.

%saudaraSepupu
%
saudaraSepupu(A1,A2):-
ayah(AyahA1,A1),
ayah(AyahA2,A2),
saudaraKandung(AyahA1,AyahA2).

saudaraSepupu(A1,A2):-
ayah(Ayah,A1),
ibu(Ibu,A2),
saudaraKandung(Ayah,Ibu).

saudaraSepupu(A1,A2):-
ibu(Ibu,A1),
ayah(Ayah,A2),
saudaraKandung(Ibu,Ayah).

saudaraSepupu(A1,A2):-
ibu(IbuA1,A1),
ibu(IbuA2,A2),
saudaraKandung(IbuA1,IbuA2).


%om adalah saudara ibu

om(Om,A4):-
saudaraKandung(Om,Ibu),
ibu(Ibu,A4).

hasil :

?- saudaraKandung(S,M).
S = aris,
M = dedi ;
S = aris,
M = maya ;
S = aris,
M = toni ;
S = dedi,
M = aris ;
S = dedi,
M = maya ;
S = dedi,
M = toni ;
S = maya,
M = aris ;
S = maya,
M = dedi ;
S = maya,
M = toni ;
S = toni,
M = aris ;
S = toni,
M = dedi ;
S = toni,
M = maya ;
S = reza,
M = dahlia ;
S = dahlia,
M = reza ;
false.

?- saudaraSepupu(Y,G).
Y = fadli,
G = fauzan ;
Y = fadli,
G = elang ;
Y = fauzan,
G = fadli ;
Y = fauzan,
G = elang ;
Y = elang,
G = fadli ;
Y = elang,
G = fauzan ;
Y = fadli,
G = reza ;
Y = fadli,
G = dahlia ;
Y = fauzan,
G = reza ;
Y = fauzan,
G = dahlia ;
Y = elang,
G = reza ;
Y = elang,
G = dahlia ;
Y = reza,
G = fadli ;
Y = reza,
G = fauzan ;
Y = reza,
G = elang ;
Y = dahlia,
G = fadli ;
Y = dahlia,
G = fauzan ;
Y = dahlia,
G = elang ;
false.

?- om(D,dahlia).
D = aris ;
D = dedi ;
D = toni ;
false.

Ibnu Katsir Al Marogi mengatakan...

3KA21, 19120008, Ibnu Katsir Al Marogi
https://drive.google.com/file/d/1W0-Wmpc_WkGkybLPsW-RDR2h1MJP09VR/view?usp=sharing
%Keluarga*/
ayah(hasan,sumitra).
ayah(hasan,ahmad).
ayah(hasan,siti_saroh).
ayah(hasan,sulaeman).
ayah(hasan,burhanudin).
ayah(hasan,yayah).
ayah(sulaeman,ibnu).
ayah(sulaeman,yunita).
ayah(sumitra,iwan).
ayah(sumitra,ida).
ayah(sumitra,deden).
ayah(ahmad,yudi).
ayah(ahmad,irma).
ayah(ahmad,ine).
ayah(angkat,siti_suarsah).
ayah(angkat,mimin).
ayah(angkat,rohaeti).
ayah(angkat,asmanah).
ayah(angkat,suhartini).
ayah(angkat,suhaemi).
ayah(mulyanto,putri).
ayah(mulyanto,eka).
ayah(mulyanto,dwi).
ayah(burhanudin,isma).
ayah(burhanudin,aida).
ayah(edi,rika).
ayah(soleh,iim).
ayah(soleh,tanti).
ayah(ading,didi).
ayah(ading,deni).
ayah(ading,dilla).
ayah(dedi,litma).
ayah(dedi,rita).
ayah(dedi,eci).
ayah(dedi,mia).
ayah(surman,dadan).
ayah(surman,irma1).
ayah(iin,gea).
ayah(iin,ovi).
ibu(siti_maemunah,iwan).
ibu(siti_maemunah,ida).
ibu(siti_maemunah,deden).
ibu(siti_suarsah,ibnu).
ibu(siti_suarsah,yunita).
ibu(djaenab,sulaeman).
ibu(djaenab,sumitra).
ibu(djaenab,ahmad).
ibu(djaenab,siti_saroh).
ibu(djaenab,burhanudin).
ibu(djaenab,yayah).
ibu(djaenab,omeh).
ibu(aisyah,yudi).
ibu(aisyah,irma).
ibu(aisyah,ine).
ibu(asmayi,siti_suarsah).
ibu(asmayi,mimin).
ibu(asmayi,rohaeti).
ibu(asmayi,asmanah).
ibu(asmayi,suhartini).
ibu(asmayi,suhaemi).
ibu(siti_saroh,putri).
ibu(siti_saroh,eka).
ibu(siti_saroh,dwi).
ibu(elis,isma).
ibu(elis,aida).
ibu(yayah,rika).
ibu(mimin,iim).
ibu(mimin,tanti).
ibu(rohaeti,didi).
ibu(rohaeti,deni).
ibu(rohaeti,dilla).
ibu(asmanah,litma).
ibu(asmanah,rita).
ibu(asmanah,eci).
ibu(asmanah,mia).
ibu(suhartini,dadan).
ibu(suhartini,irma1).
ibu(suhaemi,gea).
ibu(suhaemi,ovi).

%% RULSE */
%% Kakek*/
kakek(Kakek,Cucu) :-
ayah(Ayah,Cucu),
ayah(Kakek,Ayah).
kakek(Kakek,Cucu) :-
ibu(Ibu,Cucu),
ayah(Kakek,Ibu).
%% Nenek */
nenek(Nenek,Cucu) :-
ayah(Ayah,Cucu),
ibu(Nenek,Ayah).
nenek(Nenek,Cucu) :-
ibu(Ibu,Cucu),
ibu(Nenek,Ibu).
%% saudara kandung */
saudara_kandung(Nama,Name):-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama \= Name.
%% saudara sepupu*/
saudara_sepupu(Sdr1,Sdr2) :-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).
saudara_sepupu(Sdr1,Sdr2) :-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).
saudara_sepupu(Sdr1,Sdr2) :-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).
saudara_sepupu(Sdr1,Sdr2) :-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).
%% Paman */
paman(Paman,Keponakan) :-
ayah(Ayah,Keponakan),
saudara_kandung(Paman,Ayah).

Jawaban
a.saudara_kandung(G,H).
G=sulaeman
H=sumitra
G=sumitra
H=sulaeman
G=sulaeman
H=ahmad
G=ahmad
H=sulaeman
G=sulaeman
H=siti_saroh
G=siti_saroh
H=sulaeman
G=sulaeman
H=burhanudin
G=burhanudin
H=sulaeman
G=sulaeman
H=yayah
G=yayah
H=sulaeman
G=sulaeman
H=omeh
G=omeh
H=sulaeman
G=siti_suarsah
H=mimin
G=mimin
H=siti_suarsah
G=siti_suarsah
H=rohaeti
G=rohaeti
H=siti_suarsah
G=siti_suarsah
H=asmanah
G=asmanah
H=siti_suarsah
G=siti_suarsah
H=suhartini
G=suhartini
H=siti_suarsah
G=siti_suarsah
H=suhaemi
G=suhaemi
H=siti_suarsah
G=ibnu
H=yunita
G=yunita
H=ibnu

b.saudara_sepupu(I,J)
I=ibnu
J=iwan
I=ibnu
J=ida
I=ibnu
J=deden
I=ibnu
J=yudi
I=ibnu
J=irma
I=ibnu
J=ine
I=ibnu
J=isma
I=ibnu
J=aida
I=bnu
J=putri
I=ibnu
J=eka
I=ibnu
J=dwi
I=ibnu
J=rika
I=bnu
J=iim
I=ibnu
J=tanti
I=ibnu
J=didi
I=ibnu
J=deni
I=ibnu
J=dilla
I=bnu
J=litma
I=ibnu
J=rita
I=ibnu
J=eci
I=ibnu
J=mia
I=ibnu
J=dadan
I=ibnu
J=irma1
I=ibnu
J=gea
I=ibnu
J=ovi

c.paman(K,L).
K=sumitra
L=ibnu
K=ahmad
L=ibnu
K=burhanudin
L=ibnu
K=sumitra
L=yunita
K=ahmad
L=yunita
K=burhanudin
L=yunita

d.saudara_kandung(ibnu,N).
N=yunita

e.saudara_sepupu(ibnu,T).
T=iwan ;
T=ida ;
T=deden ;
T=yudi ;
T=irma ;
T=ine ;
T=isma ;
T=aida ;
T=putri ;
T=eka ;
T=dwi ;
T=rika ;
T=iim ;
T=tanti ;
T=didi ;
T=deni ;
T=dilla ;
T=litma ;
T=rita ;
T=eci ;
T=mia ;
T=dadan ;
T=irma1 ;
T=gea ;
T=ovi.

f.paman(K,ibnu).
K=sumitra
L=ibnu
K=ahmad
L=ibnu
K=burhanudin
L=ibnu

Asfan Shabri 3KA21 mengatakan...

ASFAN SHABRI
NPM 17120005
KELAS 3KA21

%% FAKTA */
%%orang tua */
ayah(amaludin,sudirman).
ayah(amaludin,fauzi).
ayah(amaludin,slamet).
ayah(sudirman,lia)
ayah(sudirman,yudi).
ayah(sudirman,nana).
ayah(fauzi,deny).
ayah(fauzi,asfan).
ayah(fauzie,nasir).
ayah(slamet,dini).
ayah(slamet,dudi).
ayah(iskandar,bu_sudirman).
ayah(karim,bu_fauzi).
ayah(Doni,bu_slamet)
ibu(bu_sudirman,lia).
ibu(bu_sudirman,yudi).
ibu(bu_sudirman,nana).
ibu(bu_fauzi,deny).
ibu(bu_fauzi,asfan).
ibu(bu_fauzi,nasir)
ibu(bu_slamet,dini).
ibu(bu_slamet,dudi).
ibu(bu_iskandar,bu_sudirman).
ibu(bu_iskandar,bu_fauzi).
ibu(bu_karim,bu_slamet).

%% ATURAN */
%% Kakek adalah kakek Cucu */
kakek(Kakek,Cucu) :-
ayah(Ayah,Cucu),
ayah(Kakek,Ayah).
kakek(Kakek,Cucu) :-
ibu(Ibu,Cucu),
ayah(Kakek,Ibu).
%% Nenek adalah nenek Cucu */
nenek(Nenek,Cucu) :-
ayah(Ayah,Cucu),
ibu(Nenek,Ayah).
nenek(Nenek,Cucu) :-
ibu(Ibu,Cucu),
ibu(Nenek,Ibu).
%% Nama1 adalah saudara kandung Nama2
saudara_kandung(Nama,Name) :-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama \= Name.
%% Sdr1 adalah saudara sepupu Sdr2
saudara_sepupu(Sdr1,Sdr2) :-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).
saudara_sepupu(Sdr1,Sdr2) :-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).
saudara_sepupu(Sdr1,Sdr2) :-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).
saudara_sepupu(Sdr1,Sdr2) :-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).

Melsyah mengatakan...

3KA21 - 10118659 - Amelia Nur Hasanah



1.%% fakta
%% orangtua
ayah(haling,sadar).
ayah(haling,dean).
ayah(nawing,djamil).
ayah(nawing,sakir).
ayah(djamil,amel).
ayah(djamil,naya).
ibu(nabong,sadar).
ibu(nabong,dean).
ibu(maimunah,djamil).
ibu(maimunah,sakir).
ibu(sadar,amel).
ibu(sadar,naya).

2.%% aturan
%% saudara kandung (A,B):-
ayah(X1,A),
ayah(X1,B),
ibu(Y1,A),
ibu(Y1,B),
A\==B.

%% saudara sepupu (A,B):-
ayah(X1,A),
ayah(X2,B),
saudara_kandung(X2,X1).


saudara_sepupu(A,B):-
ayah(X1,A),
ibu(Y1,B),
saudara_kandung(X1,Y1).

saudara_sepupu(A,B):-
ibu(Y1,A),
ayah(X1,B),
saudara_kandung(Y1,X1).

saudara_sepupu(A,B):-
ibu(Y1,A),
ibu(Y2,B),
saudara_kandung(Y1,Y2).

%% paman dari (A,B):-
paman(Z,W):-
saudara_kandung(Z,X2),
ayah(X2,W).

3.%% output program
a. ?- saudara_kandung(G,H).
G = sadar,
H = dean ;
G = djamil,
H = sakir;
G = amel,
H = naya;
false.

?-

b. ?- saudara_sepupu(I,J).
I = sakir,
J = dean ;
false.

?-

c. ?- paman(K,L).
K = djamil,
L = naya ;
K = sakir,
L = amel ;
false.

?-

d. ?- saudara_kandung(amel,N).
N = naya.

?-

e. ?- saudara_sepupu(amel,T).
T = sakir ;
false.

f. ?- paman(K, amel).
K = dean ;
false.

Asfan Shabri 3KA21 mengatakan...

ASFAN SHABRI
NPM 17120005
KELAS 3KA21

%% FAKTA */
%%orang tua */
ayah(amaludin,sudirman).
ayah(amaludin,fauzi).
ayah(amaludin,slamet).
ayah(sudirman,lia)
ayah(sudirman,yudi).
ayah(sudirman,nana).
ayah(fauzi,deny).
ayah(fauzi,asfan).
ayah(fauzie,nasir).
ayah(slamet,dini).
ayah(slamet,dudi).
ayah(iskandar,bu_sudirman).
ayah(karim,bu_fauzi).
ayah(Doni,bu_slamet)
ibu(bu_sudirman,lia).
ibu(bu_sudirman,yudi).
ibu(bu_sudirman,nana).
ibu(bu_fauzi,deny).
ibu(bu_fauzi,asfan).
ibu(bu_fauzi,nasir)
ibu(bu_slamet,dini).
ibu(bu_slamet,dudi).
ibu(bu_iskandar,bu_sudirman).
ibu(bu_iskandar,bu_fauzi).
ibu(bu_karim,bu_slamet).

%% ATURAN */
%% Kakek adalah kakek Cucu */
kakek(Kakek,Cucu) :-
ayah(Ayah,Cucu),
ayah(Kakek,Ayah).
kakek(Kakek,Cucu) :-
ibu(Ibu,Cucu),
ayah(Kakek,Ibu).
%% Nenek adalah nenek Cucu */
nenek(Nenek,Cucu) :-
ayah(Ayah,Cucu),
ibu(Nenek,Ayah).
nenek(Nenek,Cucu) :-
ibu(Ibu,Cucu),
ibu(Nenek,Ibu).
%% Nama1 adalah saudara kandung Nama2
saudara_kandung(Nama,Name) :-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama \= Name.
%% Sdr1 adalah saudara sepupu Sdr2
saudara_sepupu(Sdr1,Sdr2) :-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).
saudara_sepupu(Sdr1,Sdr2) :-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).
saudara_sepupu(Sdr1,Sdr2) :-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).
saudara_sepupu(Sdr1,Sdr2) :-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).




Output
Output yang dikeluarkan program
a. saudara_kandung(G,H)
G = sudirman,
H = fauzi ;
G = sudirman,
H = slamet ;
G = fauzi,
H = sudirman ;
G = lia,
H = yudi ;
G = lia,
H = nana ;
G = yudi,
H = nana ;
G = deny,
H = asfan ;
G = deny,
H = nasir ;
G = asfan,
H = nasir ;
G = dini,
H = dudi ;


b. saudara_sepupu(I,J).
I = lia,
J = deny ;
I = lia,
J = asfan ;
I = lia,
J = nasir ;
I = lia,
J = dini ;
I = lia,
J = dini ;
I = lia,
J = dudi ;
I = deny,
J = dini ;
I = deny,
J = dudi ;
I = asfan,
J = dini ;
I = asfan,
J = dudi ;
I = asfan,
J = yudi ;
I = asfan,
J = nana ;
I = yudi,
J = deni ;
I = yudi,
J = asfan ;
I = yudi,
J = nasir ;
I = yudi,
J = dini ;
I = yudi,
J = dudi ;

c. paman(K,L).
K = deny,
L = sudirman ;
K = deny,
L = slamet ;
K = asfan,
L = sudirman ;
K = asfan,
L = slamet ;
K = nasir,
L = sudirman ;
K = nasir,
L = slamer ;
K = dini,
L = fauzi ;
K = dini,
L = sudirman ;
K = dudi,
L = sudirman ;
K = dudi,
L = fauzi ;
K = lia,
L = fauzi ;
K = lia,
L = slamet ;
K = yudi,
L = fauzi ;
K = yudi,
L = slamet ;
K = nana,
L = fauzi ;
K = nana,
L = slamet ;

d. saudara_kandung(asfan,N).
N = deny ;
N = nasir ;

e. saudara_sepupu(asfan,T).
T = lia ;
T = yudi ;
T = nana ;
T = dini ;
T = dudi ;

f. paman(K,asfan).
K = sudirman ;
K = slamet ;

bhakti-11118414 mengatakan...

11118414_3KA21_Bhaktiaji Ilham

http://bit.ly/sbp-tugas-silsilah


%% FAKTA */
%%orang tua */
ayah(wagimin,winarno).
ayah(wagimin,winarti).
ayah(wagimin,sarjito).
ayah(wagimin,wiroso).
ayah(winarno,bhakti).
ayah(winarno,dharma).
ayah(winarno,roma).
ayah(sarjito,affan).
ayah(sarjito,ifah).
ayah(sarjito,hafid).
ayah(sarjito,fafa).
ayah(sarjito,feby).
ayah(sarjito,alvin).
ayah(wiroso,ibra).
ayah(wiroso,hanum).
ibu(suyatini,winarno).
ibu(suyatini,winarti).
ibu(suyatini,sarjito).
ibu(suyatini,wiroso).
ibu(zubaedah,bhakti).
ibu(zubaedah,dharma).
ibu(zubaedah,roma).
ibu(winarti,eca).


%% Nama1 adalah saudara kandung Nama2 */
saudara_kandung(Nama,Name):-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama\=Name.

%% Sdr1 adalah saudara sepupu sdr2 */

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).

%% Paman adalah saudara ayah */

paman(Paman,Orang) :-
saudara_kandung(Paman,Ayah),
ayah(Ayah,Orang).



OUTPUT :

A.
?- saudara_kandung(G,H).
G = winarno,
H = winarti ;
G = winarno,
H = sarjito ;
G = winarno,
H = wiroso ;
G = winarti,
H = winarno ;
G = winarti,
H = sarjito ;
G = winarti,
H = wiroso ;
G = sarjito,
H = winarno ;
G = sarjito,
H = winarti ;
G = sarjito,
H = wiroso ;
G = wiroso,
H = winarno ;
G = wiroso,
H = winarti ;
G = wiroso,
H = sarjito ;
G = bhakti,
H = dharma ;
G = bhakti,
H = roma ;
G = dharma,
H = bhakti ;
G = dharma,
H = roma ;
G = roma,
H = bhakti ;
G = roma,
H = dharma ;

B.
?- saudara_sepupu(I,J).
I = bhakti,
J = affan ;
I = bhakti,
J = ifah ;
I = bhakti,
J = hafid ;
I = bhakti,
J = fafa ;
I = bhakti,
J = feby ;
I = bhakti,
J = alvin ;
I = bhakti,
J = ibra ;
I = bhakti,
J = hanum ;
I = dharma,
J = affan ;
I = dharma,
J = ifah ;
I = dharma,
J = hafid ;
I = dharma,
J = fafa ;
I = dharma,
J = feby ;
I = dharma,
J = alvin ;
I = ifah,
J = bhakti ;
I = ifah,
J = dharma ;
I = ifah,
J = roma ;
I = ifah,
J = ibra ;
I = ifah,
J = hanum ;
I = hafid,
J = bhakti ;
I = hafid,
J = dharma ;
I = hafid,
J = roma ;
I = hafid,
J = ibra ;
I = hafid,
J = hanum ;
I = fafa,
J = bhakti ;
I = fafa,
J = dharma ;
I = fafa,
J = roma ;
I = fafa,
J = ibra ;
I = fafa,
J = hanum ;
I = feby,
J = bhakti ;
I = feby,
J = dharma ;
I = feby,
J = roma ;
I = feby,
J = ibra ;
I = feby,
J = hanum ;
I = alvin,
J = bhakti ;
I = alvin,
J = dharma ;
I = alvin,
J = roma ;
I = alvin,
J = ibra ;
I = alvin,
J = hanum ;
I = ibra,
J = bhakti ;
I = ibra,
J = dharma ;
I = ibra,
J = roma ;
I = ibra,
J = affan ;
I = ibra,
J = ifah ;
I = ibra,
J = hafid ;
I = ibra,
J = fafa ;


C.
?- paman(K,L).
K = winarno,
L = affan ;
K = winarno,
L = ifah ;
K = winarno,
L = hafid ;
K = winarno,
L = fafa ;
K = winarno,
L = feby ;
K = winarno,
L = alvin ;
K = winarno,
L = ibra ;
K = winarno,
L = hanum ;
K = winarti,
L = bhakti ;
K = winarti,
L = dharma ;
K = winarti,
L = roma ;
K = winarti,
L = affan ;
K = winarti,
L = ifah ;
K = winarti,
L = hafid ;
K = winarti,
L = fafa ;
K = winarti,
L = feby ;
K = winarti,
L = alvin ;
K = winarti,
L = ibra ;
K = winarti,
L = hanum ;
K = sarjito,
L = bhakti ;
K = sarjito,
L = dharma ;
K = sarjito,
L = roma ;
K = sarjito,
L = ibra ;
K = sarjito,
L = hanum ;
K = wiroso,
L = bhakti ;
K = wiroso,
L = dharma ;
K = wiroso,
L = roma ;
K = wiroso,
L = affan ;
K = wiroso,
L = ifah ;
K = wiroso,
L = hafid ;
K = wiroso,
L = fafa ;
K = wiroso,
L = feby ;
K = wiroso,
L = alvin ;

D.
?- saudara_kandung(bhakti, N).
N = dharma ;
N = roma

E.
?- saudara_sepupu(bhakti, T).
T = affan ;
T = ifah ;
T = hafid ;
T = fafa ;
T = feby ;
T = alvin ;
T = ibra ;
T = hanum ;
T = eca ;

F.
?- paman(K, bhakti).
K = winarti ;
K = sarjito ;
K = wiroso ;

Ahmad Astajib mengatakan...
Komentar ini telah dihapus oleh pengarang.
Novaldo Gabriel mengatakan...

3KA21 - Novaldo Gabriel - 15118359

https://drive.google.com/file/d/16Qd6IbjOcnV6M2QQOX4bFH46BUdnj7Ax/view?usp=sharing

1.
%%orang tua */
ayah(nabokin,evie).
ayah(nabokin,arif).
ayah(nabokin,novie).
ayah(arif,anggie).
ayah(arif,febe).
ibu(ernawati,evie).
ibu(ernawati,arif).
ibu(ernawati,novie).
ibu(evie,putri).
ibu(evie,galih).
ibu(evie,angga).
ibu(novie,aldo).
ibu(novie,joseph).

%% Kakek adalah cucu kakek*/
kakek(Kakek,Cucu):-ayah(Ayah,Cucu),ayah(Kakek,Ayah).

kakek(kakek,Cucu):-ayah(Ibu,Cucu),ayah(Kakek,Ibu).

%% Nenek adalah cucu nenek*/
nenek(Nenek,Cucu):-ibu(Nenek,Ayah),ayah(Ayah,Cucu).

nenek(Nenek,Cucu):-ibu(Nenek,Ibu),ibu(Ibu,Cucu).

%% Nama1 adalah saudara kandung Nama2 */
saudara_kandung(Nama,Name):-
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama\=Name.

%% Sdr1 adalah saudara sepupu sdr2 */
saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).

%% Saudara kandung ibu adalah paman */
paman(Paman,Orang):-
saudara_kandung(Paman,Ibu2),
ibu(Ibu2,Orang).

output Program
A.
saudara_kandung(G,H)
G = evie,
H = arif
G = evie,
H = novie
G = arif,
H = evie
G = arif,
H = novie
G = novie,
H = evie
G = novie,
H = arif

B.
saudara_sepupu(I,J)
I = anggie,
J = putri
I = anggie,
J = galih
I = anggie,
J = angga
I = anggie,
J = aldo
I = anggie,
J = joseph
I = febe,
J = putri
I = febe,
J = galih
I = febe,
J = angga
I = febe,
J = aldo
I = febe,
J = joseph
I = putri,
J = anggie
I = putri,
J = febe
I = galih,
J = anggie
I = galih,
J = febe
I = angga,
J = anggie
I = angga,
J = febe
I = aldo,
J = anggie
I = aldo,
J = febe
I = joseph,
J = anggie
I = joseph,
J = febe
I = putri,
J = aldo
I = putri,
J = joseph
I = galih,
J = aldo
I = galih,
J = joseph
I = angga,
J = aldo
I = angga,
J = joseph
I = aldo,
J = putri
I = aldo,
J = galih
I = aldo,
J = angga
I = joseph,
J = putri
I = joseph,
J = galih
I = joseph,
J = angga

C.
paman(K,L)
K = arif,
L = galih
K = arif,
L = angga
K = arif,
L = aldo
K = arif,
L = joseph

D.
saudara_kandung(aldo,N)
N = joseph

E.
saudara_sepupu(aldo,T)
T = anggie
T = febe
T = putri
T = galih
T = angga

F.
paman(K,aldo)
K = arif

agungnosite mengatakan...

https://drive.google.com/file/d/1TS000rvgN4t-aZ25vtYXJdqz5lNSRcTx/view?usp=sharing

Fakta :
%%orang tua */
ayah(mujiono,endah).
ayah(mujiono,agung).
ayah(salamun,winda).
ayah(salamun,sifa).
ayah(mulyadi,arif).
ayah(mulyadi,aldi).
ayah(sirat,narti).
ayah(sirat,anto).
ayah(kasimin,mujiono).
ayah(kasimin,salamun).
ayah(kasimin,mulyadi).
ayah(kasimin,sirat).
ibu(sarmi,endah).
ibu(sarmi,agung).
ibu(sri,winda).
ibu(sri,sifa).
ibu(murti,arif).
ibu(murti,aldi).
ibu(nah,narti).
ibu(nah,anto).
ibu(mujirah,mujiono).
ibu(mujirah,salamun).
ibu(mujirah,mulyadi).
ibu(mujirah,sirat).

perempuan(mujirah).
perempuan(sarmi).
perempuan(sri).
perempuan(murti).
perempuan(nah).
perempuan(endah).
perempuan(winda).
perempuan(sifa).
perempuan(narti).

ATURAN :
%% Kakek adalah kakek cucu */
kakek(Kakek,Cucu):-ayah(Ayah,Cucu),ayah(Kakek,Ayah).

kakek(Kakek,Cucu):-ibu(Ibu,Cucu),ayah(Kakek,Ibu).

%% Nenek adalah nenek cucu */
nenek(Nenek,Cucu):-ayah(Ayah,Cucu),ibu(Nenek,Ayah).

nenek(Nenek,Cucu):-ibu(Ibu,Cucu),ibu(Nenek,Ibu).

%% Nama1 adalah saudara kandung Nama2 */

saudara_kandung(Nama,Name):-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama\=Name.


%% Sdr1 adalah saudara sepupu sdr2 */


saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).

%% sdr_kdg ayah adalah paman */
paman(Paman,Orang):-
saudara_kandung\=(perempuan),
saudara_kandung(Paman,Ayah),
ayah(Ayah,Orang).


Soal dan Jawab :
1 ?- saudara_kandung(G,H).

G = endah
H = agung ;
G = agung
H = endah ;
G = winda
H = sifa ;
G = sifa
H = winda ;
G = arif
H = aldi ;
G = aldi
H = arif ;
G = narti
H = anto ;
G = anto
H = narti ;
G = mujiono
H = salamun ;
G = mujiono
H = mulyadi ;
G = mujiono
H = sirat ;
G = salamun
H = mujiono ;
G = salamun
H = mulyadi ;
G = salamun
H = sirat ;
G = mulyadi
H = mujiono ;
G = mulyadi
H = salamun ;
G = mulyadi
H = sirat ;
G = sirat
H = mujiono ;
G = sirat
H = salamun ;
G = sirat
H = mulyadi ;
No

2 ?- saudara_sepupu(I,J).

I = endah
J = winda ;
I = endah
J = sifa ;
I = endah
J = arif ;
I = endah
J = aldi ;
I = endah
J = narti ;
I = endah
J = anto ;
I = agung
J = winda ;
I = agung
J = sifa ;
I = agung
J = arif ;
I = agung
J = aldi ;
I = agung
J = narti ;
I = agung
J = anto ;
I = winda
J = endah ;
I = winda
J = agung ;
I = winda
J = arif ;
I = winda
J = aldi ;
I = winda
J = narti ;
I = winda
J = anto ;
I = sifa
J = endah ;
I = sifa
J = agung ;
I = sifa
J = arif ;
I = sifa
J = aldi ;
I = sifa
J = narti ;
I = sifa
J = anto ;
I = arif
J = endah ;
I = arif
J = agung ;
I = arif
J = winda ;
I = arif
J = sifa ;
I = arif
J = narti ;
I = arif
J = anto ;
I = aldi
J = endah ;
I = aldi
J = agung ;
I = aldi
J = winda ;
I = aldi
J = sifa ;
I = aldi
J = narti ;
I = aldi
J = anto ;

I = narti
J = endah ;
I = narti
J = agung ;
I = narti
J = winda ;
I = narti
J = sifa ;
I = narti
J = arif ;
I = narti
J = aldi ;
I = anto
J = endah ;
I = anto
J = agung ;
I = anto
J = winda ;
I = anto
J = sifa ;
I = anto
J = arif ;
I = anto
J = aldi ;
No

3 ?- paman(K,L).

K = mujiono
L = winda ;
K = mujiono
L = sifa ;
K = mujiono
L = arif ;
K = mujiono
L = aldi ;
K = mujiono
L = narti ;
K = mujiono
L = anto ;
K = salamun
L = endah ;
K = salamun
L = agung ;
K = salamun
L = arif ;
K = salamun
L = aldi ;
K = salamun
L = narti ;
K = salamun
L = anto ;
K = mulyadi
L = endah ;
K = mulyadi
L = agung ;
K = mulyadi
L = winda ;
K = mulyadi
L = sifa ;
K = mulyadi
L = narti ;
K = mulyadi
L = anto ;
K = sirat
L = endah ;
K = sirat
L = agung ;
K = sirat
L = winda ;
K = sirat
L = sifa ;
K = sirat
L = arif ;
K = sirat
L = aldi ;
No

4 ?- saudara_kandung(agung,N).
N = endah ;
No

5 ?- saudara_sepupu(agung,T).
T = winda
T = sifa ;
T = arif ;
T = aldi ;
T = narti ;
T = anto ;
No

6 ?- paman(K,agung).
K = salamun ;
K = mulyadi ;
K = sirat ;
No

agungnosite mengatakan...

#KA21_Agung Noviantoro_17118648

https://drive.google.com/file/d/1TS000rvgN4t-aZ25vtYXJdqz5lNSRcTx/view?usp=sharing

Fakta :
%%orang tua */
ayah(mujiono,endah).
ayah(mujiono,agung).
ayah(salamun,winda).
ayah(salamun,sifa).
ayah(mulyadi,arif).
ayah(mulyadi,aldi).
ayah(sirat,narti).
ayah(sirat,anto).
ayah(kasimin,mujiono).
ayah(kasimin,salamun).
ayah(kasimin,mulyadi).
ayah(kasimin,sirat).
ibu(sarmi,endah).
ibu(sarmi,agung).
ibu(sri,winda).
ibu(sri,sifa).
ibu(murti,arif).
ibu(murti,aldi).
ibu(nah,narti).
ibu(nah,anto).
ibu(mujirah,mujiono).
ibu(mujirah,salamun).
ibu(mujirah,mulyadi).
ibu(mujirah,sirat).

perempuan(mujirah).
perempuan(sarmi).
perempuan(sri).
perempuan(murti).
perempuan(nah).
perempuan(endah).
perempuan(winda).
perempuan(sifa).
perempuan(narti).

ATURAN :
%% Kakek adalah kakek cucu */
kakek(Kakek,Cucu):-ayah(Ayah,Cucu),ayah(Kakek,Ayah).

kakek(Kakek,Cucu):-ibu(Ibu,Cucu),ayah(Kakek,Ibu).

%% Nenek adalah nenek cucu */
nenek(Nenek,Cucu):-ayah(Ayah,Cucu),ibu(Nenek,Ayah).

nenek(Nenek,Cucu):-ibu(Ibu,Cucu),ibu(Nenek,Ibu).

%% Nama1 adalah saudara kandung Nama2 */

saudara_kandung(Nama,Name):-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama\=Name.


%% Sdr1 adalah saudara sepupu sdr2 */


saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).

%% sdr_kdg ayah adalah paman */
paman(Paman,Orang):-
saudara_kandung\=(perempuan),
saudara_kandung(Paman,Ayah),
ayah(Ayah,Orang).


Soal dan Jawab :
1 ?- saudara_kandung(G,H).

G = endah
H = agung ;
G = agung
H = endah ;
G = winda
H = sifa ;
G = sifa
H = winda ;
G = arif
H = aldi ;
G = aldi
H = arif ;
G = narti
H = anto ;
G = anto
H = narti ;
G = mujiono
H = salamun ;
G = mujiono
H = mulyadi ;
G = mujiono
H = sirat ;
G = salamun
H = mujiono ;
G = salamun
H = mulyadi ;
G = salamun
H = sirat ;
G = mulyadi
H = mujiono ;
G = mulyadi
H = salamun ;
G = mulyadi
H = sirat ;
G = sirat
H = mujiono ;
G = sirat
H = salamun ;
G = sirat
H = mulyadi ;
No

2 ?- saudara_sepupu(I,J).

I = endah
J = winda ;
I = endah
J = sifa ;
I = endah
J = arif ;
I = endah
J = aldi ;
I = endah
J = narti ;
I = endah
J = anto ;
I = agung
J = winda ;
I = agung
J = sifa ;
I = agung
J = arif ;
I = agung
J = aldi ;
I = agung
J = narti ;
I = agung
J = anto ;
I = winda
J = endah ;
I = winda
J = agung ;
I = winda
J = arif ;
I = winda
J = aldi ;
I = winda
J = narti ;
I = winda
J = anto ;
I = sifa
J = endah ;
I = sifa
J = agung ;
I = sifa
J = arif ;
I = sifa
J = aldi ;
I = sifa
J = narti ;
I = sifa
J = anto ;
I = arif
J = endah ;
I = arif
J = agung ;
I = arif
J = winda ;
I = arif
J = sifa ;
I = arif
J = narti ;
I = arif
J = anto ;
I = aldi
J = endah ;
I = aldi
J = agung ;
I = aldi
J = winda ;
I = aldi
J = sifa ;
I = aldi
J = narti ;
I = aldi
J = anto ;

I = narti
J = endah ;
I = narti
J = agung ;
I = narti
J = winda ;
I = narti
J = sifa ;
I = narti
J = arif ;
I = narti
J = aldi ;
I = anto
J = endah ;
I = anto
J = agung ;
I = anto
J = winda ;
I = anto
J = sifa ;
I = anto
J = arif ;
I = anto
J = aldi ;
No

3 ?- paman(K,L).

K = mujiono
L = winda ;
K = mujiono
L = sifa ;
K = mujiono
L = arif ;
K = mujiono
L = aldi ;
K = mujiono
L = narti ;
K = mujiono
L = anto ;
K = salamun
L = endah ;
K = salamun
L = agung ;
K = salamun
L = arif ;
K = salamun
L = aldi ;
K = salamun
L = narti ;
K = salamun
L = anto ;
K = mulyadi
L = endah ;
K = mulyadi
L = agung ;
K = mulyadi
L = winda ;
K = mulyadi
L = sifa ;
K = mulyadi
L = narti ;
K = mulyadi
L = anto ;
K = sirat
L = endah ;
K = sirat
L = agung ;
K = sirat
L = winda ;
K = sirat
L = sifa ;
K = sirat
L = arif ;
K = sirat
L = aldi ;
No

4 ?- saudara_kandung(agung,N).
N = endah ;
No

5 ?- saudara_sepupu(agung,T).
T = winda
T = sifa ;
T = arif ;
T = aldi ;
T = narti ;
T = anto ;
No

6 ?- paman(K,agung).
K = salamun ;
K = mulyadi ;
K = sirat ;
No

Ahmad Astajib mengatakan...

3KA21_10118323_Ahmad Astajib

https://drive.google.com/file/d/1DuDZ0IXyA1wjShxBgBfg2MaAlDNF-HLO/view?usp=sharing

%% FAKTA */

%%orang tua */
ayah(kaseno,mulyan).
ayah(kaseno,mahmud).
ayah(kaseno,hutomo).
ayah(kaseno,pandi).
ayah(mulyan,edi).
ayah(mulyan,ririn).
ayah(mahmud,zaki).
ayah(mahmud,udin).
ayah(pandi,ahmad).
ayah(pandi,tari).
ibu(saripah,mulyan).
ibu(saripah,mahmud).
ibu(saripah,hutomo).
ibu(saripah,pandi).
ibu(umiasih,edi).
ibu(umiasih,ririn).
ibu(yuyun,zaki).
ibu(yuyun,udin).
ibu(isroin,ahmad).
ibu(isroin,tari).

%% ATURAN */

%% Kakek adalah kakek cucu */
kakek(Kakek,Cucu):-ayah(Ayah,Cucu),ayah(Kakek,Ayah).

kakek(Kakek,Cucu):-ibu(Ibu,Cucu),ayah(Kakek,Ibu).

%% Nenek adalah nenek cucu */
nenek(Nenek,Cucu):-ayah(Ayah,Cucu),ibu(Nenek,Ayah).

%% Nama1 adalah saudara kandung Nama2 */

saudara_kandung(Nama,Name):-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama\=Name.
%% Sdr1 adalah saudara sepupu sdr2 */


saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).


%% sdr_kdg ayah adalah paman */
paman(Paman,Orang):-
saudara_kandung(Paman,Ayah),
ayah(Ayah,Orang).


Output Program

A.
?- saudara_kandung(G,H).
G = mulyan,
H = mahmud ;
G = mulyan,
H = hutomo ;
G = mulyan,
H = pandi ;
G = mahmud,
H = mulyan ;
G = mahmud,
H = hutomo ;
G = mahmud,
H = pandi ;
G = hutomo,
H = mulyan ;
G = hutomo,
H = mahmud ;
G = hutomo,
H = pandi ;
G = pandi,
H = mulyan ;
G = pandi,
H = mahmud ;
G = pandi,
H = hutomo ;
G = edi,
H = ririn ;
G = ririn,
H = edi ;
G = zaki,
H = udin ;
G = udin,
H = zaki ;
G = ahmad,
H = tari ;
G = tari,
H = ahmad ;


B.
?- saudara_sepupu(I,J).
I = edi,
J = zaki ;
I = edi,
J = udin ;
I = edi,
J = ahmad ;
I = edi,
J = tari ;
I = ririn,
J = zaki ;
I = ririn,
J = udin ;
I = ririn,
J = ahmad ;
I = ririn,
J = tari ;
I = zaki,
J = edi ;
I = zaki,
J = ririn ;
I = zaki,
J = ahmad ;
I = zaki,
J = tari ;
I = udin,
J = edi ;
I = udin,
J = ririn ;
I = udin,
J = ahmad ;
I = udin,
J = tari ;
I = ahmad,
J = edi ;
I = ahmad,
J = ririn ;
I = ahmad,
J = zaki ;
I = ahmad,
J = udin ;
I = tari,
J = edi ;
I = tari,
J = ririn ;
I = tari,
J = zaki ;
I = tari,
J = udin ;


C.
?- paman(K,L).
K = mulyan,
L = zaki ;
K = mulyan,
L = udin ;
K = mulyan,
L = ahmad ;
K = mulyan,
L = tari ;
K = mahmud,
L = edi ;
K = mahmud,
L = ririn ;
K = mahmud,
L = ahmad ;
K = mahmud,
L = tari ;
K = hutomo,
L = edi ;
K = hutomo,
L = ririn ;
K = hutomo,
L = zaki ;
K = hutomo,
L = udin ;
K = hutomo,
L = ahmad ;
K = hutomo,
L = tari ;
K = pandi,
L = edi ;
K = pandi,
L = ririn ;
K = pandi,
L = zaki ;
K = pandi,
L = udin ;


D.
?- saudara_kandung(ahmad,N).
N = tari.


E.
?- saudara_sepupu(ahmad,T).
T = edi ;
T = ririn ;
T = zaki ;
T = udin ;


F.
?- paman(K,ahmad).
K = mulyan ;
K = mahmud ;
K = hutomo ;

agungnosite mengatakan...

3KA21_Agung Noviantoro_17118648

https://drive.google.com/file/d/1TS000rvgN4t-aZ25vtYXJdqz5lNSRcTx/view?usp=sharing

Fakta :
%%orang tua */
ayah(mujiono,endah).
ayah(mujiono,agung).
ayah(salamun,winda).
ayah(salamun,sifa).
ayah(mulyadi,arif).
ayah(mulyadi,aldi).
ayah(sirat,narti).
ayah(sirat,anto).
ayah(kasimin,mujiono).
ayah(kasimin,salamun).
ayah(kasimin,mulyadi).
ayah(kasimin,sirat).
ibu(sarmi,endah).
ibu(sarmi,agung).
ibu(sri,winda).
ibu(sri,sifa).
ibu(murti,arif).
ibu(murti,aldi).
ibu(nah,narti).
ibu(nah,anto).
ibu(mujirah,mujiono).
ibu(mujirah,salamun).
ibu(mujirah,mulyadi).
ibu(mujirah,sirat).

perempuan(mujirah).
perempuan(sarmi).
perempuan(sri).
perempuan(murti).
perempuan(nah).
perempuan(endah).
perempuan(winda).
perempuan(sifa).
perempuan(narti).

ATURAN :
%% Kakek adalah kakek cucu */
kakek(Kakek,Cucu):-ayah(Ayah,Cucu),ayah(Kakek,Ayah).

kakek(Kakek,Cucu):-ibu(Ibu,Cucu),ayah(Kakek,Ibu).

%% Nenek adalah nenek cucu */
nenek(Nenek,Cucu):-ayah(Ayah,Cucu),ibu(Nenek,Ayah).

nenek(Nenek,Cucu):-ibu(Ibu,Cucu),ibu(Nenek,Ibu).

%% Nama1 adalah saudara kandung Nama2 */

saudara_kandung(Nama,Name):-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama\=Name.


%% Sdr1 adalah saudara sepupu sdr2 */


saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).

%% sdr_kdg ayah adalah paman */
paman(Paman,Orang):-
saudara_kandung\=(perempuan),
saudara_kandung(Paman,Ayah),
ayah(Ayah,Orang).


Soal dan Jawab :
1 ?- saudara_kandung(G,H).

G = endah
H = agung ;
G = agung
H = endah ;
G = winda
H = sifa ;
G = sifa
H = winda ;
G = arif
H = aldi ;
G = aldi
H = arif ;
G = narti
H = anto ;
G = anto
H = narti ;
G = mujiono
H = salamun ;
G = mujiono
H = mulyadi ;
G = mujiono
H = sirat ;
G = salamun
H = mujiono ;
G = salamun
H = mulyadi ;
G = salamun
H = sirat ;
G = mulyadi
H = mujiono ;
G = mulyadi
H = salamun ;
G = mulyadi
H = sirat ;
G = sirat
H = mujiono ;
G = sirat
H = salamun ;
G = sirat
H = mulyadi ;
No

2 ?- saudara_sepupu(I,J).

I = endah
J = winda ;
I = endah
J = sifa ;
I = endah
J = arif ;
I = endah
J = aldi ;
I = endah
J = narti ;
I = endah
J = anto ;
I = agung
J = winda ;
I = agung
J = sifa ;
I = agung
J = arif ;
I = agung
J = aldi ;
I = agung
J = narti ;
I = agung
J = anto ;
I = winda
J = endah ;
I = winda
J = agung ;
I = winda
J = arif ;
I = winda
J = aldi ;
I = winda
J = narti ;
I = winda
J = anto ;
I = sifa
J = endah ;
I = sifa
J = agung ;
I = sifa
J = arif ;
I = sifa
J = aldi ;
I = sifa
J = narti ;
I = sifa
J = anto ;
I = arif
J = endah ;
I = arif
J = agung ;
I = arif
J = winda ;
I = arif
J = sifa ;
I = arif
J = narti ;
I = arif
J = anto ;
I = aldi
J = endah ;
I = aldi
J = agung ;
I = aldi
J = winda ;
I = aldi
J = sifa ;
I = aldi
J = narti ;
I = aldi
J = anto ;

I = narti
J = endah ;
I = narti
J = agung ;
I = narti
J = winda ;
I = narti
J = sifa ;
I = narti
J = arif ;
I = narti
J = aldi ;
I = anto
J = endah ;
I = anto
J = agung ;
I = anto
J = winda ;
I = anto
J = sifa ;
I = anto
J = arif ;
I = anto
J = aldi ;
No

3 ?- paman(K,L).

K = mujiono
L = winda ;
K = mujiono
L = sifa ;
K = mujiono
L = arif ;
K = mujiono
L = aldi ;
K = mujiono
L = narti ;
K = mujiono
L = anto ;
K = salamun
L = endah ;
K = salamun
L = agung ;
K = salamun
L = arif ;
K = salamun
L = aldi ;
K = salamun
L = narti ;
K = salamun
L = anto ;
K = mulyadi
L = endah ;
K = mulyadi
L = agung ;
K = mulyadi
L = winda ;
K = mulyadi
L = sifa ;
K = mulyadi
L = narti ;
K = mulyadi
L = anto ;
K = sirat
L = endah ;
K = sirat
L = agung ;
K = sirat
L = winda ;
K = sirat
L = sifa ;
K = sirat
L = arif ;
K = sirat
L = aldi ;
No

4 ?- saudara_kandung(agung,N).
N = endah ;
No

5 ?- saudara_sepupu(agung,T).
T = winda
T = sifa ;
T = arif ;
T = aldi ;
T = narti ;
T = anto ;
No

6 ?- paman(K,agung).
K = salamun ;
K = mulyadi ;
K = sirat ;
No

sistrawijaya7 mengatakan...

%% FAKTA */
%%orang tua */
ayah(Roy,Sistra).
ayah(Roy,Candra).
ayah(Sistra,Tara).
ayah(Sistra,Teri).
ayah(Candra,Reza).
ayah(Candra,Reza).
ayah(herdi,bu_sistra).
ayah(Rezi,bu_candra).
ibu(bu_Roy,sistra).
ibu(bu_Roy,candra).
ibu(bu_Sistra,Tara).
ibu(bu_Sistra,Teri).
ibu(bu_candra,reza).
ibu(bu_candra,reza).
ibu(bu_herdi,bu_sistra).
ibu(bu_rezi,bu_candra).
%% ATURAN */
%% Kakek adalah kakek Cucu */
kakek(Kakek,Cucu) :-
ayah(Ayah,Cucu),
ayah(Kakek,Ayah).
kakek(Kakek,Cucu) :-
ibu(Ibu,Cucu),
ayah(Kakek,Ibu).
%% Nenek adalah nenek Cucu */
nenek(Nenek,Cucu) :-
ayah(Ayah,Cucu),
ibu(Nenek,Ayah).
nenek(Nenek,Cucu) :-
ibu(Ibu,Cucu),
ibu(Nenek,Ibu).

Jodi Foa Boy mengatakan...

3KA21 - 13118511 - Jodi Foa Boy

https://drive.google.com/file/d/1I9XdG6kq0IrO5ZpW0hQAnSudt8OXJGVu/view?usp=sharing


%% FAKTA */
%% orang tua */
ayah(lyon,chan).
ayah(lyon,hian).
ayah(lyon,hway).
ayah(chan,jodi).
ayah(chan,zenny).
ayah(hian,jena).
ayah(hian,johan).
ayah(hway,feng).
ibu(jia,chan).
ibu(jia,hian).
ibu(jia,hway).
ibu(erwati,jodi).
ibu(erwati,zenny).
ibu(lian,jena).
ibu(lian,johan).
ibu(niu,feng).


%% Nama1 adalah saudara kandung Nama2 */
saudara_kandung(Nama,Name):-
ayah(Ayah,Nama),
ayah(Ayah,Name),
ibu(Ibu,Nama),
ibu(Ibu,Name),
Nama\=Name.

%% Sdr1 adalah saudara sepupu sdr2 */

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah1,Sdr1),
ayah(Ayah2,Sdr2),
saudara_kandung(Ayah1,Ayah2).

saudara_sepupu(Sdr1,Sdr2):-
ayah(Ayah,Sdr1),
ibu(Ibu,Sdr2),
saudara_kandung(Ayah,Ibu).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu,Sdr1),
ayah(Ayah,Sdr2),
saudara_kandung(Ibu,Ayah).

saudara_sepupu(Sdr1,Sdr2):-
ibu(Ibu1,Sdr1),
ibu(Ibu2,Sdr2),
saudara_kandung(Ibu1,Ibu2).

%% Paman adalah saudara ayah */

paman(Paman,Orang) :-
saudara_kandung(Paman,Ayah),
ayah(Ayah,Orang).


Output Program Prolog tersebut :

a. saudara_kandung(G,H)
G = chan,
H = hian
G = chan,
H = hway
G = hian,
H = chan
G = hian,
H = hway
G = hway,
H = chan
G = hway,
H = hian
G = jodi,
H = zenny
G = zenny,
H = jodi
G = jena,
H = johan
G = johan,
H = jena

b. saudara_sepupu(I,J)
I = jodi,
J = jena
I = jodi,
J = johan
I = jodi,
J = feng
I = zenny,
J = jena
I = zenny,
J = johan
I = zenny,
J = feng
I = jena,
J = jodi
I = jena,
J = zenny
I = jena,
J = feng
I = johan,
J = jodi
I = johan,
J = zenny

c. paman(K,L)
K = chan,
L = jena
K = chan,
L = johan
K = chan,
L = feng
K = hian,
L = jodi
K = hian,
L = zenny
K = hian,
L = feng
K = hway,
L = jodi
K = hway,
L = zenny
K = hway,
L = jena
K = hway,
L = johan

d. saudara_kandung(jodi, N)
N = zenny

e. saudara_sepupu(jodi,T)
T = jena
T = johan
T = feng

f. paman(K, jodi)
K = hian
K = hway