
Convertidor de base 2 a 16 a base 10
Pascal/Turbo Pascal
Publicado el 23 de Julio del 2002 por Carlos Alberto (2 códigos)
9.934 visualizaciones desde el 23 de Julio del 2002
Convierte de una base de 2 a 16 a base 10
program badiez;
{ Autor : Carlos A. Palomino Chalco }
{ Fecha : 17/07/2002 }
{ Versi¢n : 1.0 }
{ Uso : Convierte de una base de 2 a 16 a base 10 }
uses crt;
type cadena=string[50]; conj=set of char;
var n:cadena;b:integer;
function potencian(num,e:integer):longint;
var j:integer; p:longint;
begin
p:=1;
for j:=1 to e do p:=p*num;potencian:=p;
end;
function basediez(m:cadena;base:integer):longint;
var i:integer;cifra:integer;bdiez:longint;a:conj;
begin
bdiez:=0;
for i:=1 to length(m) do
begin
m[i]:=upcase(m[i]);
if m[i] in ['A'..'Z'] then
cifra:=ord(m[i])-55
else
cifra:=ord(m[i])-48;
bdiez:=bdiez+cifra*potencian(base,length(m)-i);
end;
basediez:=bdiez;
end;
begin
repeat
clrscr; write('Ingrese numero:');readln(n);
write('Ingrese base:');
readln(b);writeln(n,'en base',b,'es:',basediez(n,b));
write('Desea ingresar otro numero (s/n) ?');
until readkey in ['n','N'];
end.
Comentarios sobre la versión: Versión 1 (1)