FOR-TO-DO en Pascal

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.

FOR-TO-DO en Pascal

Comparte esto:

Relacionado