Bonsoir,
Dans l'exemple suivant, sauf erreur de ma part, il me semble que le message "ok" ne devrait apparaître 1 fois et non 2 ??
Livre : parall
("Spécification 1.4")
("Auteur : pat")
Bibliothèque :
Espèces :
Grands rôles :
cod est un casier de texte valant "+","-","*","/","end"
stop & lig est un nombre valant 0
appelle ok
Paragraphe : ok
Rôles :
lgcod est un nombre valant 0
val est un nombre valant 0
exc est un texte vide
Actions :
Efface le tableau
Tant que stop est différent de 1, lis
Si cod{lig} est égal à "+" alors lis
Mesure cod dans lgcod
Convertis cod{lig+3} en val
Si val <
=lgcod alors lis
lig=lig+4
affiche "ok"
stop=0
Attends 1 secondes
ferme
sinon, lis
affiche "no"
ferme
ferme
ferme
termine
Dans l'exemple suivant, sauf erreur de ma part, il me semble que le message "ok" ne devrait apparaître 1 fois et non 2 ??
Livre : parall
("Spécification 1.4")
("Auteur : pat")
Bibliothèque :
Espèces :
Grands rôles :
cod est un casier de texte valant "+","-","*","/","end"
stop & lig est un nombre valant 0
appelle ok
Paragraphe : ok
Rôles :
lgcod est un nombre valant 0
val est un nombre valant 0
exc est un texte vide
Actions :
Efface le tableau
Tant que stop est différent de 1, lis
Si cod{lig} est égal à "+" alors lis
Mesure cod dans lgcod
Convertis cod{lig+3} en val
Si val <
=lgcod alors lis
lig=lig+4
affiche "ok"
stop=0
Attends 1 secondes
ferme
sinon, lis
affiche "no"
ferme
ferme
ferme
termine