While Do
La estructura repetitiva while(mientras) es aquella en la que el n�mero de
iteraciones no se conoce por anticipado y el cuerpo del bucle se ejecuta
repetidamente mientras que una condici�n sea verdadera .
Su formato es :
while do
begin
;
end;
y su diagrama :
Reglas de funcionamiento :
La condici�n se eval�a antes y despu�s de cada ejecuci�n del bucle. Si la
condici�n es verdadera, se ejecuta el bucle, y si es falsa, el control pasa
a la sentencia siguiente al bucle.
Si la condici�n se eval�a a falso cuando se ejecuta el bucle por primera vez,
el cuerpo del bucle no se ejecutar� nunca.
Mientras la condici�n sea verdadera el bucle se ejecutar�. Esto significa que
el bucle se ejecutar� indefinidamente a menos que "algo" en el interior del
bucle modifique la condici�n haciendo que su valor pase a falso. Si la expresi�n
nunca cambia de valor, entonces el bucle no termina nunca y se denomina bucle
infinito lo cual no es deseable.
ejemplos:
Program Ej_While;
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;
While (tecla<>Esc) do
begin
Write(cont,' Nombre : ');
ReadLn(nombre);
inc(cont);
tecla:=ReadKey
end
end.
|
