TURBO PASCAL

6) Repeat

El Repeat repite el bloque hasta que una condición dada sea verdadera y mientras sea falsa.

Su sintaxis formal es:

Repeat
     <bloque>
Until <cond>;

Una cosa muy interesante del Repeat es que puede manejar un bloque sin Begin ni End;, a diferencia de los demás comandos de Pascal; esto es, se pueden poner tantas líneas de código como se desee entre el Repeat y el Until y todas se repetirán. <cond> es una condición que se estructura de manera similar a la de las condiciones del If; cuando es verdadera, cesa la repetición del bloque.

Nótese que la condición que detiene al Repeat no se revisa sino hasta el final del bloque; por tanto, éste correrá siempre al menos una vez.

Veamos el siguiente ejemplo:

Program Suma;
Uses
     CRT;
Var
     N,num,cont,suma:integer;

Begin
     CLRSCR;
     Write ('¿Cuantos numeros desea ingresar?');
     Readln (N);
     suma:=0;
     cont:=1;
     Repeat
               Write ('Ingrese Numero:');
               Readln (num);
               suma:=suma+num;
               cont:=cont+1;
     Until cont>N;
     Writeln ('La suma total es: ',suma);
     Readln;
End.