12 - Estructura repetitiva repeat/until

La sentencia repeat es otra estructura repetitiva, la cual ejecuta al menos una vez su bloque repetitivo, a diferencia del while que podía no ejecutar el bloque.

Esta estructura repetitiva se utiliza cuando conocemos de antemano que por lo menos una vez se ejecutará el bloque repetitivo.
La condición de la estructura está abajo del bloque a repetir, a diferencia del while que está en la parte superior.

Finaliza la ejecución del bloque repetitivo cuando la condición retorna verdadero, es decir en forma inversa al while (repeat/until se lee repetir hasta que sea verdadero)

repeat until pascal/delphi

El bloque de operaciones se repite HASTA que la condición sea Verdadera.
Si la condición retorna Falso el bloque se repite nuevamente.

Es importante analizar y ver que las operaciones se ejecutan como mínimo una vez.

En el lenguaje Pascal/Delphi la estructura repeat la codificamos con la siguiente sintaxis:

repeat
    <Operación(es)>
until <Condición>;

No requiere que las instrucciones estén encerradas en un begin/end, debido que comienza con la palabra "repeat" y finaliza con la palabra "until".

Problema 1

Escribir un programa que solicite la carga de un número entre 0 y 999, y nos muestre un mensaje de cuántos dígitos tiene el mismo.
Finalizar el programa cuando se cargue el valor 0.

Diagrama de flujo:

repeat until pascal/delphi

No hay que confundir los rombos de las estructuras condicionales con los de las estructuras repetitivas repeat.

En este problema por lo menos se carga un valor. Si se carga un valor mayor o igual a 100 se trata de un número de tres cifras, si es mayor o igual a 10 se trata de un valor de dos dígitos, en caso contrario se trata de un valor de un dígito. Este bloque se repite hasta que se ingresa en la variable valor el número 0 con lo que la condición de la estructura repeat retorna verdadero y sale del bloque repetitivo finalizando el programa.

Proyecto51

program Proyecto51;

{$APPTYPE CONSOLE}

var
  valor: Integer;

begin
  repeat
    Write('Ingrese un valor entre 0 y 999 - (Cero para finalizar):');
    ReadLn(valor);
    if valor >= 100 then
    begin
      WriteLn('El numero tiene 3 dígitos');
    end
    else
    begin
      if valor >= 10 then
      begin
        WriteLn('El numero tiene 2 dígitos');
      end
      else
      begin
        WriteLn('El numero tiene 1 dígito');
      end;
    end;
  until valor = 0;
  Write('Fin del programa');
  ReadLn;
end.

La ejecución del programa finaliza cuando en la variable "valor" se ingresa el valor 0, con dicho valor la condición del until retorna verdadero.

Problema 2

Escribir un programa que solicite la carga de números por teclado, obtener su promedio. Finalizar la carga de valores cuando se cargue el valor 0.

Cuando la finalización depende de algún valor ingresado por el operador conviene el empleo de la estructura repeat, por lo menos se cargará un valor (en el caso más extremo se carga 0, que indica la finalización de la carga de valores).

Diagrama de flujo:

repeat until pascal/delphi

Es importante analizar este diagrama de flujo. Definimos un contador cant que cuenta la cantidad de valores ingresados por el operador (no lo incrementa si ingresamos 0).
El valor 0 no es parte de la serie de valores que se deben sumar.
Definimos el acumulador suma que almacena todos los valores ingresados por teclado.

La estructura repetitiva repeat se repite hasta que ingresamos el valor 0. Con dicho valor la condición del until retorna verdadero y continúa con el flujo del diagrama.

Disponemos por último una estructura condicional para el caso que el operador cargue únicamente un 0 y por lo tanto no podemos calcular el promedio ya que no existe la división por 0.

En caso que el contador cant tenga un valor distinto a 0 el promedio se obtiene dividiendo el acumulador suma por el contador cant que tiene la cantidad de valores ingresados antes de introducir el 0.

Proyecto52

program Proyecto52;

{$APPTYPE CONSOLE}

{$R *.res}

var
  suma: Integer;
  cant: Integer;
  valor: Integer;
  promedio: Double;

begin
  suma := 0;
  cant := 0;
  repeat
    Write('Ingrese valor:');
    ReadLn(valor);
    if valor <> 0 then
    begin
      suma := suma + valor;
      cant := cant + 1;
    end;
  until valor = 0;
  if cant <> 0 then
  begin
    promedio := suma / cant;
    Write('El promedio es:', promedio:0:2);
  end
  else
  begin
    Write('No se ingresaron valores');
  end;
  ReadLn;
end.

El contador cant DEBE inicializarse antes del repeat, lo mismo que el acumulador suma.

El promedio se calcula siempre y cuando el contador cant sea distinto a 0.

Problema 3

Realizar un programa que permita ingresar el peso (en gramos) de piezas. El proceso termina cuando ingresamos el valor 0. Se debe informar:
a ) Cuántas piezas tienen un peso entre 98 gr. y 102 gr.?, cuántas con más de 102 gr.? y cuántas con menos de 98 gr.?
b ) La cantidad total de piezas procesadas.

Diagrama de flujo:

repeat until pascal/delphi

Los tres contadores cont1, cont2, y cont3 se inicializan en 0 antes de entrar a la estructura repetitiva.

A la variable suma no se la inicializa en 0 porque no es un acumulador, sino que guarda la suma del contenido de las variables cont1, cont2 y cont3.

La estructura se repite hasta que se ingresa el valor 0 en la variable peso. Este valor no se lo considera un peso menor a 98 gr., sino que indica que ha finalizado la carga de valores por teclado.

Proyecto53

program Proyecto53;

{$APPTYPE CONSOLE}

{$R *.res}

var
  cant1, cant2, cant3: Integer;
  suma: Integer;
  peso: Integer;

begin
  cant1 := 0;
  cant2 := 0;
  cant3 := 0;
  repeat
    Write('Ingrese peso:');
    ReadLn(peso);
    if peso > 102 then
    begin
      cant1 := cant1 + 1;
    end
    else
    begin
      if peso >= 98 then
      begin
        cant2 := cant2 + 1;
      end
      else
      begin
        if peso > 0 then
        begin
          cant3 := cant3 + 1;
        end;
      end;
    end;
  until Peso = 0;
  WriteLn;
  suma := cant1 + cant2 + cant3;
  WriteLn('Piezas con peso superior a 102 gr. :', cant1);
  WriteLn('Piezas con peso superior o igual a 98 gr. y menor o igual a 102 gr.:', cant2);
  WriteLn('Piezas con peso inferior a 98 gr. :', cant3);
  WriteLn;
  WriteLn('Cantidad de piezas procesadas:', suma);
  ReadLn;
end.

Problema 4

Realizar un programa que solicite cargar el nombre de un alumno, sus tres notas, calcule el promedio e imprima alguno de los siguientes comentarios:

Si el promedio < 4 		: ' Reprobado '.
Si promedio>=4 y promedio<7 	: ' Recupera '.
Si el promedio>=7 		: ' Aprobado '.

Imprimir el nombre de los alumnos Aprobados.

El proceso debe repetirse hasta que se conteste 'no' a la pregunta 'Desea ingresar otro juego de notas para procesarlas ?'.

Diagrama de flujo:

repeat until pascal/delphi

Los tres contadores cont1, cont2, y cont3 se inicializan en 0 antes de entrar a la estructura repetitiva.

A la variable suma no se la inicializa en 0 porque no es un acumulador, sino que guarda la suma del contenido de las variables cont1, cont2 y cont3.

La estructura se repite hasta que se ingresa el valor 0 en la variable peso. Este valor no se lo considera un peso menor a 98 gr., sino que indica que ha finalizado la carga de valores por teclado.

Proyecto54

program Proyecto54;

{$APPTYPE CONSOLE}

{$R *.res}

var
  nota1: Integer;
  nota2: Integer;
  nota3: Integer;
  nombre: String;
  opcion: String;
  promedio: Double;

begin
  repeat
    Write('Ingrese el nombre:');
    ReadLn(nombre);
    Write('Primer nota:');
    ReadLn(nota1);
    Write('Segunda nota:');
    ReadLn(nota2);
    Write('Tercer nota:');
    ReadLn(nota3);
    promedio := (nota1 + nota2 + nota3) / 3;
    if promedio >= 7 then
    begin
      WriteLn('Nombre del alumno:', nombre);
      WriteLn('Aprobado');
    end
    else
    begin
      if promedio >= 4 then
      begin
        WriteLn('Recupera');
      end
      else
      begin
        WriteLn('Reprobado');
      end;
    end;
    WriteLn;
    WriteLn;
    Write('Desea ingresar otro juego de notas (si/no) ?');
    ReadLn(opcion);
  Until Opcion = 'no';
end.

Para guardar cadenas de caracteres en Pascal/Delphi debemos definir variables de tipo String:

  nombre: String;
  opcion: String;

Las variables de tipo String también las cargamos con el procedimiento ReadLn:

    Write('Desea ingresar otro juego de notas (si/no) ?');
    ReadLn(opcion);

Los operadores relacionales también funcionan con las variables de tipo String:

  Until Opcion = 'no';

Es importante notar que si se ingresa por teclado en mayúsculas la cadena 'NO' luego el operador = verifica que no son iguales.

Problemas propuestos

  • Realizar un programa que acumule (sume) valores ingresados por teclado hasta ingresar el 9999 (no sumar dicho valor, indica que ha finalizado la carga). Imprimir el valor acumulado e informar si dicho valor es cero, mayor a cero o menor a cero.
  • En un banco se procesan datos de las cuentas corrientes de sus clientes. De cada cuenta corriente se conoce: número de cuenta y saldo actual. El ingreso de datos debe finalizar al ingresar un valor negativo en el número de cuenta.
    Se pide confeccionar un programa que lea los datos de las cuentas corrientes e informe:
    a)De cada cuenta: número de cuenta y estado de la cuenta según su saldo, sabiendo que:
    Estado de la cuenta	'Acreedor' si el saldo es >0.
    			'Deudor' si el saldo es <0.
    			'Nulo' si el saldo es =0.
    
    b) La suma total de los saldos acreedores.
  • Se realizó un censo provincial y se desea procesar la información obtenida en dicho censo.
    De cada una de las personas censadas se tiene la siguiente información: número de documento, edad y genero ('femenino' o 'masculino').
    Se pide confeccionar un programa que lea los datos de cada persona censada (para finalizar ingresar el valor cero en el número de documento) e informar:
    a) Cantidad total de personas censadas.
    b) Cantidad de varones.
    c) Cantidad de mujeres.
    d) Cantidad de varones cuya edad varía entre 16 y 65 años.
Solución
program Proyecto55;

{$APPTYPE CONSOLE}

{$R *.res}

var
  valor: Integer;
  suma: Integer;

begin
  suma := 0;
  repeat
    Write('Ingrese un valor (9999 para finalizar):');
    ReadLn(valor);
    if valor <> 9999 then
    begin
      suma := suma + valor;
    end;
  until valor = 9999;
  WriteLn('El valor acumulado es ', suma);
  if suma = 0 then
  begin
    Write('El valor acumulado es cero.');
  end
  else
  begin
    if suma > 0 then
    begin
      Write('El valor acumulado es positivo.');
    end
    else
    begin
      Write('El valor acumulado es negativo');
    end;
  end;
  ReadLn;
end.




program Proyecto56;

{$APPTYPE CONSOLE}

{$R *.res}

var
  suma: Double;
  cuenta: Integer;
  saldo: Double;

begin
  suma := 0;
  repeat
    Write('Ingrese numero de cuenta (nro negativo para finalizar):');
    ReadLn(cuenta);
    if cuenta >=0 then
    begin
      Write('Ingrese saldo:');
      ReadLn(saldo);
      if saldo > 0 then
      begin
        WriteLn('Saldo acreedor');
        suma := suma + saldo;
      end
      else
      begin
        if saldo < 0 then
        begin
          WriteLn('Saldo deudor');
        end
        else
        begin
          WriteLn('Saldo nulo');
        end;
      end;
    end;
  until cuenta<0;
  WriteLn('Total de saldos Acreedores:', suma:0:2);
  ReadLn;
end.




program Proyecto57;

{$APPTYPE CONSOLE}

{$R *.res}

var
  documento: Integer;
  edad: Integer;
  genero: String;
  cantidad: Integer;
  cantvarones: Integer;
  cantmujeres: Integer;
  varones16y65: Integer;

begin
  cantidad := 0;
  cantvarones := 0;
  cantmujeres := 0;
  varones16y65 := 0;
  repeat
    Write('Ingrese número de documento (0 para finalizar):');
    ReadLn(documento);
    if documento <> 0 then
    begin
      cantidad := cantidad + 1;
      Write('Ingrese la edad:');
      ReadLn(edad);
      Write('Ingrese el gégenro (masculino/femenino):');
      ReadLn(genero);
      if genero = 'masculino' then
      begin
        cantvarones := cantvarones + 1;
        if (edad >= 16) and (edad <= 65) then
        begin
          varones16y65 := varones16y65 + 1;
        end;
      end
      else
      begin
        cantmujeres := cantmujeres + 1;
      end;
    end;
  until documento = 0;
  WriteLn;
  WriteLn('Cantidad total de personas censadas:', cantidad);
  WriteLn('Cantidad de varones:', cantvarones);
  WriteLn('Cantidad de mujeres:', cantmujeres);
  WriteLn('Cantidad de varones cuya edad varía entre 16 y 65 años:', varones16y65);
  ReadLn;
end.