Cómo convertir un número binario al tipo Real

[kbaby]

Pero... como corrigo esos errores :S yo veo todo con ;

Es que damos muy pocas cosas en informática :S (a veces digo que porque no os venís de profesores... xD)

[[Delphius]]

Empezado por kbaby

Pero... como corrigo esos errores :S yo veo todo con ;

Es que damos muy pocas cosas en informática :S (a veces digo que porque no os venís de profesores... xD)

kbaby, recuerda que no estamos a tu lado no podemos ver lo que hiciste.
Si expusieras el código que tienes hecho, con tus correcciones, podríamos saber que haces (o no haces).

Si estás dispuesto a comprar libros, Busca "La Biblia de... " de Marcos Cantú.

Saludos,

[kbaby]

Aquí esta lo que tengo:

procedure TForm1.Button1Click(Sender: TObject);
var
n, Cantidad, Numero: Integer;
begin
Numero:=0;
Cantidad:=Length(Edit1.Text);
for n:=Cantidad downto 1 do
begin
If Edit1.Text[n]='1' then
Numero:=Numero + Power ( 2, Cantidad - n);
end;
ShowMessage('El binario '+Edit1.Text' equivale al número entero '+IntToStr(Numero));

end;

end.

Y sí, voy a comprar un libro, voy a ir viendo esos que me informáis.

[[maeyanes]]

Hola...

Aquí tu código corregido... checa el comentario...

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  n, Cantidad, Numero: Integer;
begin
  Numero := 0;
  Cantidad := Length(Edit1.Text);
  for n := Cantidad downto 1 do
    If Edit1.Text[n] = '1' then
      Numero := Numero + Power(2, Cantidad - n);
  // En esta línea tenías el error, un operador + que faltaba
  ShowMessage('El binario ' + Edit1.Text + ' equivale al número entero ' + IntToStr(Numero))
end;

Saludos...

[kbaby]

Madre mía!!! Por esa cosa me sale todo eso... dios muchas gracias, Ahora queda el último error, me sale:
Incompatible types: 'Integer' and 'Extended'.
Y me señala la línea:
Numero := Numero + Power(2, Cantidad - n);


¿Por qué?


PD: Gracias.

[[maeyanes]]

Hola...

El problema está en que Número es una variable de tipo Integer y la función Power devuelve un valor del tipo Extended, entonces, al hacer:

Código Delphi [-]
Numero + Power(2, Cantidad - n);

El resultado se convierte automáticamente en Extended y ese valor no lo puedes asignar a la variable Numero, de ahí que te de ese error...

Prueba haciendo esto:

Código Delphi [-]
var
  n, Cantidad: Integer;
  Numero: Extended;

Saludos...

[kbaby]

Nunca use lo de Extended
Ahora sale otro error aquí:

Código Delphi [-]
IntToStr(Numero))

Debido a que numero antes era integer... que tengo que poner en lugar de IntToStr. Nunca he estudiado (por ahora) ese tipo de variable.

[ixMike]

Empezado por kbaby

Pero... como corrigo esos errores :S yo veo todo con ;

Pues el sistema del foro es que nos pongas el código que tienes para ver cómo podemos ayudarte
Si no es cosa de ";" será algún operador (como algo:=otracosa