REPEAT-UNTIL en Pascal

La acción de repeat-until es repetir una serie de instrucciones hasta que se cumpla una determinada condición.

Su formato es:

 repeat
  <instrucción.1> ;
  <instrucción.2> ;
  ..................  .................. <instrucción.N> ;
 until <condición>;


Aquí las palabras repeat y until sirven también como delimitadores de bloque.

Reglas de funcionamiento:

  1. La condición se evalúa al final del bucle, después de ejecutarse todas las sentencias.
  2. Si la condición es falsa, se vuelve a repetir el bucle y se ejecutan todas sus instrucciones.
  3. Si la condición es falsa, se sale del bucle y se ejecuta la siguiente instrucción a until.
  4. La sintaxis no requiere begin y end.

Analícense los diagramas de while-do y repeat-until, para comprender las diferencias entre ambas formas.

Ejemplo:

Program Ej_Repeat;
Uses Crt;
 {El siguiente programa captura una cadena,
  hasta que se presione la tecla Esc(escape), 
  cuyo ordinal es el #27.}Const  Esc = #27;
Var  nombre: string[30];
  tecla:  char;
  cont  : word;
begin ClrScr;
  cont:=1;
  Repeat Write(cont,' Nombre : ');
    ReadLn(nombre);
    inc(cont);
    tecla:=ReadKey  Until (tecla=Esc)
end.