turbo pascal

APUNTE TURBO PASCAL PARTE 2
CICLOS REPETITIVOS EN TURBO PASCAL

Ciclo FOR TO DO
El ciclo FOR repite una sentencia un determinado número de veces que se indica al momento de
llamar al ciclo.
Loque hace FOR es que incrementa una variable en uno desde un valor inicial hasta un valor final ejecutando en cada
incremento la sentencia que se quiere repetir. Su sintaxis es:
FOR identificador :=inicio TO fin DO instrucción;
Donde el identificador es la variable que se incrementará, inicio es el primer valor que tendrá dicha variable y fin es el
valor hasta el cual se incrementará la misma;instrucción es la sentencia (sencilla o compuesta) que se ejecutará en
cada incremento de la variable.
EJEMPLO
escribe los números del 1 al 50 en pantalla.

La variable utilizada es "Numero".PROGRAM Ciclo_FOR;
VAR
Numero : Integer;
BEGIN
FOR Numero := 1 to 50 DO
WriteLn(Numero);
END.
Una de las limitaciones de los ciclos FOR es que una vez iniciado el ciclo se ejecutará el número deveces predefinido
sin posibilidad de agregar o eliminar ciclos.
Es posible hacer que un ciclo cuente hacia atrás, es decir que la variable en lugar de incrementarse se decremente.
Para estocambiamos la palabra TO por DOWNTO, y colocamos el valor mayor a la izquierda y el menor a la derecha.
Ejemplo:
PROGRAM Ciclo_FOR_2;
VAR
Numero : Integer;
BEGIN
FOR Numero := 50 DOWNTO 1 DOWriteLn(Numero);
END.

EJEMPLO
Codigo prog4.pas
program prog4;
uses crt;
var
x:integer;
begin
clrscr;
for x:= 1 to 5 do
begin
gotoxy(10,4+x);write(x,' tecnologico');
end;
readln;
end.Ejecución:

Una de las desventajas del ciclo FOR TO/DOWN es que hasta que no se hallan ejecutado el número determinado de
repeticiones no se detiene el ciclo.

WHILE... DO
La instrucción WHILE... DO(que en español traduce: Mientras que... Haga), permite ejecutar una serie de sentencias
un número indeterminado de veces hasta que se cumpla con una condición establecida, aunque también se puede...