Algorithme de conversion de la base hexadécimale à la base décimale

Salut à tous
svp qui peut m'aider pour un algorithme de conversion de la base hexadécimale à la base décimale !!

Dis nous où tu bloques et on t' aidera. Si tu ne connais pas le principe, un petit tour sur google te donnera toutes les informations dont tu as besion pour commencer à programmer.

Voici la solution que j'ai trouvée :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

function conv16_10(ch:string;b:integer):integer; var n,e,s:integer; begin s:=0; for i:=1 to length(ch) do begin if (ch[i] in ['0'..'9']) then val(ch[i],n,e) else n:=ord(ch[i])-55; s:=s+(n*puissance(16,length(ch)-i)); end; conv16_10:=s; end;

---

Je viens d'essayer ton algorythme, il est bon.
Où est donc ton problème ?

Édition : au fait, à quoi sont sensées servir :

• le paramètre b
• la variable e ?

Car ils ne sont pas utilisés dans le code...

Re édition :
Aïe !
Si, e est indispensable à la fonction de conversion. :oops:

E est indispensable pour la conversion et b est inutile , c est un faute !