FAITE MOI CETTE EXO

Fermé

anais - 31 déc. 2010 à 15:59
PIx Wilz Messages postés 626 Date d'inscription lundi 13 juillet 2009 Statut Membre Dernière intervention 29 mars 2011 - 31 déc. 2010 à 16:03

Bonjour,

donner l'algorithme de conversion d'une base b1 vers une base b2.
(on pourra utiliser la base 10 comme une base intermédiaire)

A voir également:

1 réponse

Réponse 1 / 1

PIx Wilz Messages postés 626 Date d'inscription lundi 13 juillet 2009 Statut Membre Dernière intervention 29 mars 2011 91
Modifié par PIx Wilz le 31/12/2010 à 16:03

{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

Discussions similaires

Ouvrir Fichier EXO

Suivi commande FNAC

ouvrir un fichier de type exo

Annulation demande d'ajout ami Facebook

exo