Solución del Ejercicio 1 - Suma o multiplicación de dos números (Anidamiento de alternativas - Pascal)

Búsqueda personalizada

Ejercicios de programación en Pascal (Turbo Pascal)

Inicio > Ejercicios > Pascal > Anidamiento de alternativas > 1 > Solución

program AAA12011;

uses Crt;

var A, B, Suma, Multiplicacion : Integer;

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

   Suma := A + B;
   Multiplicacion := A * B;

   if ( Suma > Multiplicacion ) then
      Write( 'LA SUMA ES MAYOR.' )
   else

      { Inicio del anidamiento }
      if ( Multiplicacion > Suma ) then
         Write( 'LA MULTIPLICACION ES MAYOR.' )
      else
         Write( 'LA SUMA Y MULTIPLICACION SON IGUALES.' );
      { Fin del anidamiento }
end.

Programa (.PAS): Suma o multplicación de dos números (Solución 1)

Una segunda solución es:

program AAA12012;

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 > A * B ) then
      Write( 'LA SUMA ES MAYOR.' )
   else

      { Inicio del anidamiento }
      if ( A * B > A + B ) then
         Write( 'LA MULTIPLICACION ES MAYOR.' )
      else
         Write( 'LA SUMA Y MULTIPLICACION SON IGUALES.' );
      { Fin del anidamiento }
end.

Programa (.PAS): Suma o multiplicación de dos números (Solución 2)

(Véase el apartado 2.4 Anidamiento del Curso de Pascal).