Exemple 2
Exemple 2
Exemple 2
Exemple 2
Cet exemple utilise l'instruction
création d'une boucle et
:prog2()
:Prgm
Ê
:Prompt n
:0!temp:1!I
Ë
:Lbl top
©
:
temp+i!temp
©
:
i+1!iI
©
:
If i{n
Ë
:
Goto top
Ì
:Disp temp
:EndPrgm
Ê
Invite l'utilisateur à entrer une valeur dans l'écran Program I/O.
Ë
Cacul de boucle.
Ì
Affiche le résultat dans l'écran Program I/O.
étant donné que l'instruction
Remarque :
d'utiliser
pour convertir
expr
Programmation
pour la saisie de valeur,
Prompt
pour afficher le résultat.
Disp
Prompt
.
n
Lbl
retourne
comme nombre, il est inutile
n
et
pour la
Goto
729