Bonjour à tous,

Voila je cherche à imiter ce programme en prolog

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
L'utilisateur entre une valeur i
TANT QUE i<1 OU i>5
L'utilisateur doit re-rentrer une valeur i
FIN TANT QUE
Cela me donne ça en prolog

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
orientation(O) :- read(O), verifO(O).
verifO(O) :- O < 1, write('Entrez une valeur comprise entre 1 et 4 : '), orientation(O).
verifO(O) :- O > 5, write('Entrez une valeur comprise entre 1 et 4 : '), orientation(O).
verifO(O).
Cela ne fonctionne pas voila le résultat.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
orientation(O).
10.
Entrez une valeur comprise entre 1 et 4 : 9.
 
O = 10
 
(32 ms) yes
Merci de votre aide.