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

[[maeyanes]]

Hola...

Bueno si, ahora Numero no es de tipo Integer y es por eso que ya no puedes usar esa función..

Ahora tienes que usar: FloatToStr


Saludos...

[kbaby]

Otra duda xD ¿float no era para cuando utilizabas una variable real?

Ya funciona! Muchas gracias a todos (aora vengo voy a ir a la libreria a comprarme eso) No cerreis el post, que ahora os comento cosas del libro y doy mas gracias a todos).

[[maeyanes]]

El tipo Extended es un tipo de datos Real...

Por cierto, en Delphi ya no se usa el tipo de datos Float, se usa Double en su lugar...



Saludos...

[ixMike]

Float, Double, Extended, Real, Currency y Comp (y no sé si alguno más) son distintos tipos de datos que sirven para almacenar números reales. La diferencia entre ellos es la cantidad de memoria que ocupan (y por tanto, la precisión que tienen). Aunque me parece que algunos son equivalentes a otros y sólo se mantienen por compatibilidad.

[kbaby]

He ido a comprar el libro y no había ninguno que explicara Delphi... (que mal...). Bueno fui a la biblioteca y me van a pedir uno... "No se el título" pero me han dicho que tiene mas de 1000 páginas así que si tenéis idea de cual puede ser... xD

Que libro mas largo, el más largo que leí fue el de Teo va al Zoo xDDDDDDDDD

Bueno, el programa ya funciona muy bien de binario a decimal ahora toca... de decimal a binario perooooooooooooooooooooooooooo tranquilos! Voy a ponerme yo mismo a hacerlo (a intentarlo... no lo conseguire pero... bueno...) xD.

[kbaby]

Ya os dije que volvería...

He estado viendo estó de pasar de decimal > binario y lo que llevo de código es:

Código Delphi [-]
  Binario:=strtofloat(edit1.text);
  IF Binario > 1 then
                    begin
                    Division:= Binario div 2;
                    Resto:= Binario mod 2;

Bueno... a lo que voy, necesito una funcion que me repita el proceso hasta que el numero sea mayor que 1. (Para pasar de bin > dec había que dividir entre 2 y quedarse el resto).

Bueno, ese comando es while (esto lo aprendi por mi cuenta). Pero el problema:
Mi lindo profesor no me a hablado de while...

¿Cómo lo uso? ¿Me enseñais?

Gracias

[ixMike]

While condición do acción

Donde condición puede ser cualquier cosa (true, false, x>5, caption='hola'...)
y acción el código que quieres poner (si es más de una instrucción, debes encerrarlo entre begin-end; )

Tu código sería así:

Código Delphi [-]
Function DecimalToBinario(Decimal: Integer): String;
var
  Resultado: String;
begin
Resultado:='';
While Decimal > 1 do
  begin
    Resultado:=Chr((Decimal mod 2)+48)+Resultado; //Añade delante el último dígito del resto obtenido
    Decimal:= Decimal div 2; //Lo dividimos entre dos para el siguiente paso del bucle
  end;
Resultado:=Chr(Decimal+48)+Resultado; //El último que nos queda
Result:=Resultado;

Creo que funciona. De todas formas, en los enlaces que te pasé ya viene alguno más eficiente


Salu2.


Edito: el método es para números enteros, he tenido una pequeña confusión. Para números decimales la cosa se complica. Estoy investigando.

[kbaby]

Hola, puse el código y segun él... el binario de 14 sería 100101010011111011001000 y en realidad es 1110.

¿Por qué? xD

Otra cosa, muchas gracias compae xD... y me podrías explicar eso de

Resultado:=Chr((Decimal mod 2)+48)+Resultado; //Añade delante el último dígito del resto obtenido

Resultado:=Chr(Decimal+48)+Resultado; //El último que nos queda

"Las palabras en negrita". ¿Por qué sumas 48? ¿Qué es Chr? Ya había mirado la ayuda delphi, pero no tengo ni idea, parece que vuelve a un valor ASCIII o algo así :S