這題我是用搜索的方法來做的

搜的時候，如果當前的費用大于tj，那么就不用再搜了，小于tj就把當前的費用放進tj里，最后輸出tj

var n,i,j,tj:longint; a:array[0..1000,0..1000]of longint; f:array[0..1000]of boolean; procedure search(dep,m:longint); var i:longint; beginif dep>n thenif m<tj thenbegintj:=m;exit;end;if m>=tj then exit;for i:=1 to n doif f[i]=false thenbeginf[i]:=true;search(dep+1,m+a[i,dep]);f[i]:=false;end; end; beginreadln(n);for i:=1 to n dobeginfor j:=1 to n doread(a[i,j]);readln;end;fillchar(f,sizeof(f),false);tj:=100000;search(1,0);write(tj); end.

轉載于:https://www.cnblogs.com/YYC-0304/p/9500245.html

總結

以上是生活随笔為你收集整理的工作分配问题pascal程序的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。