Por
Saiyine
el 0000-00-00 00:00:00 - Secciones: - Enlace permanente: 493
function BaseNADec(num : string; n : byte) : integer;
var
i : integer;
aux : string;
begin
// Solo hasta la 'o' = como máximo base 20... suficiente ¿no?
aux:='0123456789ABCDEFGHIO';
result:=0;
for i:=1 to length(num) do result:=result*n+pos(upcase(num[i]),aux)-1;
end;
// De base 16 (hexadecimal) a base 10 (decimal)
function HexADec(num : string) : integer;
begin
result:=BaseNADec(num,16);
end;
// De base 2 (binario) a base 10 (decimal)
function BinADec(num : string) : integer;
begin
result:=BaseNADec(num,2);
end;
// De base 8 (octal) a base 10 (decimal)
function OctADec(num : string) : integer;
begin
result:=BaseNADec(num,8);
end;
Otras entradas de la web que podrian interesarte:







es rebueno...
see...



la cosa es que yo tengo los nomeros los pase a morse y me quedaron asi -.-. .- ...- . .-. -. .- pero tengo que pasarlos a abecedario ..







del nivel 8!!1
amm pss kiien sabe
que sera lo que pusieron
proo io kiersiera saber como se hace en numeros binarios el 525 y el 616
graciaz..




























































tarados





. . .
. . .
. . .

. . .
. . .
Página web ©2001-2011 Saiyine descargada en s, con 5910666 visitas en total, hoy (de un total de 0 previstas).
. . .