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.
Crear cuenta
Comentarios sobre la versión: Versión 1 (1)