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

Convertidor de base 2 a 16 a base 10

Pascal/Turbo Pascal

(1)

Publicado el 23 de Julio del 2002 por Carlos Alberto (2 códigos)

9.932 visualizaciones desde el 23 de Julio del 2002

Convierte de una base de 2 a 16 a base 10

Versión 1
(1)

Publicado el 23 de Julio del 2002

gráfica de visualizaciones de la versión: Versión 1

9.933 visualizaciones desde el 23 de Julio del 2002

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)

jobran rodriguez

7 de Junio del 2009

buenas amigo muy util el programa que haz publicado me lo pidieron en la uni y quisiera saber si me podria ayudar con una factura que tengo que hacer pero no se nada xD y necesito aprender quisiera que alguien me explicara algunas cosas aqui mi correo [email protected] agradeceria la ayuda bueno de cierta forma me ayuda bastante con el codigo que ha publicado pero no lo entiendo xD gracias saludos

Responder