Algoritmos y Programación en Pascal

104 Capítulo 6. Instrucciones estructuradas
begin
total:= 0;
{Entrada de datos y cálculo de la suma total:}
for i:= 1 to 5 do begin
ReadLn(entrada);
total:= total + entrada
end; {for}
{Cálculo de la media:}
media:= total / 5;
{Salida de datos:}
WriteLn(’La media es ’, media:10:4)
end. {Media5}
Si no se conoce previamente cuántas repeticiones se necesitarán entonces se
usará bien while o bien repeat; para saber cuándo conviene usar una u otra
será conveniente recordar sus similitudes y diferencias.
1. Si no se sabe si se ha de ejecutar el cuerpo del bucle al menos una vez
entonces el bucle ha de ser preprobado, con lo cual se usaría la instrucción
while.
2. Si, por el contrario, el cuerpo del bucle se ha de ejecutar al menos una vez
entonces se usaría repeat, pues nos basta con un bucle postprobado.
Por ejemplo, supóngase que estamos desarrollando un programa de gestión
de un cajero automático, la primera tarea que se necesita es la de identificar
al usuario mediante su número personal; si tenemos en cuenta la posibilidad
de error al teclear el número lo mejor será colocar este fragmento de código
dentro de un bucle. Puesto que, obviamente, es necesario que el usuario teclee
su número de identificación al menos una vez, se usará la instrucción repeat.
var
codigo, intentos: integer;
...
intentos:= 0;
repeat
Read(codigo);
intentos:= intentos + 1
until Código correcto or (intentos > 3)
donde se ha expresado en seudocódigo la comprobación de la validez del número
tecleado y, además, se incluye un contador para no permitir más de tres intentos
fallidos.
En caso de duda, si no se sabe muy bien si el cuerpo del bucle se ha de repetir
al menos una vez o no, se ha de usar while, pero debemos asegurarnos de que