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. 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).

Páginas relacionadas   · Solución del ejercicio en pseudocódigo, ordinograma y lenguaje C.   · Curso de Pascal   · Instrucción alternativa múltiple (case of) en la sintaxis del Pascal.   · Listado de ejercicios de programación resueltos en diferentes lenguajes.