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

Búsqueda personalizada

Ejercicios de programación en Pascal (Turbo Pascal)

Inicio > Ejercicios > Pascal > Alternativa doble > 1 > Solución

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.

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

Una segunda solución es:

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 ES MAYOR QUE CERO.' );
end.

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

(Véase el apartado 2.1 Alternativa doble ( la instrucción if ) del Curso de Pascal).