pagina web

Instrucciones de control alternativas 
Alternativa doble ( la instrucción if )
En Pascal, para escribir una instrucción alternativa doble se utiliza la sintaxis


   if  then
      begin
         
      end
   else
      begin
         
      end
 

A la  de una instrucción alternativa doble también se le denomina condición.

Para que se ejecute el , la condición tiene queser verdadera. Por el contrario, si la condición es falsa, se ejecutará el. 

En resumen, una instrucción alternativa doble (o simplemente alternativa doble) permite seleccionar, por medio de una condición, el siguiente bloque deinstrucciones a ejecutar, de entre dos posibles.

Ejemplo: Se quiere escribir un programa que:


1º) Pida por teclado la nota (dato real) de una asignatura.
2º)Muestre por pantalla:
"APROBADO", en el caso de que la nota sea mayor o igual que 5.
"SUSPENDIDO", en el caso de que la nota sea menor que 5.
De modo que, por pantalla se verá, por ejemplo:


Introduzca nota (real): 7.5

   APROBADO

 

Otra posibilidad es:
Cuando un bloque de instrucciones sólo contiene una instrucción, las palabras reservadas begin y end, que enmarcan dicho bloque, sonopcionales. También hay que tener en cuenta que, antes de la palabra reservada else, jamás se puede escribir un punto y coma (;). Por tanto, en Pascal, para resolver el problema del ejemplo se puede escribir:


program EJE12021;

uses Crt;

var Nota : Real;

begin
   ClrScr;
   GotoXY( 4, 2 );
   Write( 'Introduzca nota (real): ' );
   Read( Nota );

   GotoXY( 4, 4 );
   if (Nota >= 5 ) then
      Write( 'APROBADO' )
   else
      Write( 'SUSPENDIDO' )
end.
Programa (.PAS): 


Cuando en el código fuente de un programa existe una condición de la cual depende que a continuación se ejecuten unas instrucciones u otras, se dice que existe una bifurcación.

Ejercicio 1 - Suma de dos números (Alternativa doble - Pascal)

Escribir un programa (en Pascal) que:1º) Pida por teclado dos números (datos enteros).
2º) Calcule la suma de los números introducidos por el usuario.
3º) Muestre por pantalla:
"LA SUMA SÍ ES MAYOR QUE CERO.", en el caso de que sí lo sea.
"LA SUMA NO ES MAYOR QUE CERO.", en el caso de que no lo sea.
En pantalla:

Introduzca primer número (entero): 14
Introduzca segundo número (entero): -17
LA SUMA NO ES MAYOR QUE CERO.

 Solución del Ejercicio 1 - Suma de dos números (Alternativa doble - Pascal)


program AAD12011;

uses Crt;

var A, B, Suma : Integer;

begin
   ClrScr;
   Write( 'Introduzca primer numero (entero): ' );
   ReadLn( A );
   Write( 'Introduzca segundo numero (entero): ' );
   ReadLn( B );

   Suma := A + B;

   if ( Suma > 0 ) then
      Write( 'LA SUMA SI ES MAYOR QUE CERO.' )   else
      Write( 'LA SUMA NO ES MAYOR QUE CERO.' );
end.

program AAD12012;

uses Crt;

var A, B : Integer;

begin
   ClrScr;
   Write( 'Introduzca primer numero (entero): ' );
   ReadLn( A );
   Write( 'Introduzca segundo numero (entero): ' );
   ReadLn( B );

   if ( A + B > 0 ) then
      Write( 'LA SUMA SI ES MAYOR QUE CERO.' )
   else
      Write( 'LA SUMA NO ESMAYOR QUE CERO.' );
end.
Una segunda solución es:


Ejercicio 2 - Número intermedio (Alternativa doble - Pascal)

Escribir un programa (en Pascal) que:


1º) Pida por teclado tres números (datos enteros): , y .
2º) Muestre por pantalla:
" SI ES MENOR QUE Y MAYOR QUE ", en el caso de que sí lo sea.
" NO ES MENOR QUE Y MAYOR QUE ", en el caso de que no lo sea.
En pantalla:Introduzca primer número (entero): 6
Introduzca segundo número (entero): 9
Introduzca tercer número (entero): 22
9 SÍ ES MENOR QUE 22 Y MAYOR QUE 6

 


Introduzca primer número (entero): 15
Introduzca segundo número (entero): 7
Introduzca tercer número (entero): 8
7 NO ES MENOR QUE 8 Y MAYOR QUE 15

 



Solución del Ejercicio 2 - Número intermedio (Alternativa doble - Pascal)...