管程:示例 TYPE SSU E MONITOR var busy boolean; nobusy semaphore: define require, return; use wait, signal procedure requi re beg in if busy then wait( nobusy);/*调用进程加入等待队列*/ busy := ture; end procedure return b egIn busy false; signal (nobusy) /*从等待队列中释放进程* end begin /*管程变量初始化*/ busy false endTYPE SSU = MONITOR 管程：示例 var busy : boolean; nobusy : semaphore; define require, return; use wait, signal； procedure require; begin if busy then wait(nobusy); /*调用进程加入等待队列*/ busy := ture； end; procedure return; begin busy := false； signal(nobusy); /*从等待队列中释放进程*/ end; begin /*管程变量初始化*/ busy := false； end;