Solución del Ejercicio 1 - Número del dado (Alternativa múltiple - Pascal)

Búsqueda personalizada

Ejercicios de programación en Pascal (Turbo Pascal)

Inicio > Ejercicios > Pascal > Alternativa múltiple > 1 > Solución

program AAM12011;

uses Crt;

var Numero : Integer;

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

   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".' )
      else
         Write( 'ERROR: Numero incorrecto.' )
   end;
end.

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

Una segunda solución es:

program AAM12012;

uses Crt;

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

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

   case Numero of
      1 : Letras := 'seis';
      2 : Letras := 'cinco';
      3 : Letras := 'cuatro';
      4 : Letras := 'tres';
      5 : Letras := 'dos';
      6 : Letras := 'uno'
   end;

   if ( Numero >= 1 ) and ( Numero <= 6 ) then
      Write( 'En la cara opuesta esta el "', Letras, '".' )
   else
      Write( 'ERROR: Numero incorrecto.' )
end.

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

(Véase el apartado 2.3 Alternativa multiple ( la instrucción case ) del Curso de Pascal).