virtualword
Te invitamos a registrarte para poder acceder a todo el contenido gratuito que esta comunidad provee.

Saludos Wink

Unirse al foro, es rápido y fácil

virtualword
Te invitamos a registrarte para poder acceder a todo el contenido gratuito que esta comunidad provee.

Saludos Wink
virtualword
¿Quieres reaccionar a este mensaje? Regístrate en el foro con unos pocos clics o inicia sesión para continuar.

Lección 018: Enumerados

Ir abajo

Lección 018: Enumerados Empty Lección 018: Enumerados

Mensaje  Kyshuo Ayame Sáb Sep 21, 2013 5:16 pm

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:
Kyshuo Ayame
Kyshuo Ayame
Admin

Mensajes : 105
Fecha de inscripción : 14/11/2012
Edad : 35

https://virtualworld.foroargentina.net

Volver arriba Ir abajo

Volver arriba

- Temas similares

 
Permisos de este foro:
No puedes responder a temas en este foro.