Bài giảng hệ điều hành : QUẢN LÝ TIẾN TRÌNH part 3

b. Giải pháp dùng biến khóa  Dùng biến khóa chung Procedure P(lock: integer); begin repeat while lock=1 do; Lock=1 ; lock:=0 ; until .F. end; Var lock1, lock2: byte; begin lock1:=0; lock2:=1 p1: repeat while lock2=1 do; Lock1:=1 ; lock1:=0 ; until .F. p2: repeat while lock1=1 do; Lock2:=1 ; lock2:=0 ; until .F. end