Home

Logithèque

TI86

Conversion entre FRF, Euro et $

Code

Le convertisseur n'a d'intérêt que par un formattage agréable des données et résultats. Il utilise deux sous-programmes, qui sont donnés.

Depuis le passage à l'Euro, il aurait besoin d'être mis à jour...

Conv :

ClLCD:Disp "--Euro Converter--"

Lbl A:Menu(1,"F>Eur",B,2,"Eur>F",C,5,"Quit",F,3,"F>$",D,4,"$>F",E)

Lbl B:Input "F=",x:"% F>Eur %"->S:{x,x/Eur}:FMT:Disp F:Goto A

Lbl D:Input "Eur=",x:"% Eur>F %"->S:{x,x*Eur}:FMT:Disp F:Goto A

Lbl E:Input "F=",x:"% F>$ %"->S:{x,x/FrDol}:FMT:Disp F:Goto A

Lbl F:Input "$=",x:"% $>F %"->S:{x,x*FrDol}:FMT:Disp F:Goto A

Le sous-programme FMT est :

FMT :

Ans->D:"."->F:1->G

For (E,1,lngth S)

If sub(S,E,1)=="%"

Then:D(G):toStr:F+A->F:G+1->G

Else:F+sub(S,E,1)->F:End

End:sub(F,2,lngth F-1)->F:F

FMT utilise le sous-programme toStr qui suit :

toStr :

Ans->A

xStat->B:yStat->C

LinR{0,1},{A,A}

B->xStat:C->yStat

Eq>St(RegEq,A)

sub(A,1,lngth A-3)->A

A

Le programme Conv (363 octets) utilise la constante Eur valant 6.55957 et la variable FrDol, valeur du $ en FRF (entre 7 et 8 en ce moment). Les variables x et S sont utilisées.

Le programme FMT (142 octets) a pour vocation d'être appellé par d'autres. Il utilise les variables D, E, F, G, et S. Il appelle aussi le sous-programme toStr, qui utilise aussi des variables. Il formatte les valeurs numériques passées sous forme de liste dans Ans selon le format spécifié dans la variable S. Actuellement la seule spécification de formattage reconnue est d'insérer les valeurs successivement aux emplacements des signes "%" placés dans S.

Le programme toStr (106 octets) convertit le nombre passé dans Ans en chaîne de caractères stockée dans la variable A. Il utilise les variables C et D pour sauvegarder les variables statistiques xStat et yStat qui seraient écrasées. Si cela n'a pas d'importance, on peut simplifier le programme.

Mode d'emploi

Lancer le programme. Presser la touche de menu associée à la conversion souhaitée.

Le montant dans la devise de départ est demandé, le saisir.

Le montant est affiché dans la devise d'arrivée.