Bucles

While

Repeat

For

Bucle para hacer que un programa se repita hasta que nosotros queramos:

While

While Condicion do

Sentencia

a:=1;

while a<=10 do

begin

           writeln (a);

           a:=a+1;

end;

Repeat

Repeat Sentencia

until Condicion

a:=1;

repeat

           writeln(a);

           a:=a+1;

until a>10;

For

For i:= Valor Inicial to Valor Final do

Sentencia

For a:=1 to 10 do

Begin

           Writeln(a);

End;

Aunque el algoritmo real del for y del while son casi identicos a la hora de la implementacion del programa, la asignacion inicial, la condicion (sólo es en el while pues en el for es unicamente un “conteo”) y la asignacion incremental (en el for va ya incluida en la instruccion en si) se hacen de forma diferente

Bucle para hacer que un programa se repita hasta que nosotros queramos:

Program  zzz;

uses crt;

var a:char;

Begin

   Repeat

       write (‘Deseas volver a ejecutar el programa S/N? ‘);

       a:=readkey;

   until a in [‘n’,’N’];

End.