Autorisation : Membre
Nb de messages : 9
Inscrit le : Mer 09 Jan 2008, 13:00
Posté le : Jeu 15 Mai 2008, 15:14
Rectification Label 1 : (Base quelconque -> Base 10)
Simplification du code qui
permet d'optimiser la rapidité d'utilisation du programme
mais qui empêche d'utiliser des valeurs >9
Code
Lbl1:ClrHome
Input "BASE DE DEPART",Z
Input "CHIFFRE",Str1
length(Str1)->T
0->Y
10->A:11->B:12->C:13->D:14->E:15->F:16->G:17->H:18->I
For(s,1,(T-0)
expr(sub(Str1,S,1))->R
R*Z^(T-S)+Y->Y
End
Disp Y:Pause:Goto 0
