- 1、本文档共46页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
教学课件课件PPT医学培训课件教育资源教材讲义
搜索与回溯;;深度优先搜索;;;;; for i:=1 to n do
if not used[i] then
//若i未出现过则在
第k个位置放i
begin
ans[k]:=i;
used[i]:=true; //标记
dfs(k+1);//继续搜索
used[i]:=false;//回溯
end;
end;
begin
read(n);
dfs(1);
end.
;例:设有A,B,C,D,E五人从事J1,J2,J3,J4,J5五项工作,每人只能从事一项,他们的效益如表所示:
;const data:array[1..5,1..5] of integer
=((13,11,10,4,7),(13,10,10,8,5),(5,9,7,7,4),
(15,12,10,11,5),(10,11,8,8,4));
var i,max:integer;
g, f:array[1..5] of integer;
p:array[1..5] of integer;
;procedure go(step,t:integer);
var i:integer;
begin
if step5 then
begin
if tmax then
begin max:=t; g:=f; end;
exit;
end;
for i:=1 to 5 do
if p[i]=0 then
begin
f[step]:=i; p[i]:=1; t:=t+data[step,i];
go(step+1,t);
t:=t-data[step,i]; p[i]:=0;
end;
end;;begin
max:=0;
for i:=1 to 5 do p[i]:=0;
go(1,0);
writeln;
for i:=1 to 5 do write(chr(64+i),:j,g[i], :3);
writeln;
writeln(supply:,max);
end.
;学校放寒假时,信息学竞赛辅导教师有A,B,C,D,E五本书,要分给参加培训的张、王,刘、孙、李五位学生,每人只能一本书。教师事先让每个人将自己喜爱的书填写在如下的表中。然后根据他们填写的表来分配书本,希望设计一个程序帮助教师求出所有可能的分书方案,使每个学生都满意。;const like:array[1..5,1..5] of integer
=((0,0,1,1,0),(1,1,0,0,1),(0,1,1,0,0),(0,0,0,1,0),(0,1,0,0,1));
name:array[1..5] of string=(zhang,wang,liu,sun,li);
var p,f:array[1..5] of integer; t:integer;
procedure print;
var i:integer;
begin
for i:=1 to 5 do write(name[i],:,chr(64+f[i]), );
writeln;
end;
;procedure try(step:integer);
var i:integer;
begin
for i:=1 to 5 do
if (p[i]=0) and (like[step,i]0) then
begin
f[step]:=i;
p[i]:=1;
if step5 then try(step+1)
else
begin
print; t:=t+1;
end;
p[i]:=0;
end;
end;
begin
fillchar(p,sizeof(p),0);
try(1);
writeln(t);
end.;proc
您可能关注的文档
- (人音版)四年级音乐上册 柳树姑娘说明讲解研究报告.ppt
- (上)小额贷款公司发展背景、现状与未来知识讲解教材课程.ppt
- (十)网络环境应健康 守住底线享权利说明讲解教学教材.ppt
- (梳理+通解+集训):第四章 非金属及其化合物 第二讲 富集在海水中的元素(97张)说明讲解研究报告.ppt
- (数学好玩)说明讲解复习课程.ppt
- (苏教版)五年级语文 爱如茉莉定稿说明讲解研究报告.ppt
- (特级教师 缪徐)化学使世界变得更加绚丽多彩说明讲解复习课程.ppt
- (微积分)第二章 极限与连续 第一讲 数列的极限说明讲解教材课程.ppt
- (未来版)品德与社会五年级下册《多彩的民族风情》版1说明讲解教学教材.ppt
- (未来版)品德与社会五年级下册《各族人民一家亲》版说明讲解研究报告.ppt
文档评论(0)