Algoritmos y Programación en Pascal

100 Capítulo 6. Instrucciones estructuradas
S: Salir.
end
until (opcion = ’S’) or (opcion = ’s’)
El anidamiento de instrucciones repeat se realiza de la forma que cabe esperar.
Como ejemplo se introduce un programa que determina el máximo de una
secuencia de números positivos procedentes del input terminada con el cero.
Program MaximoDelInput (input, output);
{Calcula el máximo de una secuencia de números terminada en 0}
var
max, n: integer;
begin
max:= 0;
repeat
{Lee un número positivo, insistiendo hasta lograrlo:}
repeat
Write(’Introduzca un número positivo: ’);
ReadLn(n)
until n >= 0;
if n > max then
max:= n
until n = 0;
WriteLn(’El máximo es: ’,max)
end. {MaximoDelInput}
Las propiedades principales de la instrucción repeat son las siguientes:
1. La instrucción repeat admite una lista de instrucciones interiores, no
siendo necesario utilizar los delimitadores begin-end.
2. Este bucle se llama postprobado; es decir, la condición se comprueba
después de ejecutar la lista de instrucciones, por lo que ésta se ejecuta
al menos una vez.
3. El bucle termina cuando se cumple la condición.
4. Como consecuencia de los puntos anteriores la lista de instrucciones siempre
se ejecuta una o más veces.
6.3.3 La instrucción for
La instrucción de repetición for se utiliza para crear bucles con un número
predeterminado de repeticiones. Un ejemplo sencillo en lenguaje natural podría
ser para los bloques desde el A hasta el K hacer la inspección del ascensor, según