Examen Resuelto Ada 95

EXAMEN DE SISTEMAS INFORMÁTICOS A TIEMPO REAL
Fecha: 25 de Junio de 2009 Tiempo máximo: 2 horas y media No está permitido el uso de apuntes ni calculadora durante el examen. Cuestión 1: (1'5 p.)Comenta cual es la diferencia entre los dos siguientes fragmentos de código.
select accept A; B; or accept C; end select; select accept A do B; end A; or accept C; end select;

Solución: En el segundocódigo, la tarea cliente que invoca el servicio A queda suspendida hasta que termine de ejecutarse el procedimiento B, ya que es una cita extendida. No así en el primer fragmento de código, donde elcliente continua independientemente de lo que dure la ejecución del procedimiento B. Cuestión 2: (2'25 p.) Tenemos un taller de costura, dedicado a hacer jerséis. Una persona está continuamentefabricando mangas, que va depositando en un cesto. El cesto tiene una capacidad limitada: cuando se llena, la costurera deja de coser más mangas hasta que hay hueco libre. Otra persona está continuamentefabricando los cuerpos de los jerséis, que también deposita en su correspondiente cesta de capacidad limitada. Una tercera persona se encarga continuamente de ensamblar jerséis, cogiendo en cada casodos mangas de la cesta de mangas y un cuerpo de la cesta de cuerpos. El siguiente código implementa el enunciado anteriormente descrito:
with gnat.io; use gnat.io; num_max_mangas: constant integer:=10; num_max_cuerpos: constant integer :=7; num_mangas: integer:=0; num_cuerpos: integer:=0; task mangas; task body mangas is begin loop while (Num_Mangas > Num_Max_Mangas-1) loop Put_Line("Cesto demangas lleno"); delay 1.4; end loop; Put_Line("He hecho una manga"); Num_Mangas := Num_Mangas +1; delay 2.1; end loop; end mangas; 1

EXAMEN DE SISTEMAS INFORMÁTICOS A TIEMPO REAL
task cuerpo; taskbody cuerpo is begin loop while (Num_Cuerpos > Num_Max_Cuerpos-1) loop Put_Line("Cesto de mangas lleno"); delay 1.5; end loop; Put_Line("He hecho un cuerpo"); num_cuerpos := num_cuerpos +1; delay 2.0;...