Ayudita con delphi. (soy novato)

[Aleix47]

Hola a todos! Estoy trabajando en delphi y me gustaria saber si alguien de vosotros pudiera ayudarme. El enunciado es el siguiente:

Programa que encuentre un numero que cumpla que si partimos el numero por la mitad, la suma de las mitades al cuadrado devuelva el mismo numero. Encontrar todos los numeros de 2,4,6,8 y 10 cifras.
ejemplo:

35=(3+5)^2=8^2 =64 por lo tanto 35 no es igual a 64.
81=(8+1)^2= 9^2 =81 si, ya que da el mismo valor.
1041= (10+41)^2=2601 no ya que 2601 no es igual a 1041.

Muchas gracias de antemano!

[[oscarac]]

y necesitas.....

el programa?
ayuda?
ideas?

tienes algo avanzado?

[ecfisa]

Hola Aleix47.

Esta es una forma de hacerlo:

Código Delphi [-]
procedure TForm1.HallarNumeros(const Desde, Hasta: Integer; TS:TStrings);
var
  i,Lar: Integer;
  n1,n2,n3: Integer;
begin
  for i:= Desde to Hasta do
  begin
    Lar:= (Trunc(Ln(i)/Ln(10))+1) div 2; // Nro de dígitos dividido 2
    n1:= i div Trunc(Exp(Ln(10)*Lar));   // Extraer 1ra mitad del Nro
    n2:= i mod Trunc(Exp(Ln(10)*Lar));   // Extraer 2da mitad del Nro
    n3:= Trunc(Exp(Ln(n1+n2)*2));        // Obtener cuadrado de la sumatoria
    if n3 = i then                       // Si es n3 = al Nro actual(i) agregar
      TS.Add(format('%d: %d+%d => (%d)^2 = %d',[i,n1,n2,n1+n2,n3]));  
    // Sería lo mismo hacer: TS.Add(IntToStr(i)); (salida sin formato)
  end;
end;

Ejemplo de llamada:

Código Delphi [-]
     HallarNumeros(1,1000000,ListBox1.Items);

Documente que es lo que hace cada línea para que puedas analizar el código y te sirva como base para ejercicios del mismo tipo que tuvieras que resolver. Creo que te va a ser de utilidad ya que muestra como obtener el número de dígitos, potencia y algunos detalles más.
Cualquier duda que tengas sobre el funcionamiento, encantado trato de aclarartela.

Pero como te ha dicho oscarac arriba, el próximo mensaje tratá de tener algo preparado y plantea una duda en concreto. No siempre nos vas a encontrar
con con ganas de resolver ejercicios...

Saludos.

[Aleix47]

Muchas gracias! pero aun así el programa delphi no me deja ejecutar el ejercicio..

[[maeyanes]]

Hola...

No se si ya te han dicho que te des una vuelta por la Guía de Estilo de los foros, si no es así, pues estás formalmente invitado.

Después de leerla, te darás cuenta que te hace falta dar más información para poder ayudarte.

Por ejemplo, que ya hiciste, por que no se ejecuta, si es por un error, cual es el mensaje y en que línea del código se produce, etc...


Ayudanos a ayudarte...



Saludos...

[Aleix47]

Segun dice ecfisa, vamos a considerar que ''procedure'' es la linea numero 1, y los errores que me da el programa son:

linia 1: ';' expected but '.' found
linia 1: '=' expected but ','found
linia 1: '=' expected but ';' found
linia 1: '=' expected but ')' found
linia 2: expression expected but 'VAR' found
linia 3: '..' expected but ';' found
linia 4: '..' expected but ';' found
linia 13: missing operator or semicolon
linia 17: Declaration expected but identifier 'HallarNumeros' found

He intentado modificar el programa pero me eliminia errores y me añade otros de nuevos por tanto os lo dejo tal qual me lo ha pasado el usuario ecfisa. Haber si podeis resolver los errores.
Gracias de antemano!