Slajd5

Alg. Dekkera - Pierwsza

1: Czyja_kolej:Integer := 1;

2: task body Pl is 3: begin 4:    loop

5:    Sekcj a_lo kalna_l;

6:    loop

7:    if Czyja_kolej = 1 then exit;

8:    end loop;

9:    Sekcja_krytyczna_l;

10:    Czyja_kolej :=2;

11:    end    loop;

12: end Pl;

13: task body P2 is 14: begin 15:    loop

16:    Sekcj a_lo kalna_2;

17:    loop

18:    if Czyja_kolej = 2 then exit;

19:    end loop;

20:    Sekcj a_krytyc zna_2;

21:    Czyja_kolej :=1;

22:    end    loop;

23: end P2;

Dziedziny zastosowań . Wzajemne wyklućzanie. 5