Esta es una de las partes del programa anterior solo que me la pidieron mis amigos y aqui se las dejo.

Function Hex2Dec(a:String): Integer;
Var
Temp,Tamano,N,j,d,Elevado,Code,Entero,Selec,Decimal:Integer;
Tmp:Char;
Hex: Array[1..30] Of Integer;
Begin
Decimal:=0;
Tamano:= Length(a);
For N:= 1 To Tamano Do
Begin
Tmp:= Upcase(a[N]);
Case Tmp Of
‘A’: Hex[N]:= 10;
‘B’: Hex[N]:= 11;
‘C’: Hex[N]:= 12;
‘D’: Hex[N]:= 13;
‘E’: Hex[N]:= 14;
‘F’: Hex[N]:= 15;
Else
Val(Tmp,Entero,Code);
Hex[N]:= Entero;
End;
End;
Selec:=Tamano-1;
For N:= 1 to Tamano Do
Begin
Elevado:=1;
For J:=1 to Selec Do
Elevado:= Elevado * 16;
Temp:=Elevado;

decimal:=decimal + (Temp * Hex[N]);
Selec:=Selec - 1;
End;
Hex2Dec:=Decimal;
End;

Compártelo!

El ultimo Programa que me encargaron en el liceo aquí a su disposición, se trata de un conversor de numeraciones, se que no es nada complicado pero espero que ayude

Conversor de Numeraciones:

Decimal        —-> Hexadecimal

Decimal        —-> Octal

Octal           —-> Decimal

Octal           —-> Hexadecimal

Hexadecimal —–> Decimal

Hexadecimal —–> Octal

Link De Descarga .Tar

Link de Descarga .Zip

Compilado Con:

Turbo Pascal 7.0 En Windows

FreePascal En Gnu/Linux Ubuntu 2.2.0

Bueno Espero que Les Sirva para Algo, Yo aprendi mucho con este sencillo programa.

Saludos

Compártelo!