Repeat Until
La acci�n de repeat-until es repetir una serie de instrucciones hasta que se cumpla
una determinada condici�n .
Su formato es :
repeat
;
;
..................
..................
;
until ;
Aqu� las palabras repeat y until sirven tambi�n como delimitadores de bloque.
Su diagrama de flujo es :
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.
|
