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

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


Pascal/Turbo Pascal

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

Versión 1
estrellaestrellaestrellaestrellaestrella(1)

Publicado el 23 de Julio del 2002gráfica de visualizaciones de la versión: Versión 1
8.391 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
42
43
44
45
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
07 de Junio del 2009
estrellaestrellaestrellaestrellaestrella
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 jrg_300i@hotmail.com agradeceria la ayuda bueno de cierta forma me ayuda bastante con el codigo que ha publicado pero no lo entiendo xD gracias saludos
Responder

Comentar la versión: Versión 1

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

http://lwp-l.com/s268