Algoritmos y Programación en Pascal

96 Capítulo 6. Instrucciones estructuradas
Antes de continuar con más ejemplos de bucles while vamos a introducir
un par de funciones booleanas que aparecen muy frecuentemente en el uso de
bucles: EoLn y EoF. 4 La función EoLn se hace verdadera cuando se alcanza una
marca de fin de línea y falsa en otro caso, mientras que la función EoF se hace
verdadera cuando se alcanza una marca de fin de archivo y falsa en otro caso.
Así, el siguiente fragmento de programa cuenta y escribe los caracteres de una
línea:
var
c: char;
numCar: integer;
...
numCar:= 0;
while not EoLn do begin
Read(c);
numCar:= numCar + 1
end; {while}
WriteLn(numCar)
y este otro fragmento cuenta el número de líneas del input
var
numLin: integer;
...
numLin:= 0;
while not EoF do begin
ReadLn;
numLin:= numLin + 1
end; {while}
WriteLn(numLin)
❡❡
Obsérvese cómo se usa la característica de preprobado en los ejemplos anteriores
para asegurarse de que no ha terminado la línea (resp. el archivo)
antes de leer el siguiente carácter (resp. línea). 5
Las instrucciones while se pueden anidar y obtener instrucciones del siguiente
tipo
4 Estas funciones serán estudiadas en mayor profundidad en el apartado 14.3.
5 En la versión 7.0 de Turbo Pascal se puede marcar el fin de la entrada de datos con la
combinación de teclas [Control] + [z].