Blog en Blogger Perfil en Slideshare Bookmarks en Delicious Perfil el Facebook Perfil en Twitter Fotos en Flickr Página en MySpace Canal en YouTube Perfil en Google Perfil en Google
Búsqueda personalizada
Curso/Tutorial de Pascal (Turbo Pascal)
 Principal
 Inicio
 Libros
 Librerías
 Bibliotecas
 Mapa Web
 
 Recursos
 Artículos
 Cursos
 Ejercicios
 Guías de uso
 Mini Diccionario 
  
 Sintaxis
 ANSI C
 Ordinogramas
 Pascal
 Pseudocódigo 
  
 Acerca de
 Carlos Pes
 Colaboradores
 Perfiles
 Taller de ideas 
  
 Otros Proyectos
 Blog Carlos Pes
 Grupo Google
 Fotografías
 Proyecto CP
 Recetas cocina 
  
 Sitios Amigos
 Enlaces
  
 Contenidos > 3.1 Repetitiva mientras ( la instrucción while )
En Pascal, para escribir una instrucción repetitiva mientras se utiliza la sintaxis:


   while <expresión_lógica> do
      begin
         
<bloque_de_instrucciones>
      end

 

Cuando el <bloque_de_instrucciones> sólo contiene una instrucción, las palabras reservadas beginend son opcionales.

Por otra parte, al igual que en las instrucciones alternativas doble y simple, a la <expresión_lógica> de una instrucción repetitiva while, también se le llama condición.

Para que se ejecute el <bloque_de_instrucciones>, la condición tiene que ser verdadera. Por el contrario, si la condición es falsa, el <bloque_de_instrucciones> no se ejecuta.

Por tanto, cuando el flujo de un programa llega a un bucle while, existen dos posibilidades:
  1. Si la condición se evalúa a falsa, el bloque de instrucciones no se ejecuta, y el bucle while finaliza sin realizar ninguna iteración.
  2. Si la condición se evalúa a verdadera, el bloque de instrucciones sí que se ejecuta y, después, se vuelve a evaluar la condición, para decidir, de nuevo, si el bloque de instrucciones se vuelve a ejecutar o no. Y así sucesivamente, hasta que, la condición sea falsa.
El <bloque_de_instrucciones> de un bucle while puede ejecutarse cero o más veces (iteraciones). Si el <bloque_de_instrucciones> se ejecuta al menos una vez, seguirá ejecutándose repetidamente, mientras que, la condición sea verdadera. Pero, hay que tener cuidado de que el bucle no sea infinito.

Cuando la condición de un bucle while se evalúa siempre a verdadera, se dice que se ha producido un bucle infinito, ya que, el programa nunca termina. Un bucle infinito es un error lógico.

Es importante hacer hincapié en el hecho de que, en un bucle while, primero se evalúa la condición y, en el caso de que ésta sea verdadera, entonces se ejecuta el bloque de instrucciones.

Para que un bucle while no sea infinito, en el bloque de instrucciones debe ocurrir algo para que la condición deje de ser verdadera. En la mayoría de los casos, la condición se hace falsa al cambiar el valor de una variable.

En resumen, una instrucción repetitiva while permite ejecutar, repetidamente, (cero o más veces) un bloque de instrucciones, mientras que, una determinada condición sea verdadera.

Ejemplo 1: Se quiere escribir un programa que muestre por pantalla los primeros diez números naturales:


   1 2 3 4 5 6 7 8 9 10

 

En Pascal, para resolver el problema de este ejemplo se puede escribir:

program EJE13031;

uses Crt;

var Contador : Integer;

begin
   ClrScr;
   GotoXY( 4, 2 );

   Contador := 1{ Inicializacion del contador }
   while ( Contador <= 10 ) do     { Condicion }
      begin
         Write( Contador, ' ' );   { Salida }
         Contador := Contador + 1  { Incremento del contador }
      end
end.

Programa (.PAS): Números del 1 al 10 (while)

Ejemplo 2: Se quiere escribir un programa que:

1º) Pida por teclado la nota (dato real) de una asignatura.
2º) En el caso de que la nota sea incorrecta, muestre por pantalla el mensaje:
  • "ERROR: Nota incorrecta, debe ser >= 0 y <= 10".
3º) Repita los pasos 1º y 2º, mientras que, la nota introducida sea incorrecta.
4º) Muestre por pantalla:
  • "APROBADO", en el caso de que la nota sea mayor o igual que 5.
  • "SUSPENDIDO", en el caso de que la nota sea menor que 5.
En pantalla:


   Introduzca nota (real): 12.4

   ERROR: Nota incorrecta, debe ser >= 0 y <= 10


   Introduzca nota (real): -3.3


   ERROR: Nota incorrecta, debe ser >= 0 y <= 10


   Introduzca nota (real): 8.7

   APROBADO

 

El código propuesto es:

program EJE13091;

uses Crt;

var Nota : Real;

begin
   ClrScr;
   WriteLn;
   Write( '   Introduzca nota (real): ' );
   ReadLn( Nota );

   { Si la primera nota introducida por el
     usuario es correcta,
el bucle no itera
     ninguna vez. }


   while ( Nota < 0 ) or ( Nota > 10 ) do
      begin
         WriteLn;
         WriteLn( '   ERROR: Nota incorrecta, debe ser >= 0 y <= 10' );
         WriteLn;
         Write( '   Introduzca nota (real): ' );
         ReadLn( Nota )
      end;

   { Mientras que el usuario introduzca una nota
     incorrecta,
el bucle iterara. Y cuando
     introduzca una nota correcta,
el bucle
     finalizara }


   WriteLn;
   if ( Nota >= 5 ) then
      Write( '   APROBADO' )
   else
      Write( '   SUSPENDIDO' )
end.
Programa (.PAS): Calificación según nota

En el programa, el bucle while se ha usado para validar la nota introducida por el usuario. En programación, es muy frecuente usar el bucle while para validar (filtrar) datos. Al bucle que se utiliza para validar uno o más datos, también se le conoce como filtro.


Ejercicios Recomendados:
 Más información
Texto extraído del libro EMPEZAR DE CERO A PROGRAMAR EN PASCAL.
 Contenidos > Apartado siguiente
3.2 Repetitiva repetir...hasta ( la instrucción repeat...until )