搜索

Posted 2020-09-27 liguangsunls

1.红与黑（codevs2806）

题目网址：http://codevs.cn/problem/2806/

代码：

var
 s:array[0..21,0..21] of char;
 i,j,sum,w,c,x,y:longint;
procedure m(a,b:longint);
begin
 inc(sum);
 s[a,b]:=‘#‘;
 if(s[a+1,b]=‘.‘) then
    begin
    m(a+1,b);
    end;
 if(s[a-1,b]=‘.‘) then
    begin
    m(a-1,b);
    end;
 if(s[a,b+1]=‘.‘) then
    begin
    m(a,b+1);
    end;
 if(s[a,b-1]=‘.‘) then
    begin
    m(a,b-1);
    end;
end;
begin
 readln(w,c);
 while (w<>0) and (c<>0) do
    begin
      fillchar(s,sizeof(s),0);
      for i:=1 to c do
      begin
        for j:=1 to w do
          begin
            read(s[i,j]);
            if (s[i,j]=‘@‘) then
              begin
                x:=i;
                y:=j;
              end;
          end;
        readln;
      end;
        sum:=0;
        m(x,y);
        writeln(sum);
      readln(w,c);
    end;
end.

2.八数码难题

题目网址：http://codevs.cn/problem/1225/

分析：

这题值得说的是康托展开。全排列与整数的映射，挺实用的。

接下来就是普通的BFS了。和用HASH表判重

代码：

type arr=array [1..9] of longint;


var a:array [1..30000] of arr;
    fac:array [0..10] of longint;
    step,space:array [0..30000] of longint;
    i,front,tail:longint;
    s:string;
    hash:array [1..400000] of boolean;


function cantor(a:arr):longint;
var i,j:longint;
    k:arr;
begin
  fillchar(k,sizeof(k),0);
  cantor:=0;
  for i:=1 to 9 do
  for j:=i+1 to 9 do
  if a[i]>a[j] then inc(k[i]);
  for i:=1 to 9 do cantor:=cantor+k[i]*fac[9-i];
  cantor:=cantor+1;
end;


procedure exchange(s,t:longint);
var tmp:arr;
    num,fun,i:longint;
begin
  tmp:=a[front];
 fun:=tmp[s]; tmp[s]:=tmp[t];tmp[t]:=fun;
  num:=cantor(tmp);
  if num=46686 then
  begin
    write(step[front]+1);
    halt;
  end;
  if not hash[num] then
  begin
    inc(tail);
    a[tail]:=tmp;
    hash[num]:=true;
    space[tail]:=t;
    step[tail]:=step[front]+1;
  end;
end;


begin
  fillchar(hash,sizeof(hash),false);
  readln(s);
  fac[0]:=1;
  for i:=1 to 9 do fac[i]:=i*fac[i-1];
  for i:=1 to 9 do
  begin
    a[1][i]:=ord(s[i])-ord(‘0‘);
    if a[1][i]=0 then space[1]:=i;
  end;
  hash[cantor(a[1])]:=true;
  front:=1;
  tail:=1;
  step[1]:=0;
  while front<=tail do
  begin
    if space[front]<=6 then exchange(space[front],space[front]+3);
    if space[front]>=4 then exchange(space[front],space[front]-3);
    if ((space[front]-1)mod 3)>0 then exchange(space[front],space[front]-1);
    if ((space[front]-1)mod 3)<2 then exchange(space[front],space[front]+1);
    inc(front);
  end;
end.

3.武士风度的牛

题目网址：http://codevs.cn/problem/1411/

分析：利用BFS求无权最短路径

代码：

var
  a:array[1..150,1..150] of char;
  b:array[1..22500,1..3] of longint;
  i,j,m,n,x,y,m1,n1,m2,n2,f,r:longint;
begin
  readln(n,m);
  for i:=1 to m do
  begin
    for j:=1 to n do
    begin
      read(a[i,j]);
      if a[i,j]=‘K‘ then
      begin
        m1:=i;
        n1:=j;
      end;
      if a[i,j]=‘H‘ then
      begin
        m2:=i;
        n2:=j;
      end;
    end;
    readln;
  end;
  f:=1;
  r:=1;
  a[m2,n2]:=‘*‘;
  b[f,1]:=m2;
  b[f,2]:=n2;
  b[f,3]:=0;
  repeat
    x:=b[f,1];
    y:=b[f,2];
    if (x=m1) and (y=n1) then
    begin
      writeln(b[f,3]);
    end;
    if (x-1>0) and (y-2>0) and (a[x-1,y-2]<>‘*‘) then
    begin
      inc(r);
      b[r,1]:=x-1;
      b[r,2]:=y-2;
      b[r,3]:=b[f,3]+1;
      a[x-1,y-2]:=‘*‘;
    end;
    if (x-2>0) and (y-1>0) and (a[x-2,y-1]<>‘*‘) then
    begin
      inc(r);
      b[r,1]:=x-2;
      b[r,2]:=y-1;
      b[r,3]:=b[f,3]+1;
      a[x-2,y-1]:=‘*‘;
    end;
    if (x-2>0) and (y+1<n) and (a[x-2,y+1]<>‘*‘) then
    begin
      inc(r);
      b[r,1]:=x-2;
      b[r,2]:=y+1;
      b[r,3]:=b[f,3]+1;
      a[x-2,y+1]:=‘*‘;
    end;
    if (x-1>0) and (y+2<n) and (a[x-1,y+2]<>‘*‘) then
    begin
      inc(r);
      b[r,1]:=x-1;
      b[r,2]:=y+2;
      b[r,3]:=b[f,3]+1;
      a[x-1,y+2]:=‘*‘;
    end;
    if (x+1<m) and (y-2>0) and (a[x+1,y-2]<>‘*‘) then
    begin
      inc(r);
      b[r,1]:=x+1;
      b[r,2]:=y-2;
      b[r,3]:=b[f,3]+1;
      a[x+1,y-2]:=‘*‘;
    end;
    if (x+2<m) and (y+1<n) and (a[x+2,y+1]<>‘*‘) then
    begin
      inc(r);
      b[r,1]:=x+2;
      b[r,2]:=y+1;
      b[r,3]:=b[f,3]+1;
      a[x+2,y+1]:=‘*‘;
    end;
    if (x+2<m) and (y-1>0) and (a[x+2,y-1]<>‘*‘) then
    begin
      inc(r);
      b[r,1]:=x+2;
      b[r,2]:=y-1;
      b[r,3]:=b[f,3]+1;
      a[x+2,y-1]:=‘*‘;
    end;
    if (x+1<m) and (y+2<n) and (a[x+1,y+2]<>‘*‘) then
    begin
      inc(r);
      b[r,1]:=x+1;
      b[r,2]:=y+2;
      b[r,3]:=b[f,3]+1;
      a[x+1,y+2]:=‘*‘;
    end;
    inc(f);
  until f>r;
end.

4.最大黑区域

描写叙述：

二值图像是由黑白两种像素组成的矩形点阵，图像识别的一个操作是求出图像中最大黑区域的面积。请设计一个程序完毕二值图像的这个操作。黑区域由黑像素组成。一个黑区域中的每一个像素至少与该区域中的还有一个像素相邻，规定一个像素仅与其上、下、左、右的像素相邻。两个不同的黑区域没有相邻的像素。

一个黑区域的面积是其所包括的像素的个数。

输入格式：

输入由多个測试例组成。

每一个測试例的第一行含两个整数n和m, (1 <=n,m<=100), 分别表示二值图像的行数与列数，后面紧跟着n行，每行含m个整数0或1，当中第i行表示图像的第i行的m个像素，0表示白像素，1表示黑像素。

同一行的相邻两个整数之间用一个空格隔开，两个測试例之间用一个空行隔开，最后一个測试例之后隔一个空行，再接的一行含有两个整数0，标志输入的结束。

输出格式:

每一个測试例相应一行输出，含一个整数，表示相应的图像中最大黑区域的面积。

输入例子：

5 6
0 1 1 0 0 1
1 1 0 1 0 1
0 1 0 0 1 0
0 0 0 1 1 1
1 0 1 1 1 0


0 0

输出例子：

7

分析：利用BFS求连通块

代码：

var
  a:array [1..101,1..101] of 0..1;
  f:array [1..101,1..101] of boolean;
  i,j,n,m,x,m1,n1,max:longint;
  ch:string;


procedure js(m1,n1:longint);
begin
  if (m1>m) or (n1>n) then exit;
  a[m1,n1]:=0;
  if (m1>1)and(a[m1-1,n1]<>0) then
  begin
    js(m1-1,n1);
  end;
  if (n1>1)and(a[m1,n1-1]<>0) then
  begin
    js(m1,n1-1);
  end;
  if (a[m1,n1+1]<>0) then
  begin
    js(m1,n1+1);
  end;
  if (a[m1+1,n1]<>0) then
  begin
    js(m1+1,n1);
  end;
  inc(x);
  exit;
end;


begin
  max:=0;
  x:=0;
  readln(m,n);
  for i:=1 to m do
  begin
    for j:=1 to n do
    begin
      read(a[i,j]);
    end;
    readln;
  end;
  for i:=1 to m do
  begin
    for j:=1 to n do
    begin
      if a[i,j]<>0 then js(i,j);
      if max<x then max:=x;
      x:=0;
    end;
  end;
  writeln(max);
end.

5.解救ice-cream

描写叙述 Description 
给你一张坐标图，s为Tina的初始位置。m为Ice-cream home的位置。‘.’为路面，Tina在上面，每单位时间能够移动一格；‘#’为草地，Tina在上面，每两单位时间能够移动一格（建议不要模仿—毕竟Tina还小）；‘o’是障碍物，Tina不能在它上面行动。也就是说，Tina仅仅能在路面或草地上行走，必须绕过障碍物。并到达冰淇淋店。但是…………不保证到达时，冰淇淋还未融化，所以……就请聪明的你……选择最佳的方案啦…………假设。Tina到的时候，冰淇淋已经融化完了，那她但是会哭的。

输入格式 Input Format
依次输入冰淇淋的融化时间t(0<t<1000)，坐标图的长x,宽y(5<=x,y<=25){太长打起来好累……}，和整张坐标图。

输出格式 Output Format
推断依照最优方案能否够赶在冰淇淋融化之前到达冰淇淋店（注：当T=最优方案所用时间，则推断为未赶到），如赶到，输出所用时间；如未赶到。输出Tina的哭声——“55555”（不包含引號）。

例子输入 Sample Input

11
10
8
......s...
..........
#ooooooo.o
#.........
#.........
#.........
#.....m...
#.........

例子输出 Sample Output

10

时间限制 Time Limitation
  各个測试点1s

分析：利用BFS求加权单源最佳路径

借用王大牛代码：

program P1340;
type
        rec=record
                x,y:longint;
                di:longint;
                time:longint;
        end;
var
        s:array[1..100000,1..4] of longint;
        time:array[1..30,1..30] of longint;
        a:array[1..30,1..30] of char;
        sb1,sb2:char;
        b:array[1..30,1..30] of longint;
        q,open,closed,t,x,y,x0,y0,x1,y1,i,j,k,l,m:longint;
begin
        q:=maxlongint;
        assign(input,‘haha.in‘);
        reset(input);
        readln(t);
        read(x,y);
        for j:=1 to y do
                begin
                read(sb1,sb2);
                 for i:=1 to x do
                        begin
                                read(a[i,j]);
                                if a[i,j]=‘.‘then b[i,j]:=1
                                        else if a[i,j]=‘#‘then b[i,j]:=2
                                                else if a[i,j]=‘o‘ then b[i,j]:=maxlongint
                                                        else if a[i,j]=‘s‘ then begin x0:=i;y0:=j; b[i,j]:=1;end
                                                        else if a[i,j]=‘m‘ then begin x1:=i;y1:=j; b[i,j]:=0;end;
                        end;
                 end;
        close(input);
        for j:=1 to y do
                for i:=1 to x do
                        time[i,j]:=maxlongint;
        closed:=0; open:=1;
        s[1,1]:=x0; s[1,2]:=y0; s[1,3]:=0; s[1,4]:=0;
        repeat
        repeat
                inc(closed);
                if time[s[closed,1],s[closed,2]]>s[closed,4] then begin
                time[s[closed,1],s[closed,2]]:=s[closed,4];
                if (s[closed,3]<>1)and(s[closed,1]<x)and(a[s[closed,1]+1,s[closed,2]]<>‘o‘)then begin
                                                                inc(open);
                                                                s[open,1]:=s[closed,1]+1;
                                                                s[open,2]:=s[closed,2];
                                                                s[open,3]:=3;
                                                                s[open,4]:=s[closed,4]+b[s[closed,1],s[closed,2]];
                                                                end;
                                                                if a[s[open,1],s[open,2]]=‘m‘ then break;
                if (s[closed,3]<>3)and(s[closed,1]>1)and(a[s[closed,1]-1,s[closed,2]]<>‘o‘) then begin
                                                                inc(open);
                                                                s[open,1]:=s[closed,1]-1;
                                                                s[open,2]:=s[closed,2];
                                                                s[open,3]:=1;
                                                                s[open,4]:=s[closed,4]+b[s[closed,1],s[closed,2]];
                                                                end;
                                                                if a[s[open,1],s[open,2]]=‘m‘ then break;
                if (s[closed,3]<>0)and(s[closed,2]>1)and(a[s[closed,1],s[closed,2]-1]<>‘o‘) then begin
                                                                inc(open);
                                                                s[open,1]:=s[closed,1];
                                                                s[open,2]:=s[closed,2]-1;
                                                                 s[open,3]:=2;
                                                                s[open,4]:=s[closed,4]+b[s[closed,1],s[closed,2]];
                                                                end;
                                                                if a[s[open,1],s[open,2]]=‘m‘ then break;
                if (s[closed,3]<>2)and(s[closed,2]<y)and(a[s[closed,1],s[closed,2]+1]<>‘o‘) then begin
                                                                inc(open);
                                                                s[open,1]:=s[closed,1];
                                                                s[open,2]:=s[closed,2]+1;
                                                                s[open,3]:=0;
                                                                s[open,4]:=s[closed,4]+b[s[closed,1],s[closed,2]];
                                                                end;
                                                                if a[s[open,1],s[open,2]]=‘m‘ then break;
                end;
        until (a[s[open,1],s[open,2]]=‘m‘)or(closed=open);
        if q>s[open,4] then q:=s[open,4];
        until (closed=open);
        if q>=t then write(‘55555‘)
        else
        write(q);
end.