這題我是用搜索做的

在搜的時候，如果check成立，那么就填色，不然就不填這個顏色

var n,k,m,i,tj,u,w:longint; a:array[0..1000,0..1000]of boolean; v:array[0..1000]of longint; function check(y,d:longint):longint; var i:longint; begincheck:=0;for i:=1 to d-1 doif (a[d,i]=true)and(v[i]=y) then exit(1); end; procedure search(dep:longint); var i:longint; beginif dep>n thenbegininc(tj);exit;end;for i:=1 to m dobeginif check(i,dep)=0 thenbeginv[dep]:=i;search(dep+1);end;end; end; beginreadln(n,k,m);for i:=1 to k dobeginreadln(u,w);a[u,w]:=true;a[w,u]:=true;end;tj:=0;search(1);write(tj); end.

轉(zhuǎn)載于:https://www.cnblogs.com/YYC-0304/p/9500238.html

總結(jié)

以上是生活随笔為你收集整理的图的m着色问题pascal程序的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。