Bucle for de 2 en 2

[[Gabo]]

Perdonen que me meta con sus códigos, pero es que o hay algo que yo no estoy entendiendo o se están complicando la vida...

Empezado por dec

O lo mismo de antes, pero, con un bucle "For":
Código Delphi [-]

var
i,j: integer;
begin
j := 2;
for i := 0 to 49 do begin
Memo1.Lines.Add(IntToStr(j));
j := j + 2;
end;
end;

Suponiendo que el incremento está en 1 y no se puede cambiar eso, bastaría con:

Código Delphi [-]
 
  for i := 0 to 49 do begin
    ...
    ...
    ...
    i := i + 1;
  end;

Empezado por Delphius

Hola douglas,

Hay varias maneras de hacerlo. Una manera sería hacer algo como esto:

Código Delphi [-]

for i := 1 to 10 do
begin
ii := i * 2; // Esto garantiza el incremento de dos en dos.
ShowMessage(IntToStr(ii));
end;

Creo que es mejor que con la misma variable con que controlas el for (i)hagas el resto del trabajo, al fin y al cabo por algo la estás incrementadoi de 2 en 2



Aunque yo prefiero la opción de un bucle:


Código Delphi [-] i := 2;
while i <= 20 do
begin
// hacer algo...
i := i + 2 //O en su defecto: inc(i,2);
// hacer otra cosa si es necesario...
end;

Para mí también es la mejor opción.