Discussion :

[Alp]

D'où sort le 375 ?
Qu'est-ce qui provoque son affichage ?

Edit : ah je comprends mieux

La méthode que j'ai donné plus haut devrait marcher... print devrait pouvoir appeler surface en interne ! Non ?

[pmax35]

Merci à vous deux. Du coup je pense que les getters devraient marcher selon le même principe... D'une pierre, deux coups!

[Trap D]

La méthode que j'ai donné plus haut devrait marcher... print devrait pouvoir appeler surface en interne ! Non ?

Ben apparemment non, il faudrait creuser et là , c'est un peu tard pour moi

[pmax35]

Si si ca marche. voici le test:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
test :-
   RectangleA = rectangle(15, 25),
   RectangleA::print,
   RectangleA::setwidth(RectangleB,20),
   RectangleB::print,
   RectangleB::surface(S),
   write(S), nl,
   RectangleB::getwidth(W),
   write(W).

Et l'affichage:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
| ?- test. a
Drawing a Rectangle (15*25)
Drawing a Rectangle (20*25)
500
20

Encore merci pour votre aide.

[Trap D]

Ce qui ne marche pas, c'est ce genre de chose :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
object(
	rectangle(Longueur, Largeur), [
		(surface(S) :- write('appel'), S is Longueur * Largeur),
		%(print :- write('RECTANGLE '), write(Longueur), write(' '), write(Largeur), nl),
		(print :- surface(S), write('Surface du RECTANGLE '), write(S), nl)
		]
).

Une méthode ne peut pas (ou on ne sait pas ) appeler une autre méthode : la méthode print ne peut pas appeler la méthode surface, il y a peut-être un préfixe à akouter, mais lequel ?

[pmax35]

Hmmhmmmm c'est vrai que ce serait plus pratique en interne...

[Paulo Moura]

Bonsoir,

Je suis débutant en Prolog et je cherche un tuto qui expliquerait la programmation orientée objet en Prolog.

En effet j'aimerai comprendre un programme "basique" de relations entre polygone, carre, rectangle etc. développé en Prolog objet.

J'ai eu beau cherché sur la toile, rien trouvé ou presque... Merci de votre aide.

http://trac.logtalk.org/browser/trunk/examples/shapes