if flag
else if flag
else V(S
untile false;
end
process吸煙者
begin
repeat
P(S
取原料
做香煙
V(S);
吸香煙
untile false;
end
process吸煙者
begin
repeat
P(S
取原料
做香煙
V(S);
吸香煙
untile false;
end
process吸煙者
begin
repeat
P(S
取原料
做香煙
V(S);
吸香煙
untile false;
end
coend
[
From:http://tw.wingwit.com/Article/program/czxt/201311/24139.html