Estructura de control repetitiva while

[[AgustinOrtu]]

Bienvenido al Club.

Por lo general en este tipo de casos nos gusta mas ayudar a pensar que resolver el problema

La solucioon a este problema es muy similar a lo que venias haciendo. Solamente que en este caso no se conoce el numero de iteraciones. No necesitas N variables

Es decir, antes tendrias una estructura similar a esta:

Código Delphi [-]
var
  I: Integer; // indice del for
  Total: Integer; // total de datos a procesar
begin
  ReadLn(Total); // leer por la entrada estandar (consola) y guardar en variable total
  for I := 0 to Total - 1 do
  begin
    // procesar el elemento I
 end;
end;

En lineas generales, el for recorre desde I hasta N todos los elementos. El while es una estructura que no maneja un indice, simplemente se repite mientras (de ahi su nombre) la condicion que evalua sea verdadera


Ejemplos sencillos:

Código Delphi [-]
  while True do
  begin
   WriteLn('este codigo se ejecutará por lo siglos de los siglos !');
  end;

Código Delphi [-]
var
  Condicion: Boolean;
begin
  while Condicion do
  begin
   WriteLn('este codigo se ejecutará por lo siglos de los siglos a menos que alguien ponga "Condicion" en Falso !');
  end;

Código Delphi [-]
var
  I: Integer;
begin
  I := 0;
  while I < 10 do
  begin
    I := I + 1;
    Writeln('La variable I ahora vale ' + IntToStr(I));
  end;

Espero te sirva