Como Hago ESTO¿?

[Hitman014]

tengo que hacer una aplicacion con sentencia repetitiva usando "While Do" que cuente sumando los dos ultimos numeros osea que en "Memo1" cuando le de al boton me ponga asi:

1
2 (Resulta de 1 + 1 )
3 (Resulta de 2 + 1 )
5 (Resulta de 3 + 2)
8 (Resulta de 5 + 3)
13 (Resulta de 8 + 5)
21 (Resulta de 13 + 8)

ahora estoy aprendiendo a usar delphi y no se como hacerlo..



asi mas o menos es por fuera.


alguien sabe como puedo hacerlo? alguna idea?

[[poliburro]]

se me ocurre que declares una variable de tipo integer, y en cada iteración la vayas incrementando, una vez incrementada la imprimas en el memo.

[Hitman014]

ah? .

[[poliburro]]

eehhhh????

[Hitman014]

puedes ponerme algun ejemplo o algo apenas estoy aprendiendo ahora y no entiendo bien lo que me dices

[ContraVeneno]

a mi se me ocurre que primero leas los primeros capítulos de cualquier libro de delphi si la parte de

se me ocurre que declares una variable de tipo integer, y en cada iteración la vayas incrementando, una vez incrementada la imprimas en el memo."

te crea tal confusión, quiere decir que te faltan muchas bases para empezar a programar.

[[nightynvid]]

mmmm no se si en este caso sea lo mejor pero para ayudarte con unos conceptos antes que sigas leyendo:

en un ciclo por ejemplo el do while que quieres utilizar a cada vuelta se le llama iteracion.

asi en un do while

Código Delphi [-]
 var
  numero : Integer;

 begin
  numero := 1;

While numero <= 100 do
  begin
   // se puede hacer de mas formas pero para ejemplificar
   num:=num+1

  end;
end;

el ciclo se ejecutara MIENTRAS que se cumpla la condicion numero <= 100

ahora te toca ver como añadir el texto al memo sabiendo como se incremento el numero en el ciclo

como te mencionaron antes hace falta que leas un poco mas, programar solo se aprende estudiando , leyendo y sobre todo practicando, si no entiendes algo haz ejemplos mas simples hasta que llegues a lo que necesitas.

[Hitman014]

se se que tengo que leer... pero tengo que entregar eso el miercoles aver como me va

[Hitman014]

Empezado por nightynvid

mmmm no se si en este caso sea lo mejor pero para ayudarte con unos conceptos antes que sigas leyendo:

en un ciclo por ejemplo el do while que quieres utilizar a cada vuelta se le llama iteracion.

asi en un do while
Código Delphi [-] var numero : Integer; begin numero := 1; While numero <= 100 do begin // se puede hacer de mas formas pero para ejemplificar
num:=num+1

end;
end;

lo puse asi como esta ahy y me marca error despues de "end"

declaration expected but end file found

[Robert01]

En el ejemplo que te dieron podrías cambiar algo:

Código Delphi [-]
var num : Integer;  
begin   
num := 1;  
While num <= 100 do   begin    
// se puede hacer de mas formas pero para ejemplificar
num:=num+1;
end;
end;

Si no declaras la variable num te va a dar un error.

Salu2

[[nightynvid]]

Empezado por Robert01

En el ejemplo que te dieron podrías cambiar algo:

Código Delphi [-]
var num : Integer;  
begin   
num := 1;  
While num <= 100 do   begin    
// se puede hacer de mas formas pero para ejemplificar
num:=num+1;
end;
end;

Si no declaras la variable num te va a dar un error.

Salu2

cierto me equivoque al poner num si ya habia declarado numero perdon



para no fallar aqui va el codigo completo compilado en turbo delphi

creamos un nuevo proyecto para vcl forms

añadimos un boton

y asi se veria el procedimiento para el evento click del boton

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  numero:Integer;
begin
numero:=0;

while numero<100 do
begin
numero:=numero+1;
end;
Application.MessageBox(PChar(IntToStr(numero)),PChar('Ejemplo'));

end;

end.