Ayudita con delphi. (soy novato)

[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!

[[oscarac]]

no consideres...
Coloca el codigo tal cual lo tienes tu

[[maeyanes]]

Hola...

¿Podrías pone el código completo de tu aplicación? Por que me suena mucho a que solo hiciste "copy/paste" de lo que te puso ecfisa.


Saludos...

[ecfisa]

Hola Aleix47.

En realidad es como te dicen maeyanes y oscarac, no somos adivinos. Sin ver tu código es imposible saber que estás haciendo mál.

Para que veas la implementación completa te pongo los fuentes del ejemplo.


Saludos.

[[BlueSteel]]

Hola ecfisa,

pero creo que ubiese sido mejor que se lo envies directamente al profesor.. para que te califique....