解法:
TYPE
当时已用教师集合=SET OF integer;
teacher:某时已用教师集合;
procedure getOneRst(var list:Tlist);
for i=1 to 星期do
for j=1 to 节数do
{
teacher:=[];p:=0;
for k=1 to 教Xdo
{
if 任务.item.count=0 then
exit;
if not(任务.item[p].教师号 in teacher) then
{list.add(i+j+k+任务.item[p]);
teacher+=[任务.item[p].教师号];
del 任务.item[0];}
esle p++;
if p=任务.item.count then
break;
}
}
这样就得到了一组解。