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:
- La condición se evalúa al final del bucle, después de ejecutarse todas las sentencias.
- Si la condición es falsa, se vuelve a repetir el bucle y se ejecutan todas sus instrucciones.
- Si la condición es falsa, se sale del bucle y se ejecuta la siguiente instrucción a until.
- 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.