1 réponse
{Transforme le nombre en base 10}
0) Fonction Base10(N :chaine, b1 :entier) :entier
1) b10 <-- 0
Pour i de 1 à long(N) faire
b10 <-- b10 * b1 + Pos(N[i],Ch) - 1
Finpour
2) base10 <-- b10
3) Fin base10
{Transforme le nombre de base 10 en Base : b2}
0) Fonction base(N :entier, b2 :entier) :chaîne
1) b <--""
Tant que (N <> 0) faire
i <-- N mod b2
b <-- ch[i+1]+ b
N <-- N div b2
fintantque
2) Base <-- b
3) fin base
0) Fonction Base10(N :chaine, b1 :entier) :entier
1) b10 <-- 0
Pour i de 1 à long(N) faire
b10 <-- b10 * b1 + Pos(N[i],Ch) - 1
Finpour
2) base10 <-- b10
3) Fin base10
{Transforme le nombre de base 10 en Base : b2}
0) Fonction base(N :entier, b2 :entier) :chaîne
1) b <--""
Tant que (N <> 0) faire
i <-- N mod b2
b <-- ch[i+1]+ b
N <-- N div b2
fintantque
2) Base <-- b
3) fin base