[TI 83+] Relation de Pythagore

Programme très simple que j'ai réalisé en quelques minutes, il suffit d'écrire nos deux mesures de côtés connus et marquer "0" là où nous voulons savoir quel est la mesure du côté (P.S. C est l'Hypoténuse!) :

Hypothèse :
-> veut dire stocker (STO->), ce bouton se situe juste en haut du bouton ON
est une racine carré
^2 est "au carré"

:ClrHome
:Output(2,1,"B:
:Output(3,1,"C:
:Input ("A:",Z
:Output(3,1,"C:
:Input ("B:",Y
:Input ("C:",X
:If Z=0
:(X^2-Y^2)->R
:If Y=0
:(X^2-Z^2)->R
:If X=0
:(Z^2+Y^2)->R
:Output(5,1,R
:Output(5,13,"= R

P.S. le "=R" veut simplement vous indiquer que la réponse donnée est stockée (mémorisée) dans la variable R