FOR-TO-DO en Pascal

Publicado en Informática Etiquetado con

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 <contador>:=<expresión.1> to <expresión.2> do begin <instrucciones> ;
  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);
  ReadKeyend.

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

Formato:

for <contador>:=<expresión.1> downto <expresión.2> do begin <instrucciones> ;
  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);
  ReadKeyend.