10 - Estructura repetitiva while

Hasta ahora hemos empleado estructuras SECUENCIALES y CONDICIONALES. Existe otro tipo de estructuras tan importantes como las anteriores que son las estructuras REPETITIVAS.

Una estructura repetitiva permite ejecutar una instrucción o un conjunto de instrucciones varias veces.

Una ejecución repetitiva de sentencias se caracteriza por:
- La o las sentencias que se repiten.
- El test o prueba de condición antes de cada repetición, que motivará que se repitan o no las sentencias.

Estructura repetitiva while.

Representación gráfica de la estructura while:

estructura repetitiva while en Delphi/Pascal

No debemos confundir la representación gráfica de la estructura repetitiva while (Mientras) con la estructura condicional if (Si)

Funcionamiento: En primer lugar se verifica la condición, si la misma resulta verdadera se ejecutan las operaciones que indicamos por la rama del Verdadero.
A la rama del verdadero la dibujamos en la parte inferior de la condición. Una línea al final del bloque de repetición la conecta con la parte superior de la estructura repetitiva.
En caso que la condición sea Falsa continúa por la rama del Falso y sale de la estructura repetitiva para continuar con la ejecución del algoritmo.

El bloque se repite MIENTRAS la condición sea Verdadera.

Importante: Si la condición siempre retorna verdadero estamos en presencia de un ciclo repetitivo infinito. Dicha situación es un error de programación, nunca finalizará el programa.

Problema 1

Realizar un programa que imprima en pantalla los números del 1 al 100.

Sin conocer las estructuras repetitivas podemos resolver el problema empleando una estructura secuencial. Inicializamos una variable con el valor 1, luego imprimimos la variable, incrementamos nuevamente la variable y así sucesivamente.

Diagrama de flujo:

algoritmo números del 1 al 100 en Delphi/Pascal

Si continuamos con el diagrama veríamos que es casi interminable.
Emplear una estructura secuencial para resolver este problema produce un diagrama de flujo y un programa en Pascal/Delphi muy largo.

Ahora veamos la solución empleando una estructura repetitiva while:

algoritmo números del 1 al 100 while en el lenguaje Delphi/Pascal

Es muy importante analizar este diagrama:
La primera operación inicializa la variable x en 1, seguidamente comienza la estructura repetitiva while y disponemos la siguiente condición x <= 100, se lee MIENTRAS la variable x almacene un valor menor o igual a 100.

Al ejecutarse la condición retorna VERDADERO porque el contenido de x (1) es menor o igual a 100.
Al ser la condición verdadera se ejecuta el bloque de instrucciones que contiene la estructura while. El bloque de instrucciones contiene una salida y una operación.
Se imprime el contenido de x, y seguidamente se incrementa la variable x en uno.

La operación x := x + 1 se lee como "en la variable x se guarda el contenido de x más 1". Es decir, si x contiene 1 luego de ejecutarse esta operación se almacenará en x un 2.

Al finalizar el bloque de instrucciones que contiene la estructura repetitiva se verifica nuevamente la condición de la estructura repetitiva y se repite el proceso explicado anteriormente.

Mientras la condición retorne verdadero se ejecuta el bloque de instrucciones; al retornar falso la verificación de la condición se sale de la estructura repetitiva y continua el algoritmo, en este caso finaliza el programa.

Lo más difícil es la definición de la condición de la estructura while y que bloque de instrucciones se van a repetir. Observar que si, por ejemplo, disponemos la condición x >= 100 ( si x es mayor o igual a 100) no provoca ningún error sintáctico pero estamos en presencia de un error lógico porque al evaluarse por primera vez la condición retorna falso y no se ejecuta el bloque de instrucciones que queríamos repetir 100 veces.

No existe una RECETA para definir una condición de una estructura repetitiva, sino que se logra con una práctica continua solucionando problemas.

Una vez planteado el diagrama debemos verificar si el mismo es una solución válida al problema (en este caso se debe imprimir los números del 1 al 100 en pantalla), para ello podemos hacer un seguimiento del flujo del diagrama y los valores que toman las variables a lo largo de la ejecución:

	x
	1
	2
	3
	4
	.
	.
        100
        101  Cuando x vale 101 la condición de la estructura repetitiva retorna falso, 
             en este caso finaliza el diagrama.

Importante: Podemos observar que el bloque repetitivo puede no ejecutarse ninguna vez si la condición retorna falso la primera vez.
La variable x debe estar inicializada con algún valor antes que se ejecute la operación x := x + 1 en caso de no estar inicializada puede tomar cualquier valor dicha variable.

Proyecto28

program Proyecto28;

{$APPTYPE CONSOLE}

var
  x: Integer;

begin
  x := 0;
  while x <= 100 do
  begin
    Write(x, ' - ');
    x := x + 1;
  end;
  ReadLn;
end.

Recordemos que un problema no estará 100% solucionado si no hacemos el programa, en nuestro caso en el lenguaje Pascal/Delphi que muestre los resultados buscados.

Si ejecutamos nuestro programa, como no requiere entrada de datos por teclado, tendremos una salida por pantalla similar a esta:

salida pantalla estructura repetitiva while Pascal/Delphi

Probemos algunas modificaciones de este programa y veamos que cambios se deberían hacer para:

1 - Imprimir los números del 1 al 500.
2 - Imprimir los números del 50 al 100.
3 - Imprimir los números del -50 al 0.
4 - Imprimir los números del 2 al 100 pero de 2 en 2 (2,4,6,8 ....100).

Respuestas:

1 - Debemos cambiar la condición del while con x<=500.
2 - Debemos inicializar x con el valor 50.
3 - Inicializar x con el valor -50 y fijar la condición x<=0.
4 - Inicializar a x con el valor 2 y dentro del bloque repetitivo incrementar a x en 2 
    ( x := x + 2 )

Problema 2

Escribir un programa que solicite la carga de un valor positivo y nos muestre desde 1 hasta el valor ingresado de uno en uno.
Ejemplo: Si ingresamos 30 se debe mostrar en pantalla los números del 1 al 30.

Es de FUNDAMENTAL importancia analizar los diagramas de flujo y la posterior codificación en Pascal de los siguientes problemas, en varios se presentan otras situaciones no vistas en el ejercicio anterior.

Diagrama de flujo:

estructura repetitiva while
Podemos observar que se ingresa por teclado la variable n. El operador puede cargar cualquier valor.
Si el operador carga 10 el bloque repetitivo se ejecutará 10 veces, ya que la condición es "Mientras x <= n ", es decir "mientras x sea menor o igual a 10"; pues x comienza en uno y se incrementa en uno cada vez que se ejecuta el bloque repetitivo.

A la prueba del diagrama la podemos realizar dándole valores a las variables; por ejemplo, si ingresamos 5 el seguimiento es el siguiente:

n	x
5	1  (Se imprime el contenido de x)
        2	"		"
        3	"		"
        4	"		"
        5	"		"
        6 (Sale del while porque 6 no es menor o igual a 5)

Proyecto29

program Proyecto29;

{$APPTYPE CONSOLE}

var
  n, x: Integer;
begin
  Write('Ingrese el valor final:');
  ReadLn(n);
  x := 1;
  while x <= n do
  begin
    Write(x, '-');
    x := x + 1;
  end;
  ReadLn;
end.

Los nombres de las variables n y x pueden ser palabras o letras (como en este caso)

La variable x recibe el nombre de CONTADOR. Un contador es un tipo especial de variable que se incrementa o disminuye con valores constantes durante la ejecución del programa.
El contador x nos indica en cada momento la cantidad de valores impresos en pantalla.

Problema 3

Desarrollar un programa que permita la carga de 10 valores por teclado y nos muestre posteriormente la suma de los valores ingresados y su promedio.

Diagrama de flujo:

estructura repetitiva while contador y acumulador Pascal/Delphi
En este problema, a semejanza de los anteriores, llevamos un CONTADOR llamado x que nos sirve para contar las vueltas que debe repetir el while.
También aparece el concepto de ACUMULADOR (un acumulador es un tipo especial de variable que se incrementa o disminuye con valores variables durante la ejecución del programa)

Hemos dado el nombre de suma a nuestro acumulador. Cada ciclo que se repita la estructura repetitiva, la variable suma se incrementa con el contenido ingresado en la variable valor.

La prueba del diagrama se realiza dándole valores a las variables:

valor		suma		x 	   promedio
                 0		1
(Antes de entrar a la estructura repetitiva estos son los valores).
 5		 5		2
16		21		3
 7		28		4
10		38		5
 2		40		6
20		60		7
 5		65		8
 5		70		9
10		80	       10
 2		82	       11
				              8

Este es un seguimiento del diagrama planteado. Los números que toma la variable valor dependerá de qué cifras cargue el operador durante la ejecución del programa.
El promedio se calcula al salir de la estructura repetitiva (es decir primero sumamos los 10 valores ingresados y luego los dividimos por 10)

Hay que tener en cuenta que cuando en la variable valor se carga el primer valor (en este ejemplo 5) al cargarse el segundo valor (16) el valor anterior 5 se pierde, por ello la necesidad de ir acumulando en la variable suma los valores ingresados.

Proyecto30

program Proyecto30;

{$APPTYPE CONSOLE}

{$R *.res}
var
  x, suma, valor, promedio: Integer;
begin
  x := 1;
  suma := 0;
  while x <= 10 do
  begin
    Write('Ingrese un valor:');
    ReadLn(valor);
    suma := suma + valor;
    x := x + 1;
  end;
  promedio := suma div 10;
  WriteLn('La suma de los 10 valores es:', suma);
  Write('El promedio de los 10 valores es:', promedio);
  ReadLn;
end.

Problemas propuestos

Ha llegado la parte fundamental, que es el momento donde uno desarrolla individualmente un algoritmo para la resolución de problemas.

El tiempo a dedicar a esta sección EJERCICIOS PROPUESTOS debe ser mucho mayor que el empleado a la sección de EJERCICIOS RESUELTOS.
La experiencia dice que debemos dedicar el 80% del tiempo a la resolución individual de problemas y el otro 20% al análisis y codificación de problemas ya resueltos por otras personas.
Es de vital importancia para llegar a ser un buen PROGRAMADOR poder resolver problemas en forma individual.

  • Escribir un programa que solicite ingresar 10 notas de alumnos y nos informe cuántos tienen notas mayores o iguales a 7 y cuántos menores.
  • Se ingresan un conjunto de n alturas de personas por teclado. Mostrar la altura promedio de las personas.
  • En una empresa trabajan n empleados cuyos sueldos oscilan entre $100 y $500, realizar un programa que lea los sueldos que cobra cada empleado e informe cuántos empleados cobran entre $100 y $300 y cuántos cobran más de $300. Además el programa deberá informar el importe que gasta la empresa en sueldos al personal.
  • Realizar un programa que imprima 25 términos de la serie 11 - 22 - 33 - 44, etc. (No se ingresan valores por teclado)
  • Mostrar todos los múltiplos de 8 que hay hasta el valor 500.
    Debe aparecer en pantalla 8 - 16 - 24, etc.
  • Realizar un programa que permita cargar dos listas de 15 valores cada una. Informar con un mensaje cual de las dos listas tiene un valor acumulado mayor (mensajes "Lista 1 mayor", "Lista 2 mayor", "Listas iguales")
    Tener en cuenta que puede haber dos o más estructuras repetitivas en un algoritmo.
  • Desarrollar un programa que permita cargar n números enteros y luego nos informe cuántos valores fueron pares y cuántos impares.
    Emplear el operador "mod" en la condición de la estructura condicional (este operador retorna el resto de la división de dos valores, por ejemplo 11 mod 2 retorna un 1):
    	if valor mod 2 = 0 then        //Si el if da verdadero luego es par.
    
Solución
program Proyecto31;

{$APPTYPE CONSOLE}

var
  x, nota, conta1, conta2: Integer;

begin
  x := 1;
  conta1 := 0;
  conta2 := 0;
  while x <= 10 do
  begin
    Write('Ingrese nota:');
    ReadLn(nota);
    if nota >= 7 then
    begin
      conta1 := conta1 +1;
    end
    else
    begin
      conta2 := conta2 + 1;
    end;
    x := x + 1;
  end;
  WriteLn('Cantidad de alumnos con notas mayores o iguales a 7:', conta1);
  WriteLn('Cantidad de alumnos con notas menores a 7:', conta2);
  ReadLn;
end.




program Proyecto32;

{$APPTYPE CONSOLE}

var
  altura, suma, promedio: Double;
  n, x: Integer;

begin
  Write('Cuantas personas hay:');
  ReadLn(n);
  x := 1;
  suma := 0;
  while x <= n do
  begin
    Write('Ingrese la altura:');
    ReadLn(altura);
    suma := suma + altura;
    x := x + 1;
  end;
  promedio := suma / n;
  Write('Altura promedio:', promedio:0:2);
  ReadLn;
end.




program Proyecto33;

{$APPTYPE CONSOLE}

var
  n, x, conta1, conta2: Integer;
  sueldo, gastos: Double;

begin
  Write('Cuantos empleados tiene la empresa:');
  ReadLn(n);
  x := 1;
  conta1 := 0;
  conta2 := 0;
  gastos := 0;
  while x <= n do
  begin
    Write('Ingrese el sueldo del empleado:');
    ReadLn(sueldo);
    if sueldo <=300 then
    begin
      conta1 := conta1 + 1;
    end
    else
    begin
      conta2 := conta2 + 1;
    end;
    gastos := gastos + sueldo;
    x := x + 1;
  end;
  WriteLn('Cantidad de empleados con sueldos entre 100 y 300:', conta1);
  WriteLn('Cantidad de empleados con sueldos mayor a 300:', conta2);
  WriteLn('Gastos total de la empresa en sueldos:', gastos:0:2);
  ReadLn;
end.




program Proyecto34;

{$APPTYPE CONSOLE}

var
  termino, x: Integer;

begin
  x := 1;
  termino := 11;
  while x < 25 do
  begin
    Write(termino, ' - ');
    x := x + 1;
    termino := termino + 11;
  end;
  ReadLn;
end.




program Proyecto35;

{$APPTYPE CONSOLE}

var
  mult8: Integer;

begin
  mult8 := 8;
  while mult8 <= 500 do
  begin
    Write(mult8, ' - ');
    mult8 := mult8 + 8;
  end;
  ReadLn;
end.




program Proyecto36;

{$APPTYPE CONSOLE}

var
  valor, x, suma1, suma2: Integer;
begin
  x := 1;
  suma1 := 0;
  WriteLn('Primer lista');
  while x <= 15 do
  begin
    Write('Ingrese valor:');
    ReadLn(valor);
    suma1 := suma1 + valor;
    x := x + 1;
  end;
  x := 1;
  suma2 := 0;
  WriteLn('Segunda lista');
  while x <= 15 do
  begin
    Write('Ingrese valor:');
    ReadLn(valor);
    suma2 := suma2 + valor;
    x := x + 1;
  end;
  if suma1 > suma2 then
  begin
    Write('Lista 1 mayor.');
  end
  else
  begin
    if suma2 > suma1 then
    begin
      Write('Lista 2 mayor');
    end
    else
    begin
      Write('Listas iguales');
    end;
  end;
  ReadLn;
end.




program Proyecto37;

{$APPTYPE CONSOLE}

var
  n, x, valor: Integer;
  pares, impares: Integer;

begin
  x := 1;
  pares := 0;
  impares := 0;
  Write('Cuántos números ingresara:');
  ReadLn(n);
  while x <= n do
  begin
    Write('Ingrese el valor:');
    ReadLn(valor);
    if valor mod 2 = 0 then
    begin
      pares := pares + 1;
    end
    else
    begin
      impares := impares + 1;
    end;
    x := x + 1;
  end;
  WriteLn('Cantidad de pares:', pares);
  WriteLn('Cantidad de impares:', impares);
  ReadLn;
end.