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