输油管道 (Standard IO)
题意/Description:
请你帮忙设计一个从城市M到城市Z的输油管道,现在已经把整个区域划分为R行C列,每个单元格可能是空的也可能是以下7种基本管道之一:
油从城市M流向Z,‘+’型管道比较特殊,因为石油必须在两个方向(垂直和水平)上传输,如下图所示:
现在恐怖分子弄到了输油管道的设计图,并把其中一个单元格中的管道偷走了,请你帮忙找到偷走的管道的位置以及形状。
读入/Input:
第一行包含两个整数R和C(1<=R,C<=25)。
接下来R行每行C个字符描述被偷之后的形状,字符分为以下三种:
(1)‘.’表示空;
(2)字符‘|’(ASCII为124)、‘-’、‘+’、‘1’、‘2’、‘3’、‘4’描述管道的形状;
(3)‘M’和‘Z’表示城市,两个都是只出现一次。
输入保证石油的流向是唯一的,只有一个管道跟M和Z相连,除此此外,保证没有多余的管道,也就是说所有的管道在加进被偷的管道后一定都会被用上。
输入保证有解而且是唯一的。
输出/Output:
输出被偷走的管道的行号和列号以及管道的类型。
题解/solution:
首先题目告诉我们恐怖分子只偷走了一个管道。我们从M点或Z点出发,顺这管道出发,找到那个漏油的地方(管道被偷之前肯定不会漏油),就是被偷走的管道的行号和列号。怎么判断呢?如果是‘-’,那必须和左右联通,不能和上下联通(很显然);如果是‘|’,那必须和上下联通,不能和左右联通(也很显然);‘+’,必须和上下左右联通(十分显然)。1、2、3、4也一样了,听完后,是不是水啊!
点个赞啊,有不足告诉我。
代码/Code:
var
n,m,x1,x2,y1,y2,o,p:longint;
a:array [0..30,0..30] of char;
f:array [0..30,0..30] of boolean;
dx,dy:array [1..4] of integer;
procedure init;
var
i,j:longint;
begin
fillchar(f,sizeof(f),0);
readln(n,m);
for i:=1 to n do
begin
for j:=1 to m do
begin
read(a[i,j]);
if a[i,j]='M' then
begin
x1:=i; y1:=j;
end;
if a[i,j]='Z' then
begin
x2:=i; y2:=j;
end;
end;
readln;
end;
end;
function fd(x,y:longint):boolean;
begin
if (x<0) or (x>n+1) or (y<0) or (y>m+1) then exit(true);
exit(false);
end;
procedure main(x,y:longint);
var
i:longint;
begin
if fd(x,y) or (f[x,y]) then exit;
f[x,y]:=true;
if a[x,y]='.' then
begin
o:=x; p:=y;
exit;
end;
if a[x,y]='M' then
begin
for i:=1 to 4 do
if a[x+dx[i],y+dy[i]]<>'.' then main(x+dx[i],y+dy[i]);
end else
case a[x,y] of
'|':if f[x+dx[1],y+dy[1]] then main(x+dx[3],y+dy[3])
else main(x+dx[1],y+dy[1]);
'-':if f[x+dx[2],y+dy[2]] then main(x+dx[4],y+dy[4])
else main(x+dx[2],y+dy[2]);
'+':for i:=1 to 4 do main(x+dx[i],y+dy[i]);
'1':if f[x+dx[3],y+dy[3]] then main(x+dx[4],y+dy[4])
else main(x+dx[3],y+dy[3]);
'2':if f[x+dx[1],y+dy[1]] then main(x+dx[4],y+dy[4])
else main(x+dx[1],y+dy[1]);
'3':if f[x+dx[1],y+dy[1]] then main(x+dx[2],y+dy[2])
else main(x+dx[1],y+dy[1]);
'4':if f[x+dx[3],y+dy[3]] then main(x+dx[2],y+dy[2])
else main(x+dx[3],y+dy[3]);
end;
end;
function t1(x,y:longint):boolean;
begin
if a[x,y]='1' then exit(true);
exit(false);
end;
function t2(x,y:longint):boolean;
begin
if a[x,y]='2' then exit(true);
exit(false);
end;
function t3(x,y:longint):boolean;
begin
if a[x,y]='3' then exit(true);
exit(false);
end;
function t4(x,y:longint):boolean;
begin
if a[x,y]='4' then exit(true);
exit(false);
end;
function t5(x,y:longint):boolean;
begin
if a[x,y]='+' then exit(true);
exit(false);
end;
function t6(x,y:longint):boolean;
begin
if a[x,y]='-' then exit(true);
exit(false);
end;
function t7(x,y:longint):boolean;
begin
if a[x,y]='|' then exit(true);
exit(false);
end;
procedure print;
var
x,y:array [1..4] of longint;
f1,f2,f3,f4:boolean;
i:longint;
begin
if (o=0) and (p=0) then
begin
if fd(x1-2,y1) and (a[x1-2,y1]<>'.') then begin o:=x1-2; p:=y1; end else
if fd(x1+2,y1) and (a[x1+2,y1]<>'.') then begin o:=x1+2; p:=y1; end else
if fd(x1,y1-2) and (a[x1,y1-2]<>'.') then begin o:=x1; p:=y1-2; end else
if fd(x1,y1+2) then begin o:=x1; p:=y1+2; end;
end;
write(o,' ',p,' ');
for i:=1 to 4 do
begin
x[i]:=o+dx[i]; y[i]:=p+dy[i];
end;
f1:=t2(x[2],y[2]) or t1(x[2],y[2]) or t5(x[2],y[2]) or t6(x[2],y[2]);
f2:=t3(x[4],y[4]) or t4(x[4],y[4]) or t5(x[4],y[4]) or t6(x[4],y[4]);
f3:=t4(x[1],y[1]) or t1(x[1],y[1]) or t5(x[1],y[1]) or t7(x[1],y[1]);
f4:=t2(x[3],y[3]) or t3(x[3],y[3]) or t5(x[3],y[3]) or t7(x[3],y[3]);
if (not f1) and (not f2) and (f3) and (f4) then write('|');
if (f1) and (f2) and (not f3) and (not f4) then write('-');
if (f1) and (f2) and (f3) and (f4) then write('+');
if (not f1) and (f2) and (not f3) and (f4) then write('1');
if (not f1) and (f2) and (f3) and (not f4) then write('2');
if (f1) and (not f2) and (f3) and (not f4) then write('3');
if (f1) and (not f2) and (not f3) and (f4) then write('4');
end;
begin
init;
dx[1]:=-1; dx[2]:=0; dx[3]:=1; dx[4]:=0;
dy[1]:=0; dy[2]:=-1; dy[3]:=0; dy[4]:=1;
main(x1,y1);
print;
end.
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】博客园社区专享云产品让利特惠,阿里云新客6.5折上折
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步
· DeepSeek 解答了困扰我五年的技术问题
· 为什么说在企业级应用开发中,后端往往是效率杀手?
· 用 C# 插值字符串处理器写一个 sscanf
· Java 中堆内存和栈内存上的数据分布和特点
· 开发中对象命名的一点思考
· DeepSeek 解答了困扰我五年的技术问题。时代确实变了!
· PPT革命!DeepSeek+Kimi=N小时工作5分钟完成?
· What?废柴, 还在本地部署DeepSeek吗?Are you kidding?
· 赶AI大潮:在VSCode中使用DeepSeek及近百种模型的极简方法
· DeepSeek企业级部署实战指南:从服务器选型到Dify私有化落地