program diezan;
{ Autor : Carlos A. Palomino Chalco }{ Fecha : 17/07/2002 }{ Versi¢n : 1.0 }{ Uso : Convierte de una base 10 a una base de 2 a 16 }
uses crt;
type cadena=string[50];
var n,b:integer;
function convbase(num,base:integer):cadena;
var cade:cadena; cad:string;codigo,dig:integer;
begin
cade:='';
if num>0 then
repeat
if (num mod base) > 9 then
begin
dig:=num mod base + 55;cad:=chr(dig);
insert(cad,cade,1);
end
else
begin
dig:=num mod base + 48;cad:=chr(dig);
insert(cad,cade,1);
end;
num:=num div base;
until num<1
else
cade:='0';
convbase:=cade;
end;
begin
repeat
clrscr; write('Ingrase numero:');readln(n);write('Ingrese base:'); readln(b);writeln(n,'en base',b,'es:',convbase(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 (0)
No hay comentarios