部落卫队pascal解题程序

type
jh=set of 0..100;//集合
var
n,m,i,u,v,tj:longint;
w:jh;
a,f:array[0..100]of boolean;
s:array[1..100]of jh;
procedure search(dep:longint;w:jh;t:longint);//dep是第几个人，w是总人数
var
i:longint;
begin
if t>tj then
begin
tj:=t;
a:=f;
end;//a数组记录人数最多时的每个人的存在情况
for i:=dep+1 to n do
begin
if not(i in w) then//w存放被选人的仇敌，第i人不是仇敌才行
begin
f[i]:=true;//将i选进去
search(i,w+s[i],t+1);//搜索
f[i]:=false;//回溯
end;
end;
end;
begin
readln(n,m);//输入
w:=[];//赋值
fillchar(f,sizeof(f),false);//赋值
for i:=1 to m do
begin
readln(u,v);
s[u]:=s[u]+[v];
end;
tj:=0;//最多人数
search(0,w,0);//搜索
writeln(tj);
for i:=1 to n do//输出
if a[i]=true then write('1 ') else write('0 ');
end.

转载于:https://www.cnblogs.com/YYC-0304/p/9500255.html

部落卫队pascal解题程序相关推荐

电子老鼠闯迷宫pascal解题程序
这题我是用广度优先搜索的方法来写的 head是头指针,tail是尾指针我先找出下一个点,再判断这个点能不能走,能走就记录该点,到达终点时,就输出. 我是用递归的方法输出的 const maxn=12 ...
骑士旅行pascal解题程序
这题我是用广度优先搜索的方法来做的我先找出下一个能走的点,再把它放进队列里,如果到了目标点,就把tail放进best,tail等于0,最后输出. 做这题的时候,用最大数据时,一直栈溢出,原来是数组不 ...
全排列问题pascal解题程序
var a,b:array[0..9]of longint; n:longint; procedure print; var i:longint; begin for i:=1 to n do ...
部落卫队解题报告
部落卫队 [问题描述] 原始部落byteland中的居民们为了争夺有限的资源,经常发生冲突.几乎每个居民都有他的仇敌.部落酋长为了组织一支保卫部落的队伍,希望从部落的居民中选出最多的居民 ...
【9505】部落卫队
Time Limit: 1000ms second Memory Limit: 32m 问题描述: 原始部落byteland中的居民们为了争夺有限的资源,经常发生冲突.几乎每个居民都有他的仇敌.部落酋 ...
5-3 部落卫队问题 (25 分)
原始部落byteland中的居民们为了争抢有限的资源,经常发生冲突.几乎每个居民都有它的仇敌.部落酋长为了组织一支保卫部落的队伍,希望从部落的居民中选出最多的居民入伍,并保证队伍中任何两个人都不是仇敌 ...
练习题讲解-【搜索算法】部落卫队
[搜索算法]部落卫队题目描述原始部落byteland中的居民们为了争夺有限的资源,经常发生冲突.几乎每个居民都有他的仇敌.部落酋长为了组织一支保卫部落的队伍,希望从部落的居民中选出最多的居民入伍, ...
部落卫队问题 (回溯)
原始部落byteland中的居民们为了争抢有限的资源,经常发生冲突.几乎每个居民都有它的仇敌.部落酋长为了组织一支保卫部落的队伍,希望从部落的居民中选出最多的居民入伍,并保证队伍中任何两个人都不是仇敌 ...
部落卫队 2281
部落卫队Time Limit:10000MS Memory Limit:65536K Total Submit:244 Accepted:166 Case Time Limit:1000MS Desc ...

部落卫队pascal解题程序

部落卫队pascal解题程序相关推荐

最新文章

热门文章