Table des Matières
Publicité
Maintenant, pour entrer ces valeurs dans le programme, appuyez une fois de
plus sur @@@OK@@@. Cela active la fonction INFORM et produit le résultat suivant
dans la pile :
Ainsi, nous avons démontré l'utilisation de la fonction INFORM. Pour voir
comment utiliser ces valeurs d'entrée dans un calcul, modifiez le programme
comme suit :
«
" CHEZY'S EQN" { { "C:" "Chezy's coefficient" 0} { "R:"
"Hydraulic radius" 0 } { "S:" "Channel bed slope" 0} } { } { 120
1 .0001} { 110 1.5 .00001 }
INFORM IF THEN OBJ
DROP
C R S
'C*(R*S)'
NUM "Q"
TAG ELSE "Operation cancelled" MSGBOX
END »
Les étapes du programme présentées ci-dessus après la commande INFORM
comprennent un embranchement de décision qui utilise la construction IF-THEN-
ELSE-END (décrite en détails par ailleurs dans ce chapitre). Le contrôle du
programme peut être envoyé vers l'une de deux possibilités selon la valeur
figurant au niveau 1 de la pile. Si cette valeur est 1, le contrôle est transmis aux
commandes :
OBJ
DROP
C R S 'C*√(R*S)'
NUM "Q"
TAG
Ces commandes calculent la valeur de Q et placent une étiquette (ou label)
dessus. D'autre part, si la valeur du niveau 1 de la pile est 0 (ce qui se produit
lorsque vous entrez @CANCEL pendant que vous utilisez la case d'entrée), le
contrôle du programme est transmis aux commandes :
Page. 21-32
Publicité
Table des Matières
