Lección 018: Enumerados

Ejercicio 1: Consideren la siguiente declaración:

Código:

TYPE color = (rojo, blanco, azul, purpura);
VAR
   coloracion : color;

Determinen cuáles de los siguientes fragmentos de código son válidos justificando la respuesta:

a)

Código:

Read (rojo);
WriteLn (rojo);

b)

Código:

Read (coloracion);
Write (coloracion);

c)

Código:

coloracion := blanco;
WriteLn (coloracion);

d)

Código:

coloracion := blanco;
CASE coloracion OF
   rojo : WriteLn ('rojo');
   blanco : WriteLn ('blanco');
   azul : WriteLn ('azul');
   purpura: WriteLn ('purpura')
END;

e)

Código:

coloracion := azul;
CASE coloracion OF
   rojo : WriteLn (rojo);
   blanco : WriteLn (blanco);
   azul : WriteLn (azul);
   purpura: WriteLn (purpura)
END;

f)

Código:

IF coloracion = azul THEN
   WriteLn ('azul')
ELSE
   WriteLn ('no azul')

=========================================================================

Ejercicio 2: Determinen cuales de las siguientes declaraciones son válidas:

a)

Código:

TYPE letra = ('X', 'Y', 'Z');

b)

Código:

TYPE lenguaje = (Pascal, Fortran, Basic);

c)

Código:

TYPE materias = (matematicas, historia, computacion, biologia);

Código:

carrera = (matematicas, computacion);

d)

Código:

TYPE estado = (residente, ciudadano, extranjero);

Código:

nacionalidad = (americano, europeo, africano, asiatico, otra);

e)

Código:

TYPE codigo = (1, 2, 3, 4, 5);

f)

Código:

TYPE codigo = (c1, c2, c3, c4, c5);

g)

Código:

TYPE estado = (soltera, casada, comprometida, divorciada);
VAR type : estado;

h)

Código:

TYPE ciudad = (Paysandu, SanJose, Tacuarembo, Canelones);
VAR ciudad : type;

i)

Código:

VAR ciudad : (Rivera, Salto, Soriano, Rocha);

j)

Código:

PROCEDURE encontrar (VAR ciudad : (Minas, Florida, Flores));

k)

Código:

TYPE trabajo = (obrero, oficinista, indefinido);
. . .
PROCEDURE buscar (VAR empleo : trabajo);

=========================================================================

Ejercicio 3: Es posible definir subrangos de enumerados ya que estos últimos corresponden a un tipo ordinal. Examinen estas declaraciones:

Código:

TYPE tipodia = (Lunes, Martes, Miercoles, Jueves, Viernes, Sabado, Domingo);
VAR dia : tipodia;
      laborable : Lunes..Viernes;
      finsemana : Sabado..Domingo;

Indiquen cuál de las siguientes afirmaciones es correcta:

• Se producirá un error de ejecución si se asigna el valor Martes a findesemana
  
• Se producirá un error de ejecución si se asigna el valor Viernes a laborable.
  

=========================================================================

Ejercicio 4: Examinen la siguiente definición :

Código:

TYPE raro = (gugol, nudol, brudol, cudol, zudol, budol);

Determinen el valor de las siguientes expresiones:

Código:

1. ord (gugol)
2. ord (zudol)
3. succ (brudol)
4. succ (budol)
5. pred (gugol)
6. ord (succ (zudol))


=========================================================================

Ejercicio 5: Obtengan el valor de las siguientes expresiones:

1. ord ('7') - ord ('0')
2. ord ('1') - ord ('1')
3. chr (3 + ord ('0'))
4. chr (0 + ord ('0'))

=========================================================================

Ejercicio 6: Examinen la siguiente declaración:

Código:

TYPE vocal = (a, e, i, o, u);
VAR letra : vocal;
      uncar : char;


Determinen si se ejecutará sin error el siguiente código en PASCAL:

Código:


letra := a;
WHILE letra <= u DO
BEGIN
Read (uncar);
WriteLn (`El caracter capturado es ', uncar);
letra := succ (letra)
END
letra := u;
REPEAT
Read (uncar);
WriteLn (`El caracter capturado es ', uncar);
letra := pred (letra)
UNTIL letra = a

=========================================================================

Navegación:

• Ir al índice del curso.
  
• Ir al índice de ejercicios de Pascal.