
Page 21-32
Entrez maintenant des valeurs différentes pour les trois champs, disons C = 95,
R = 2.5, et S = 0.003, en appuyant sur @@@OK@@@ après avoir entré chacune de
ces nouvelles valeurs. Après ces substitutions, le formulaire d’entrée se
présentera comme suit :
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
Kommentare zu diesen Handbüchern