Slajd9

Alg. Dekkera - Trzecia próba

1:    KI, K2 :integer := 1;

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

5:    Sekcj a_lo kalna_l ;

6:    KI:=0 ;

7:    loop

8:    If K2 = 1 then exit ;

9:    end loop;

10:    Sekcj a_krytyc zna_l ;

11:    KI:=1;

12:    end    loop;

13: end Pl;

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

17:    Sekcj a_lo kalna_2;

18:    K2:=0;

19:    loop

20:    if KI = 1 then exit;

21:    end loop;

22:    Sekcj a_krytyc zna_2;

23:    K2:=1;

24:    end    loop;

25: end P2;

Dziedziny zastosowań . Wzajemne wyklućzanie. 9