Calculatrice en REXX

Dans un CL :

STRREXPRC REXXCALC

Source de REXXCALC



ARG RES
NUMERIC DIGITS 20
say ' '
say ' '
say ' '
say ' '
say ' '
say ' '
say ' '
say ' '
say ' '
say ' '
say ' '
say ' '
say ' '
say ' '
say ' '
say ' '
say ' '
say 'Opérations:+=addition, -=soustraction, *=multiplication, /=division, **=exponentiation
say 'les résultat restent en mémoire Rn, que vous pouvez utiliser pour les calculs suivant.'
say 'les parenthèses sont possibles.'
say ' '
IF RES='' THEN SAY 'Entrez vos operations, pour sortir ENTREE'
I=0;R=0
/* Procédure calcul : à  vous de l'enrichir */
DO FOREVER
I=I+1
IF RES='' THEN PULL RES
IF RES='' THEN LEAVE
A=1
DO FOREVER
A=POS('X',RES,A)
IF A=0 THEN LEAVE
ELSE RES=OVERLAY('*',RES,A)
END
A=1
DO FOREVER
A=POS('R',RES,A)
IF A=0 THEN LEAVE
A=A+1
IF SUBSTR(RES,A,I)<>',' THEN RES=INSERT('.',RES,A-1)
END
INTERPRET 'R.'I'='RES
SAY 'R'I' = 'R.I
RES=''
END
EXIT

[[Traduit de l’espagnol, Auteur original : Arturo Delgado]]

Print Friendly, PDF & Email