Convertisseur en Euro:
Comme son nom l'indique, ce programme permet de connaitre le prix en Euro de quelque chose acheté en Francs français et vice et versa.
Si vous êtes possèsseur d'une calculatrice de modèle GT, vous trouverez à la fin de la page un programme utilisant les fonctions des calculatrices GT bien que celui-ci tourne très bien sur vos machines. Ce programme est plus long mais contient des améliorations.
Attention: Le véritable cours de L'Euro ayant été à présent défini, ce programme ne convertit plus correctement les francs en Euros, ni l'inverse d'ailleurs. Le nouveau cours de l'Euro étant 6,55597 Francs, le programme sera changé en conséquence. N'ayant pas encore eu le temps d'apporter les modifications nécessaires au bon fonctionnement de ce programme, nous ne pouvons que vous en informer. Nous vous avertirons dès que nous l'aurons corrigé.
Mémoire: 116 octets
Lbl 0 : "Conversion"
"Francs -> Euro (1)"
"Euro -> Francs (2)"
? -> A
"Combien" ?
A = 1 => Int (Ans div 0.06625 ) div 100 $
A = 2 => Int (662.5 Ans ) div 100 $
Goto 0
Conversion en Euro: (GT)
mémoire: 218 octets
Lbl 0: "Conversion"
"Francs -> Euro (1)"
"Euro -> Francs (2)"
? -> A
"Combien" ? -> B
ClrText
Locate 1, 1, B
If A = 1
Then Locate 16, 1, "Francs"
Else Locate 17, 1, "Euros"
IfEnd
Locate 11,2,"="
If A = 2
Then Locate 1, 3, Int ( 662.5 B ) div 100
Locate 16, 3, "Francs"
Else Locate 1, 3, Int ( B div 0.06625 ) div 100
Locate 17, 3, "Euros"
IfEnd
Plot 0, 0 $
Goto 0