Pascal/Turbo Pascal - como puedo hacer esto

   
Vista:
Imágen de perfil de Misael

como puedo hacer esto

Publicado por Misael (34 intervenciones) el 08/05/2015 19:04:37
necesito hacer un programa que al momento de ingresar un numero binario me lo convierta a decimal.

Agradecería mucho me ayudaran
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

como puedo hacer esto

Publicado por Rene Gar (58 intervenciones) el 09/05/2015 01:13:38
Prueba esto haber si te sirve saludos...

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
function binToDecimal(const data:string):integer;
var
 i:integer;
 decimal,exp:integer;
begin
  decimal:=0;
  exp:=0;
  for i:=length(data) downto 1 do
  begin
    if(data[i]='1') then
    begin
      decimal:=decimal+trunc((power(2,exp)));
    end;
    inc(exp);
  end;
  result:=decimal;
end;
 
begin
 writeln(binToDecimal('01111101110111'));
 readln;
 
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
Imágen de perfil de Misael

como puedo hacer esto

Publicado por Misael (34 intervenciones) el 09/05/2015 02:49:16
me marca un error en esta linea decimal:=decimal+trunc((power(2,exp))); pide identificar power
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

como puedo hacer esto

Publicado por Rene gar (58 intervenciones) el 09/05/2015 20:25:01
Tienes que añadir en uses la libreria math
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
Imágen de perfil de Misael

como puedo hacer esto

Publicado por Misael (34 intervenciones) el 29/05/2015 16:51:41
gracias Rene me marca un error cuando agrego la librería match, espero me podas ayudar...

pascal
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

como puedo hacer esto

Publicado por ramon (2072 intervenciones) el 09/05/2015 12:10:40
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
{A ver si esto sirve}
 
program binariointeger;
  uses
     crt;
    const
    bits : array[1..8] of integer = (128, 64, 32, 16, 8, 4, 2, 1);
   var
     bins : string[8];
     i, ente : integer;
   begin
      clrscr;
      write('  Entre Binario 8 bit : ');
      readln(bins);
      ente := 0;
      for i := 1 to 8 do
       if bins[i] = '1' then
       ente := ente +  bits[i];
       writeln;
       writeln('  El Integer Es : ',ente);
       readkey;
    end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar