Algoritmos y Programación en Pascal

6.3. Instrucciones de iteración 97
while condición 1 do begin
Instrucciones
while condición 2 do
Instrucción;
Instrucciones
end {while}
simplemente escribiendo el while interior como una instrucción más dentro del
cuerpo de otro bucle while. Si el bucle while exterior no llega a ejecutarse, por
ser falsa su condición, tampoco lo hará el while interior. Si, por el contrario, el
while exterior se ejecutara por ser su condición verdadera, entonces se evaluará
la condición del while interior y, si también es verdadera, se ejecutarán sus
instrucciones interiores hasta que su condición se vuelva falsa, tras lo cual el
control vuelve al while exterior.
Un ejemplo de frecuente aplicación de anidamiento de instrucciones while
puede ser la gestión de ficheros de texto, en el siguiente fragmento de código
se cuenta el número de caracteres del input, que está compuesto a su vez por
varias líneas
var
c:char; numCar:integer;
...
numCar:= 0;
while not EoF do begin
while not EoLn do begin
Read(c);
numCar:= numCar + 1
end; {while not EoLn}
ReadLn
end; {while not EoF}
WriteLn(numCar)
Las propiedades principales de la instrucción while que se deben recordar
son las siguientes:
1. La condición se comprueba al principio del bucle, antes de ejecutar la
instrucción; por eso se le llama bucle preprobado.
2. El bucle termina cuando la condición deja de cumplirse.
3. Como consecuencia de los puntos anteriores la instrucción se ejecuta cero
o más veces; por lo tanto puede no ejecutarse.