A voir également:
- FAITE MOI CETTE EXO
- Suivi commande fnac faite en magasin - Forum Consommation & Internet
- Comment savoir si une image est faite par ia - Accueil - Intelligence artificielle
- Comment ouvrir un fichier exo? - Forum Pascal
- Un petit exo en systeme d'exploitation - Forum Programmation
- FNAC suivi de commande - Forum Consommation & Internet
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
