Código de Pascal/Turbo Pascal - Convertidor de base 10 a base 2 a 16

Convertidor de base 10 a base 2 a 16gráfica de visualizaciones


Pascal/Turbo Pascal

Publicado el 23 de Julio del 2002 por Carlos Alberto
7.734 visualizaciones desde el 23 de Julio del 2002. Una media de 14 por semana
Convierte de una base 10 a una base de 2 a 16

Versión 1

Publicado el 23 de Julio del 2002gráfica de visualizaciones de la versión: Versión 1
7.735 visualizaciones desde el 23 de Julio del 2002. Una media de 14 por semana
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
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.



Comentarios sobre la versión: Versión 1 (0)


No hay comentarios
 

Comentar la versión: Versión 1

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios

http://lwp-l.com/s269