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

[kbaby]

Me he atrancado aquí:

const
Cadena = 'ABCDEF';
var
TercerCaracter: Char;
begin
TercerCaracter:=Cadena[3];
//TercerCaracter ahora debe valer "C"
end;


ABCDEF ... supongo que ese código ira en un button... pero como voy a poner en ese button ABCDEF xD

PD: Soy... principiante (mas por debajo)

PD2: He leído el código completo y e ido transladando todo a lo que yo sé y me atranqué en:
If Edit1.Text[n]='1' then //Si el número es un uno
Inc(Numero, Power(2, Length(Edit1.Text)-n));

Edit1.Text[n] -> No lo he visto nunca después de text añadir [n] ... T_T

[ixMike]

Empezado por kbaby

ABCDEF ... supongo que ese código ira en un button... pero como voy a poner en ese button ABCDEF xD

"ABCDEF" es sólo una constante que he declarado como ejemplo.

Empezado por kbaby

PD: Soy... principiante (mas por debajo)

Ni eso, eres un alumno

Empezado por kbaby

Edit1.Text[n] -> No lo he visto nunca después de text añadir [n]

No es cuestión de Text, sino de cualquier variable o propiedad o función de tipo String, puedes acceder al caracter n como ya te he explicado.

Dile a tu profesor(a) que os enseñe un poco más de lo básico antes de empezar con nuevas funciones


Salu2, y que vaya bien con la literatura

[kbaby]

Al fin termine literatura xD Voy a intentar hacer eso de binario a decimal de esta forma.

Guardare la longitud del binario en una variable cantidad
Hare un for para que se repita tantas veces como esa cantidad

1. Pero aquí está la cuestion: ¿cómo le digo a ese for, que tiene que ir sumando 1+2+4+8...) "Me explico mal xD"
2. Y cuando aparezca un 0 en el binario... pues cojeré un IF y si sale 0, le diré que pasé de él, que lo discrimine. (Cómo hacer eso es otro gran logro) xD.

[ixMike]

Volvamos a ver mi código:

Código Delphi [-]
var
  n, Numero: Integer;
begin
  Numero:=0; //Damos un valor inicial al número
  for n:=Lenght(Edit1.Text) downto 1 do
    begin
      If Edit1.Text[n]='1' then //Si el número es un uno
       Inc(Numero, Power(2, Length(Edit1.Text)-n));
    end;
ShowMessage('El binario '+Edit1.Text' equivale al número entero '+IntToStr(Numero));
end;

Lenght(Edit1.Text) es lo que tú quieres llamar cantidad, pero si así te aclaras mejor, pues entonces hazlo

If Edit1.Text[n]='1' then significa "si el carácter n es uno entonces...". Así es como discrimino al cero.

La función Inc incrementa la variable Numero en la cantidad que se le dice en el segundo parámetro. Estas dos líneas hacen lo mismo:

Código Delphi [-]
Inc(Numero, 2);
Numero:=Numero + 2;

Lo que hago es incrementarlo la potencia de dos, teniendo en cuenta que el exponente es el orden del carácter leído, comenzando por la derecha y desde cero. Si te fijas, cantidad - n ya hace esto (al principio vale 0, y al final cantidad - 1)

A ver si de esta forma te aclaras más:

Código Delphi [-]
var
  n, Cantidad, Numero: Integer;
begin
  Numero:=0; //Damos un valor inicial al número
  Cantidad:=Lenght(Edit1.Text); //Indicamos la cantidad
  for n:=Cantidad downto 1 do
    begin
      If Edit1.Text[n]='1' then //Si el número es un uno
       Numero:=Numero + Power(2, Cantidad - n);
    end;
ShowMessage('El binario '+Edit1.Text' equivale al número entero '+IntToStr(Numero)); //Mostramos un mensaje con los datos
end;

¿Mejor así?

Salu2.

[kbaby]

Hola! Como nadie sabíamos hacerlo nos dijo que no nos explicó que se hacía con el for con downto ... pero bueno mañana tengo la posibilidad de entregarlo. He visto tu código y donde pone lenght ....¿no sería length?

En delphi, puse un edit y un button y metí el code enel button. Y cuando le doy a F9 me señala la linea donde dice Power diciendo de error: Undeclared identifier: 'Power'. Y luego otro error en la misma línea de que falta un ; porque dice Missing Operator semiclon xD


Siento ser así de pasado, pero bueno.... es que quiero aprender y quiero aprender mucho más... necesito hacer un proyecto para junio ! Y quiero empezar ya en mi casa.

[kbaby]

He buscado en Delphi help, y me dice que la función Power es:
Power(const Base, Exponent: Extended): Extended;

¿No faltan las palabras en negrita?

[[Lepe]]

Es obvio que lo ha escrito de memoria, así que es fácil cometer errores.

lenght es uno de mis errores más comunes

En la misma ayuda, te dice que power está en la unidad Math, por ende, tienes que poner :

uses Math;

para que compile.

Lo del punto y coma, pues lo corrijes y listo

Las palabras en negritas, son la declaración de tipos de la función, es decir, te dice que recibe un tipo de dato en coma foltante (Extended), aunque un integer es totalmente compatible con ellos.

La palabra "const" viene a decir que esos parámetros no se van a modificar dentro de la función "power".

Saludos

[kbaby]

No se donde poner uses Math;

Lo siento... xD mi inexperiencia... es 100%

Gracias por la rapidez tio.