整 主函数(长整 参数,长指 参组[])
14 {
15 符 类型编码;
16 整 用户数;
17 整 用户序号;
18 长 访问数;
19 整 计数甲;
20 整 计数乙;
21 布 完成;
22 偱(计数甲=0;计数甲<种子数;计数++){
23 计数甲+=计数甲;
24 注册(用户名,用户标识,录入时);
25 交互(空型);
26 申请资源(资源类型,标识号);
27 执行交换(标识一,标识二);
28 }
29 环(完成==假){
30 计数甲=计数甲+1;
31 用户数=用户数+1;
32 交互();
33 执行交换(标识一,标识二);
34 如 (标识一==标识二)
35 完成=真;
36 续转;
37 否 完成=假;
38 }
39