STO RCL PSE

Questions et discussions autour de la programmation du HP-41.
rexacont
Apprenti
Messages : 16
Inscription : ven. 13 nov. 2009 14:27

STO RCL PSE

Messagepar rexacont » ven. 23 nov. 2012 17:59

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

Avatar de l’utilisateur
3E0_RTN
Expert HP-41
Messages : 338
Inscription : ven. 28 avr. 2006 23:41
Contact :

Re: STO RCL PSE

Messagepar 3E0_RTN » sam. 24 nov. 2012 16:12

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.

Avatar de l’utilisateur
Theo148
Apprenti
Messages : 15
Inscription : mer. 1 août 2012 09:35

Re: STO RCL PSE

Messagepar Theo148 » ven. 30 nov. 2012 17:37

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


Revenir vers « Programmation »

Qui est en ligne ?

Utilisateurs parcourant ce forum : Aucun utilisateur inscrit et 3 invités