pascal

2
ESTRUCTURAS DE SELECCIÓN

Las estructuras condicionales comparan una variable contra otro(s) valor(es), para que en base al resultado de esta comparación, se siga un curso de acción dentro del programa. Cabe mencionar que la comparación se puede hacer contra otra variable o contra una constante, según se necesite.

Los Operadores Relacionales (ver tabla 2.1) permiten realizar lacomparación entre dos expresiones aritméticas con la finalidad de tomar una decisión en función del resultado de dicha comparación; dicho resultado tiene un valor booleano: verdadero ó falso.

Tabla 2.1. Operadores relacionales o de comparación.

Operador
Significado
>
Mayor que
<
Menor que
=
Igual a

Diferente de
>=
Mayor o Igual que
=N2) And (N1>=N3) THEN
          NMayor:=N1;
     IF(N2>=N1) And (N2>=N3) THEN
          NMayor:=N2;
     IF (N3>=N1) And (N3>=N2) THEN
          NMayor:=N3;
     WRITELN ('El numero mayor es: ',NMayor);
     readkey
END.

Estructura Selectiva Doble.

El programa ejecuta las instrucciones verdaderas en el caso de que la condición evaluada sea cierta, en caso contrario el programa ejecuta las instrucciones falsas que se encuentran despuésde la línea ELSE.

IF (condición) THEN
BEGIN
instrucción_verdadera_1;
instrucción_verdadera_2;
...
instrucción_verdadera_n
END
ELSE
BEGIN
instrucción_falsa_1;
instrucción_falsa_2;
...
instrucción_falsa_n
END;

Observe que la instrucción que está antes de la instrucción ELSE no lleva punto y coma “;”. Además se recuerda que si se va a ejecutar una sola instrucción, se puedeomitir las instrucciones BEGIN y END tanto para las instrucciones verdaderas como para las falsas.

Ejemplos de estructura selectiva doble.

Escribir un programa en Pascal que muestre un mensaje afirmativo si el número introducido es múltiplo de 5.

PROGRAM multiplo5;
USES
crt;
VAR
num:Integer;
BEGIN
CLRSCR;
WRITE('Introduzca un numero : '); READLN(num);
IF num mod 5 = 0 THENWRITE('El numero introducido es múltiplo de 5')
ELSE
WRITE('El numero introducido no es múltiplo de 5');
readkey
END.

Estructura Selectiva Múltiple.

En este tipo de estructura se realizan múltiples comparaciones, al final de la estructura se puede colocar un único caso contrario, el cual se ejecutaría en el caso de que las demás condiciones no se hayan cumplido.

IF (condición)THEN
BEGIN
instrucción_1;
instrucción_2;
...
instrucción_verdadera_n;
END
ELSE IF (condición) THEN
BEGIN
instrucción1;
instrucción_2;
...
instrucción_n
END
…

ELSE
BEGIN
instrucción_falsa_1;
instrucción_falsa_2;
...
instrucción_falsa_n
END;

Ejemplo de estructura condicional múltiple.

Escribir un programa en Pascal que detecte si un número introducido desde leteclado es positivo o negativo.

PROGRAM EJER4;
USES
CRT;
VAR
num:INTEGER;
BEGIN
CLRSCR;
WRITE ('Introduzca un numero entero: ');
READLN (num);
IF (num > 0) THEN
WRITE ('El numero es positivo')
ELSE IF (num < 0) THEN
WRITE ('El numero es negativo')
ELSE
WRITE ('El numero no es positivo ninegativo, es 0');
readkey
END.




ESTRUCTURAS ANIDADAS.

Una estructura de control puede ejecutarse dentro de otra, en este caso se dice que son estructuras anidadas, por ejemplo:

Determine el mayor de tres números.

PROGRAM NumMayor;
USES
Crt;
VAR
n1,n2,n3,mayor : integer ;
BEGIN
WRITELN('Escribe tres numeros enteros : ');
READLN(n1,n2,n3);
IF n1>n2 THEN
IF n1>n3 THENmayor:=n1
ELSE
mayor:=n3
ELSE
IF n2>n3 then
mayor:=n2
ELSE
mayor:=n3;
WRITELN('El mayor es ',mayor);
readkey
end.

Ejercicios prácticos de tipo condicional.

Escribir un programa en Pascal que determine si un número leído desde el teclado es par o impar.

PROGRAM EJER3;
USES
CRT;
VAR
num:INTEGER;
BEGIN
CLRSCR;
WRITE (Introduzca un numero entero: ');
READLN (num);...