Solución del Ejercicio 2 - Número del dado (Anidamiento de alternativas - Pascal)

Búsqueda personalizada

Ejercicios de programación en Pascal (Turbo Pascal)

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

program AAA12021;

uses Crt;

var Numero : Integer;

begin
ClrScr;
   Write( 'Introduzca numero del dado: ' );
   ReadLn( Numero );

   if ( Numero >= 1 ) and ( Numero <= 6 ) then

   { Solo si el numero es valido, se ejecuta la
   instruccion alternativa multiple }

      { Inicio del anidamiento }
      case Numero of
         1 : Write( 'En la cara opuesta esta el "seis".' );
         2 : Write( 'En la cara opuesta esta el "cinco".' );
         3 : Write( 'En la cara opuesta esta el "cuatro".' );
         4 : Write( 'En la cara opuesta esta el "tres".' );
         5 : Write( 'En la cara opuesta esta el "dos".' );
         6 : Write( 'En la cara opuesta esta el "uno".' )
      end
      { Fin del anidamiento }

   else
      Write( 'ERROR: Numero incorrecto.' );
end.

Programa (.PAS): Número del dado (Solución 1)

Una segunda solución es:

program AAA12022;

uses Crt;

var
   Letras : string [6];
   Numero : Integer;

begin
ClrScr;
   Write( 'Introduzca numero del dado: ' );
   ReadLn( Numero );

   if ( Numero >= 1 ) and ( Numero <= 6 ) then
      begin
      { Solo si el numero es valido, se ejecuta la
      instruccion alternativa multiple }

         { Inicio del anidamiento }
         case Numero of
            1 : Letras := 'seis';
            2 : Letras := 'cinco';
            3 : Letras := 'cuatro';
            4 : Letras := 'tres';
            5 : Letras := 'dos';
            6 : Letras := 'uno'
         end;
         { Fin del anidamiento }

         Write( 'En la cara opuesta esta el "', letras, '".' );
      end
   else
      Write( 'ERROR: Numero incorrecto.' );
end.

Programa (.PAS): Número del dado (Solución 2)

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