STO RCL PSE

[rexacont]

Bonjour à tous pouvez-vous m'écrire un programme de votre choix
utilisant les fonctions STO RCL et PSE
Merci

[3E0_RTN]

01 LBL 00
02 PSE Pause
03 DSE X Décrémente X de 1 et teste si X=0
04 GTO 00 Va à LBL 00 tant que X est différent de 0
05 'FINI Car X=0
06 BEEP
07 PROMPT

Tapez la valeur de X, RTN et R/S.

Cordialement.

[Theo148]

Bonjour,

version incluant aussi STO et RCL comme demandé :

01 LBL "ABC" étiquette du "programme"
02 1 place 1
03 STO 01 dans la variable 01
04 LBL 00 étiquette de boucle
05 RCL 01 rappelle la variable 01
06 1 et y rajoute 1
07 +
08 STO 01 place le résultat dans la même variable 01
09 PSE marque une pause pour afficher le contenu du registre X (soit le résultat de l'addition)
10 GTO 00 retourne à l'étiquette 00 pour recommencer une boucle "sans fin" tant que R/S n'est
pas enfoncé
les lignes 7 et 8 peuvent être fusionnées en STO + 01 (additionne directement le contenu de la variable 01 au contenu du registre X et place le résultat dans la variable 01). Dans ce cas, la ligne 05 est à déplacer avant le PSE (car X ne contient pas le résultat de l'addition, mais toujours 1), et la ligne 02 doit elle contenir 0 si l'on souhaite que le comptage commence à 1 comme dans l'exemple ci-dessus.

Bon courage

Théo