34管程(參考版)
2024-10-16 16:37本頁面
【正文】 。 ? end。 ? process daughter ? begin ? …… ? call (apple,x)。 ? 吃取到的桔子 。 ? end。 ? process mother ? begin ? …… ? 準備好桔子 。 ? call (apple)。 end。 SS := 0。 漢森方法實現(xiàn) 蘋果橘子 問題 (5) 初始化語句 begin full := false。 ? release(IM)。 ? full := false。 ? end。 ? if not full or platefruit ? then begin ? if fruit = orange ? then wait(SS,IM)。 漢森方法實現(xiàn) 蘋果橘子 問題 (4) ? procedure get(varfruit:(apple,orange),x:plate)。 ? release(IM)。 ? if fruit=orange ? then signal(SS,IM)。 ? full := true。 ? begin ? check(IM)。 ? use wait, signal, check, release。 ? SP, SS, SD : semaphore。 漢森方法實現(xiàn) 蘋果橘子 問題 (1) 桌上有一只盤子 ， 每次只能放入一只水果 ， 爸爸專向盤中放蘋果 ， 媽媽專向盤中放橘子 ， 一個兒子專吃盤中橘子 ， 一個女兒專吃盤中蘋果 漢森方法實現(xiàn) 蘋果橘子 問題 (2) ? TYPE FMSD = MONITOR ? var plate : (apple, orange)。 ? end。 ? write。 ? end。 ? read。 end。 R := 0。 漢森方法實現(xiàn)讀者寫者問題 (5) 初始化語句 begin rc := 0。 release(IM)。 if wc0 then signal(W,IM)。 begin check(IM)。 end。 if rc0 or wc1 then wait(W,IM)。 begin check(IM)。 end。 if rc=0 then signal(W,IM)。 begin check(IM)。 end。 signal(R, IM)。 if wc0 then wait(R,IM)。 漢森方法實現(xiàn)讀者寫者問題 (3) procedure startread。 ? define startread, endread, startwriter, endwriter。 漢森方法實現(xiàn)讀者寫者問題 (1) 有兩組并發(fā)進程：讀者與寫者 ， 共享一個文件 ， 要求： 1） 允許多個讀者同時執(zhí)行讀操作； 2） 任一寫者在完成寫操作之前不允許其他讀者和寫者工作； 3） 寫者欲工作 ，要等待已存在的讀者完成讀操作 ，新的讀者與寫者均被拒絕 漢森方法實現(xiàn)讀者寫者問題 (2) ? type readwriter = MONITOR ? var rc, wc : integer。 ? 使用資源。 end。 R(s)。 begin if s 0 then begin s := s – 1。 如指定等待進程隊列為空 ， 本操作相當于空操作 管程的實現(xiàn)：漢森方法 (10) procedure signal(var s:semaphore。 end。 end。 := + 1。 := – 1。 var IM interf)。 end。 R()。 if = 0 and 0 then begin := 1
教學課件相關推薦
鄂ICP備17016276號-1