TURBO PASCAL CONDICIONAL

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 la comparaciónentre 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
<=
Menor o Igual que

Las condiciones pueden ser compuestas o complejas apartir de varias condiciones simples mediante el uso de los operadores lógicos.

Tabla 2.2. Operadores lógicos.

Operador
Significado
AND
Y Lógico
OR
O Lógico
NOT
Negación Lógica

Los resultados de evaluar una condición compuesta para el operador AND y para el operador OR se muestra en las siguientes tablas:

Tabla 2.3. Operador AND y OR.

P
Q
P AND Q
P OR Q
F
F
F
F
F
V
F
V
V
F
F
V
V
V
V
V

Entanto que para el operador NOT.

Tabla 2.4. Operador NOT.

P
NOT P
F
V
V
F

Estructura Selectiva Simple.

La sentencia de control simple en lenguaje Turbo Pascal, tiene la siguiente sintaxis en forma general:

IF (condición) THEN
BEGIN
instrucción1;
instrucción 2;
….
END;

Si se va a ejecutar una sola instrucción, se puede omitir las instrucciones BEGIN y END.

El programa ejecuta las instruccionesen el caso de que la condición evaluada sea cierta, en caso contrario el programa ejecuta la línea siguiente a la instrucción END.

Por ejemplo:

Dados dos números, realizar la operación aritmética según los símbolos +, -, *, /.

PROGRAM operaciones;
USES
crt;
VAR
op1,op2,res:real;
operador: char;
BEGIN
clrscr;
WRITE('introduzca operando1:');
READLN(op1);WRITE('operador:');
READLN(operador);
WRITE('introduzca operando2:');
READLN(op2);
IF operador='+' THEN
res:=op1+op2;
IF operador='-' THEN
res:= op1-op2;
IF operador='*' THEN
res:=op1*op2;
IF operador='/' THEN
res:=op1/op2;
WRITE('resultado=',res:0:2);
readkey
END.

Determine el mayor de tres números.

PROGRAM mayor;
USES
     CRT;
VAR
    N1,N2,N3,NMayor:integer;
BEGIN
     clrscr;
     WRITE ('Ingrese primer número: ');
     READLN (N1);
     WRITE ('Ingrese segundo número: ');
     READLN (N2);
     WRITE ('Ingrese tercer número: ');
     READLN (N3);
     IF (N1>=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és de la línea ELSE.

IF (condición) THEN
BEGIN
instrucción_verdadera_1;
instrucción_verdadera_2;
...
instrucción_verdadera_nEND
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 puede omitir 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 THEN
WRITE('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....