一个奇葩的监考安排

amzxfgh9632

要求见附件：

LIUZHU

如果都是男女搭配就好了，问题就在于第一个考官是女的，第二个考官可以是男的，也可以是女的，这样下来，就会有问题，就会造成前面女考官和女考官搭配过多，导致后面没有女考官了。

LIUZHU

这个效果，结果没有验证

LIUZHU

JSA代码，参考下，没用VBA

1. function 监考安排(){
   
2.         let jsarr=Sheets.Item("监考名单").Range("a1").CurrentRegion.Value2.slice(1).map(([,a,b])=>[a,b]);
   
3.         let obj={};
   
4.         for (let j=1;j<=4;j++){
   
5.                 let arr=[...jsarr];                //副本
   
6.                 for (let i=1;i<=25;i++){
   
7.                         let key=`第${String(i).padStart(3,"0")}考场`;
   
8.                         let temp=obj[key]=obj[key] || [key];
   
9.                         [1,2].forEach(x=>{
   
10.                                 while(true){
    
11.                                         let n=Math.floor(Math.random()*arr.length);                //数组下标
    
12.                                         if (!temp.includes(arr[n][0])){
    
13.                                                 if (x==1 && arr[n][1]!="女") continue;
    
14.                                                 if (x==2 && i<=20 && arr[n][1]=="女") continue;                //第二考官为女教师只能出现在最后五个考场
    
15.                                                 temp.push(arr[n][0]);
    
16.                                                 arr.splice(n,1);                //删除已被匹配的教师
    
17.                                                 break;
    
18.                                         }
    
19.                                 }
    
20.                         });
    
21.                 }
    
22.         }
    
23.         let res=Object.values(obj);
    
24.         Sheets.Item("监考安排").Activate();
    
25.         Range("a3").Resize(res.length,res[0].length).Value2=res;
    
26. }

复制代码

LIUZHU

附件在此，WPS测试

山菊花

供参考。

amzxfgh9632

山菊花 发表于 2024-4-13 07:13
供参考。

分身监考了

山菊花

还没理解题意。
如果25个考场同时考试，每试室2名老师，共30组监考老师是不可能完成的。

amzxfgh9632

山菊花 发表于 2024-4-13 09:08
还没理解题意。
如果25个考场同时考试，每试室2名老师，共30组监考老师是不可能完成的。

一个科目一个科目的安排，60人安排完语文，还是60人安排数学，……要求按表里的要求

山菊花

楼上附件已更新，请测试。