Question

一个关于Free Pascal的编程问题，高手进进来

某医院内科有A、B、C、D、E、F、G七位大夫，他们在从星期一到星期日的一周内每人要值一天班。排值班的要求为：①A大夫值班日比C大夫晚一天；②D大夫值班日比E大夫晚两天；③B大夫值班日比G大夫早三天；④F大夫值班日在B、C大夫值班日之间，且在星期四（thu）。请编写程序，输出值班表。

Answer 1

不知道你要什么形式的值班表，我这个是按照A~G每个大夫的值班日输出的：
var a,b,c,d,e,f,g,i,j:longint;
begin
f:=4;
for a:=1 to 7 do
for b:=1 to 7 do
for c:=1 to 7 do
if (a=c+1)and(b<f)and(c>f) then
for d:=1 to 7 do
for e:=1 to 7 do
if d=e+2 then
for g:=1 to 7 do
if (b+3=g)and(a+b+c+d+e+f+g=28)and(a*b*c*d*e*f*g=5040) then
writeln(a,' ',b,' ',c,' ',d,' ',e,' ',f,' ',g);
end.
临时写的，给点分吧~~~

Answer 2

先枚举值班顺序，然后判断是否合法即可。
复杂度 7！