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

sin imagen de perfil

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
9.237 visualizaciones desde el 23 de Julio del 2002
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
9.239 visualizaciones desde el 23 de Julio del 2002
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)

7 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
Es necesario revisar y aceptar las políticas de privacidad

http://lwp-l.com/s268