
There's no shame in being a pariah. [?]
¡Añademe a tus favoritos!
Contacto
Post al azar
RSS
BUSCAR
Mapa de la web
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..
. . .
. . .
. . .
. . .
Se suspenden las traducciones de la wikipedia hasta que no se aclaren las condiciones de su adquisición práctica por parte de google.
. . .
Varios ejemplos de lo que buscaban visitantes recientes:
. . .
Página web ©2001-2010 Saiyine generada en s, con 4777436 visitas en total, hoy (de un total de 0 previstas).
. . .