Bucles

Aquestes sòn les indicacions teoriques per a fer els tres diferents bucles que es poder programar:

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.