For to Do

Cuando se sabe de antemano el n�mero de veces que deber� ejecutarse un
ciclo determinado, �sta es la forma m�s conveniente. 

El formato para for-to-do es :

for := to  do
  begin
     ;
  end;
 

 

Al ejecutarse la sentencia for la primera vez, a contador se le asigna un
valor inicial(expresion.1), y a continuaci�n se ejecutan las intrucciones
del interior del bucle, enseguida se verifica si el valor final (expresi�n.2)
es mayor que el valor inicial (expresi�n.1); en caso de no ser as� se incrementa
contador en uno y se vuelven a ejecutar las instrucciones, hasta que el contador
sea mayor que el valor final, en cuyo momento se termina el bucle.

Aqu�, contador no puede ser de tipo real. 

Ejemplo:

Program Ej_For;
Uses Crt;
 {El siguiente programa despliega en pantalla el
  numero de veces que se ejecuta las instrucciones
  contenidas en el bucle for}
Var
  Valor_final,contador : integer;
Begin
  ClrScr;
  Write('Escribe el n�mero de iteraciones : ');
  ReadLn(valor_final);
  for contador:=1 to valor_final do
   WriteLn('Iteraci�n : ',contador);
  ReadKey
end.

El contador se puede decrementar sustituyendo la palabra to por la palabra
downto. 

Formato: 

for := downto  do
  begin
     ;
  end;
 

Ejemplo: 

Program Ej_Downto;
Uses Crt;
 {El siguiente programa despliega en pantalla el
  numero de veces que se ejecuta las instrucciones
  contenidas en el bucle for}
Var
  Valor_final,contador : integer;
Begin
  ClrScr;
  Write('Escribe el n�mero de iteraciones : '); 
  ReadLn(valor_final);
  for contador:=valor_final downto 1 do
   WriteLn('Iteraci�n : ',contador);
  ReadKey
end.