Solución del Ejercicio 2 - Habitaciones de una casa rural (Alternativa múltiple - Pascal)

Búsqueda personalizada

Ejercicios de programación en Pascal (Turbo Pascal)

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

program AAM12021;

uses Crt;

var Numero : Integer;

begin
ClrScr;
   WriteLn( 'Listado de habitaciones:' );
   WriteLn;
   WriteLn( '1. Azul' );
   WriteLn( '2. Roja' );
   WriteLn( '3. Verde' );
   WriteLn( '4. Rosa' );
   WriteLn( '5. Gris' );
   WriteLn;
   Write( 'Introduzca numero de habitacion: ' );
   ReadLn( Numero );

   case Numero of
      1 : Write( 'La Azul tiene 2 cama/s y esta en la primera planta.' );
      2 : Write( 'La Roja tiene 1 cama/s y esta en la primera planta.' );
      3 : Write( 'La Verde tiene 3 cama/s y esta en la segunda planta.' );
      4 : Write( 'La Rosa tiene 2 cama/s y esta en la segunda planta.' );
      5 : Write( 'La Gris tiene 1 cama/s y esta en la tercera planta.' )
      else
         Write( 'ERROR: ', Numero,
' no esta asociado a ninguna habitacion.' )
   end;
end.

Programa (.PAS): Habitaciones de una casa rural (Solución 1)

Una segunda solución es:

program AAM12022;

uses Crt;

var
   Nombre : string [5];
   Planta : string [7];
   Numero, Camas : Integer;

begin
ClrScr;
   WriteLn( 'Listado de habitaciones:' );
   WriteLn;
   WriteLn( '1. Azul' );
   WriteLn( '2. Roja' );
   WriteLn( '3. Verde' );
   WriteLn( '4. Rosa' );
   WriteLn( '5. Gris' );
   WriteLn;
   Write( 'Introduzca numero de habitacion: ' );
   ReadLn( Numero );

   case Numero of
      1 : begin
             Nombre := 'Azul';
             Camas := 2;
             Planta := 'primera';
          end;
      2 : begin
             Nombre := 'Roja';
             Camas := 1;
             Planta := 'primera';
          end;
      3 : begin
             Nombre := 'Verde';
             Camas := 3;
             Planta := 'segunda';
          end;
      4 : begin
             Nombre := 'Rosa';
             Camas := 2;
             Planta := 'segunda';
          end;
      5 : begin
             Nombre := 'Gris';
             Camas := 1;
             Planta := 'tercera';
          end
   end;

   if ( Numero >= 1 ) and ( Numero <= 5 ) then
      Write( 'La ', Nombre, ' tiene ', Camas, ' cama/s y esta en la ',
             Planta, ' planta.' )
   else
      Write( 'ERROR: ', Numero,
   ' no esta asociado a ninguna habitacion.' );
end.

Programa (.PAS): Habitaciones de una casa rural (Solución 2)

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