有哪些信誉好的足球投注网站- 1、本文档共7页，可阅读全部内容。
- 2、有哪些信誉好的足球投注网站（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
封锁阳光大学
每条边的两个端点，有且仅有一个被封锁
故对图进行黑白染色，可以染色就是可行的，反之不可行
参考程序：
var
q,last:array[0..20000]of longint;
f:array[0..20000,boolean]of longint;
pre,g:array[0..300000]of longint;
p,c:array[0..20000]of boolean;
tot,tot_edge:longint;
flag:boolean;
procedure insert(x,y:longint);
begin
pre[tot_edge]:=last[x]; last[x]:=tot_edge; g[tot_edge]:=y; inc(tot_edge);
end;
procedure bfs(x:longint);
var i,h,t,k:longint;
begin
h:=0; t:=1; q[1]:=x; p[x]:=true;
repeat
inc(h);
k:=last[q[h]];
while k=0 do
begin
if p[g[k]] then
if c[g[k]]=c[q[h]] then
flag:=false else else
begin
p[g[k]]:=true;
c[g[k]]:=not c[q[h]];
inc(t);
q[t]:=g[k];
end;
k:=pre[k];
end;
until h=t;
for i:=1 to h do if c[q[i]] then inc(f[tot][true]) else inc(f[tot][false]);
end;
var i,n,m,x,y,ans:longint;
begin
assign(input,skate.in); reset(input);
assign(output,skate.out); rewrite(output);
read(n,m);
flag:=true;
tot_edge:=0;
fillchar(last,sizeof(last),$ff);
for i:=1 to m do
begin
read(x,y);
insert(x,y);
insert(y,x);
end;
for i:=1 to n do
if not p[i] then
begin
inc(tot);
bfs(i);
end;
ans:=0;
for i:=1 to tot do
if f[i][true]f[i][false] then
ans:=ans+f[i][true] else
ans:=ans+f[i][false];
if not flag then writeln(Impossible) else writeln(ans);
close(input); close(output);
end.
海战
直接进行BFS
我们从每个未标记过的点开始BFS，
将BFS过的点标记
一共进行了多少次的BFS 就是结果
参考程序：
{
CTU Open Contest 2002
=====================
Sample solution for the problem: battle
Martin Kacer, Oct 2002
}
Program Battle;
Const
MAXSIZE = 10000;
chShip = #;
chWater = .;
Type TRow = Array [0..MAXSIZE+1] of Char;
Var Row1, Row2 : TRow;
SizeX, SizeY : Integer;
IsValid : Boolean;
ShipCnt : Integer;
{compare two successive rows}
Procedure CompareRows;
Var I: Integer;
Begin
I := 1;
While (I = SizeY) do
Begin
If (Row1[I] Row2[I]) then
Begin
I
文档评论（0）