Ejercicios de programación en Pascal (Turbo Pascal)
C/C++/C# HTML Java JavaScript Linux PHP Python Swift
 Inicio Ejercicios Pascal Alternativa múltiple 1 > Solución

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

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.


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.


(Véase el apartad2.3 Alternativa multiple ( la instrucción case ) del Curso de Pascal).
 Páginas relacionadas
  · Solución del ejercicio en pseudocódigo, ordinogramalenguaje C.
  · Instrucción alternativa múltiple (case of) en la sintaxis del Pascal.
  · Listado de ejercicios de programación resueltos en diferentes lenguajes.