prolog boithia paidia pnignomai

[lefterisp]

re paidia auto to e3amino 3ekinisame prolog kai logo twn apergiwn o kathigitis trexei iperbolika kai exo xasei ton mpousoula.Exo dio problimata an mporeite na boithisete....

 

1)Φτιάξτε δυο κατηγορήματα ώστε να μετατρέπετε μια λίστα από κανονικούς αριθμούς σε αριθμούς με την δομή succ() και για το αντίθετο.

 

Exo kanei ton kodika gia na tin metatropi twn arithmwn alla douleuei gia mono enan arithmo kai oxi gia lista.

 

toInt(0,0).

toInt(succ(Num),I):-toInt(Num,Part),I is Part + 1.

 

fromInt(0,0).

fromInt(I, succ(Num)):-fromInt(J,Num),J is I-1.

 

2)Γράψτε κατηγορήματα για το διάβασμα του δέντρου, και με τους τρεις τρόπους, προθεματικά, ενδοθεματικά, και μεταθεματικά. Δώστε κατηγόρημα ευρεσης εάν ένα στοιχείο είναι μέλος του δέντρου. Τέλος θέλουμε ένα κατηγόρημα που να εισάγει ένα νέο στοιχείο στο δέντρο.

prefix(T). -> T = το δέντρο.

infix(T). -> T = το δέντρο.

postfix(T). -> T = το δέντρο.

memberoftree(M,T). -> Μ = το στοιχείο που ελέγχουμε , T = το δέντρο.

addtotree(T1,M,T2). -> Μ = το στοιχείο που εισάγουμε , T1 = το αρχικό δέντρο, Τ2 το τελικό δέντρο.

Για την εμφάνιση στοιχείων στην οθόνη μπορείτε να χρησιμοποιήσετε την print

 

 

edo xano tin mpala teleiwn.An mporeite boithiste please!!!!