Slajd7

Alg. Dekkera - Druga próba

1:    Kl, K2 :Integer := 1;

2:    task body PI is

3: begin 4:    loop

5:    Sekcja_lokalna_l ;

6:    loop

7:    if K2 = 1 then exit;

8:    end loop;

9:    Kl :=0;

10 :    Sekcj a_krytyczna_l ;

11:    Kl :=1;

12:    end    loop;

13: end PI ;

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

17:    Sekcja_lokalna_2;

18:    loop

19:    if Kl = 1 then exit;

20:    end loop;

21:    K2:=0;

22:    Sekcj a_krytyczna_2;

23:    K2:=1;

24:    end    loop;

25: end P2;

Dzi edzi ny zastosowa ń ... Wzajem ne wyki uczani e. 7