Turbo pascal
7)Repeat
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.
Descargar gratis los programas y compiladores necesarios para aprender a programar
¿Buscas algo?