need help pleaze
need help pleaze
(OP)
Εισάγετε τα ακόλουθα γεγονότα και κανόνες:
/*1*/ a(1).
/*2*/ a(2).
/*3*/ a(3).
/*4*/ a(4).
/*5*/ b(1).
/*6*/ b(2).
/*7*/ b(3).
/*8*/ b(4).
/*9*/ b(2).
/*10*/ b(7).
/*11*/ c(11).
/*12*/ c(12).
/*13*/ c(13).
/*14*/ c(14).
/*15*/ t(Z):- a(Z), b(Z), not(c(Z)).
/*16*/ s(X,Y):- t(X), Y is X+10, c(Y).
Σχεδιάστε το δένδρο υπολογισμού της ερώτησης:
?- s(X, Y).
2)
Έστω τα παρακάτω γεγονότα:
a(b(1)).
a(b(2)).
a(b(3)).
a(b(4)).
a(b(6)).
Δημιουργείστε μία διαδικασία που να τυπώνει στην οθόνη (κάνοντας χρήση της εντολής
writeln(X)) τα b(Υ) όπου Υ άρτιος αριθμός.
/*1*/ a(1).
/*2*/ a(2).
/*3*/ a(3).
/*4*/ a(4).
/*5*/ b(1).
/*6*/ b(2).
/*7*/ b(3).
/*8*/ b(4).
/*9*/ b(2).
/*10*/ b(7).
/*11*/ c(11).
/*12*/ c(12).
/*13*/ c(13).
/*14*/ c(14).
/*15*/ t(Z):- a(Z), b(Z), not(c(Z)).
/*16*/ s(X,Y):- t(X), Y is X+10, c(Y).
Σχεδιάστε το δένδρο υπολογισμού της ερώτησης:
?- s(X, Y).
2)
Έστω τα παρακάτω γεγονότα:
a(b(1)).
a(b(2)).
a(b(3)).
a(b(4)).
a(b(6)).
Δημιουργείστε μία διαδικασία που να τυπώνει στην οθόνη (κάνοντας χρήση της εντολής
writeln(X)) τα b(Υ) όπου Υ άρτιος αριθμός.
RE: need help pleaze
RE: need help pleaze
a(b(1)).
a(b(2)).
a(b(3)).
a(b(4)).
a(b(6)).
Be created a process that it would print in the screen (making use of command
writeln (X)) b ([Y]) where [Y] even number(2,4,6,8,10,...)....[/b]
:):):):):)