读者-作者问题

Code:

1. var Rcount:integer;   
2.     Rmutex,Wmutex:semaphore;   
3.     Rcount := 0;   
4.     Rmutex := 1;   
5.     Wmutex := 1;   
6.        
7. codebegin   
8.   
9. process reader   
10. begin   
11.     P(Rmutex)   
12.     if Rcount = 0 then P(Wmutex)   
13.     Rcount := Rcount + 1;   
14.     V(Rmutex)   
15.        
16.     读文件   
17.        
18.     P(Rmutex)   
19.     Rcount := Rcount - 1;   
20.     if Rcount = 0 then V(Wmutex)   
21.     V(Rmutex)    
22. end   
23.   
24. process writer   
25. begin   
26.     P(Wmutex)   
27.     写文件   
28.     V(Wmutex)   
29. end   
30.   
31. codeend    
32.