Sentencias compuestas

Make your own free website on Tripod.com

Sentencias compuestas

Sentencias compuestas

Sentencias repetitivas

Ciclos FOR

Ciclos WHILE

Ciclos REPEAT-UNTIL

Bifurcaciones condicionales

IF...THEN...ELSE

IF anidados

CASE

Bifurcaciones incondicionales

GOTO

HALT

Sentencias compuestas

Las sentencias compuestas son grupos de sentencias, separadas cada una por un punto y coma ";" que son tratadas como una sola sentencia.

Para identificar una sentencia compuesta de un grupo sucesivo de sentencias se encierran entre las palabras reservadas BEGIN y END. Uno de los ejemplos más claros de una sentencia compuesta es el cuerpo de un programa principal en Turbo Pascal, el lenguaje toma todo lo que existe entre estas dos sentencias como un solo elemento a ejecutarse aún cuando contenga varias instrucciones o sentencias:

PROGRAM Prueba;

BEGIN

WriteLn('Primera linea de una sentencia compuesta');

WriteLn('Segunda linea de una sentencia compuesta');

WriteLn('Tercera linea de una sentencia compuesta');

END.

El punto y coma que se encuentra antes de la palabra reservada END puede ser suprimido sin afectar a la compilación. En ocasiones es necesario repetir un determinado número de veces la ejecución de una sentencia, ya sea sencilla o compuesta, para realizar esta tarea Turbo Pascal cuenta con instrucciones específicas para el tipo de repetición que se requiera.

Ciclos FOR

El ciclo FOR repite una sentencia un determinado número de veces que se indica al momento de llamar al ciclo.

Lo que 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.

El siguiente 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 de veces 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 ésto cambiamos 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 DO

WriteLn(Numero);

END.

Ciclos WHILE

Los ciclos WHILE ofrecen la ventaja de que la ejecución se realiza mientras se cumpla una condición, por lo tanto es posible controlar el número de repeticiones una vez iniciado el ciclo. Su sintaxis es:

WHILE condición DO instrucción

Donde condición es la condición que se evaluará, mientras ésta sea verdadera se ejecutará la instrucción, que es una sentencia simple o compuesta.

Un programa que escriba los números del 1 al 50, utilizando el ciclo WHILE se vería como sigue:

PROGRAM Ciclo_WHILE;

VAR

Numero : Integer;

BEGIN

Numero := 1;

WHILE Numero <= 50 DO

BEGIN

WriteLn (Numero);

Numero := Numero +1;

END;

END.

Al final del programa la variable Numero guardará el valor 51, que fué el valor que no cumplió con la condición establecida en el ciclo WHILE.

Escribir un programa en Pascal que realice un bucle con While y muestre

en pantalla del 1 al 10.

PROGRAM EJER42;

USES CRT;

VAR x:INTEGER;

BEGIN

x:=0;

ClrScr;

WHILE X <= 10 DO

BEGIN

WRITELN (x);

x:=x+1;

END;

END.

Escribir un programa en Pascal que realice un bucle con Repeat y muestre

en pantalla del 1 al 10.

PROGRAM EJER43;

USES CRT;

VAR x:INTEGER;

BEGIN

x:=0;

ClrScr;

REPEAT

WRITELN (x);

x:=x+1;

UNTIL x=10;

END.

Escribir un programa en Pascal que realice un bucle con For y muestre en

pantalla del 1 al 10.

PROGRAM EJER44;

USES CRT;

VAR x:INTEGER;

BEGIN

ClrScr;

FOR x:=0 TO 10 DO

WRITELN (x);

END.

Escribir un programa en Pascal que visualice en pantalla los números

pares entre 1 y 25.

PROGRAM EJER45;

USES CRT;

VAR num:INTEGER;

BEGIN

num:=2;

ClrScr;

REPEAT

WRITELN (num);

num:= num + 2;

UNTIL num= 26;

END.

PROGRAM EJER45;

USES

...