Ejercicios ADA Procesos – Hoja2

Ejercicios de Programación de Servicios y Procesos en ADA, implementando los algoritmos de:

Algoritmo de Peterson (Tie-breaker algorithm)
Algoritmo con turno de espera (Ticket algorithm)
Algoritmo de la panadería (Bakery algorithm)
Semáforos, semáforos binarios
El problema de los filósofos
El problema de los lectores y los escritores

--| 07/11/2012
--| IMPLEMENTACIÓN SEMAFORO



package body tSemaforo is


	-- Implementacion de la tarea semaforo:
	task body Semaforo is
		elValor:Natural := valorInicial;
	begin
		loop
			select
				when elValor > 0 =>
					accept wait do
						elValor := elValor - 1;
					end wait;
				or
					accept send do
						elValor := elValor + 1;
					end send;
				or
					terminate;
			end select;
		end loop;
	end semaforo;
	
		
end tSemaforo;

--| 07/11/2012

--| IMPLEMENTACIÓN SEMAFORO

package body tSemaforo is

-- Implementacion de la tarea semaforo:

task body Semaforo is

elValor:Natural := valorInicial;

begin

loop

select

when elValor > 0 =>

accept wait do

elValor := elValor - 1;

end wait;

accept send do

elValor := elValor + 1;

end send;

terminate;

end select;

end loop;

end semaforo;

end tSemaforo;

L	M	X	J	V	S	D
					1	2
3	4	5	6	7	8	9
10	11	12	13	14	15	16
17	18	19	20	21	22	23
24	25	26	27	28	29	30
31

el blog de giltesa

Ejercicios ADA Procesos – Hoja2

Related Posts

Escriba aquí su comentarioCancelar respuesta

Archivos

Calendario

Meta