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!

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

[[maeyanes]]

Empezado por BlueSteel

Hola ecfisa,

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

Si


Saludos...

[ecfisa]

Empezado por BlueSteel

Hola ecfisa,

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

La verdad que tienen razón, me exedí facilitando tanto la cosa...

Pero bueno, apostemos a que le sirva a Aleix para sacar algunas ideas y no solo para hacer copy/paste

Saludos.

[Casimiro Notevi]

Yo, en la primera contestación, y haciendo honor a mi "bordería", tan sólo hubiese puesto: Por favor, lee nuestras normas, gracias por tu colaboración.
Y después ya hablamos

[jafera]

Este es uno de los motivos por los que yo abrí un hilo sobre los trabajos estudiantiles y al final me pusisteis de vuelta y media, jejeje, es broma.

Mi intención en aquel hilo era precisamente esta, intentar hacer entender que ayudar para un ejercicio del colegio o facultad es factible pero que alguien pretenda que se le haga el ejercicio desde cero solo con el enunciado me parece de una "jeta" impresionante.

Casimiro, yo no contesto a veces por no ejercer mi "bordería" tal como tu dices, es que a veces tengo un pronto que hasta mi mujer me dice que de que voy.

Bromas aparte estamos aquí para ayudar, aunque yo no sea el mas indicado ya que mi nivel comparado con algun maestro del foro es casi un valor negativo en la escala.

Saludos

[Casimiro Notevi]

Empezado por jafera

Este es uno de los motivos por los que yo abrí un hilo sobre los trabajos estudiantiles y al final me pusisteis de vuelta y media, jejeje, es broma.

El problema es que estamos bastante "amarrados" por culpa del vbulletin para hacer cosas nuevas, pero estamos estudiando hacer cambios.

Empezado por jafera

Casimiro, yo no contesto a veces por no ejercer mi "bordería" tal como tu dices, es que a veces tengo un pronto que hasta mi mujer me dice que de que voy.

Pues si oyeras lo que me dice (con razón) mi esposa

Empezado por jafera

Bromas aparte estamos aquí para ayudar

Cierto, estamos aquí porque nos gusta ayudar, pero no hacer el trabajo de los demás, además de que con un copy->pega no aprenden nada, como bien sabes.

Empezado por jafera

aunque yo no sea el mas indicado ya que mi nivel comparado con algun maestro del foro es casi un valor negativo en la escala. Saludos

Pues yo te tengo por un maestro, así que no te quites méritos

[jafera]

Gracias por los elogios, hoy voy a engordar algún kilillo de más y eso que no debo, que ya paso los 100....

De verdad siento no poder ser de más ayuda en según que momentos.

He de deciros que todo lo que se de Delphi lo he aprendido como autodidacta y con la inestimable ayuda de un buen amigo al que le doy el coñazo a menudo, el está en Burgos y yo en Girona, pero con el VNC es como si estuvieramos juntos.

Aunque este no es el hilo pertinente y como creo que no se seguirá con el motivo con el que se abrió, solo quiero comentaros que mis inicios fueron con el basic de seimpre 10, 20, 30,....n.

Despues con lo que sabia de basic me lie con acces y su VB para aplicaciones.

Llegué a hacer aplicaciones cliente servidor en ese sistema y funcionaban que ya es mucho.

Luego con el tiempo me di cuenta de las limitaciones con las bases de datos y fue cuando me "traspase" al otro lado y elegí Delphi 6 y Firebird 1.5 para trabajar.

Trabajar profesionalmente no, solo como hobby.

Las aplicaciones que he desarrolado son para temas mios personales, uno es para controlar una base de datos de trenes en miniatura, otro para los recibos de las carreras de bicicletas, otro para los camiones de bomberos de la Generalitat de Catalunya, etc.

Como veis estoy siempre liado con algo, me gusta el modelismo y hago trenes en escala H0 y camiones de bomberos, además soy comisario de ciclismo.

Bueno pues ya os he dado la vara/chapa como diria el humorista aquel.

Cualquier cosa que necesiteis de los temas que yo controlo pues aqui estoy.

Saludos

[Casimiro Notevi]

También soy aficionado a las maquetas de motos principalmente y he tenido coches de radiocontrol 1/8 con motor de gasolina, of course