当前位置:首页 >> 学科竞赛 >>

营救


const dx:array[1..4]of shortint=(1,-1,0,0); dy:array[1..4]of shortint=(0,0,-1,1); var n,x1,y1,x2,y2:word; map:array[0..1001,0..1001]of char; que:array[1..1000000]of record x,y,dep:word; end;

procedure init; var i,j:word; begin fillchar(map,sizeof(map),'1'); readln(n); for i:=1 to n do begin for j:=1 to n do read(map[i,j]); readln; end; readln(x1,y1,x2,y2); end;{init} procedure work; var head,tail:longword; i:byte; begin with que[1] do begin x:=x1; y:=y1; dep:=0; end; head:=0;tail:=1; repeat inc(head); for i:=1 to 4 do if(que[head].x+dx[i]>0)and(que[head].x+dx[i]<=n) and(que[head].y+dy[i]>0)and(que[head].y+dy[i]<=n) and(map[que[head].x+dx[i],que[head].y+dy[i]]='0')then begin inc(tail); with que[tail] do begin x:=que[head].x+dx[i]; y:=que[head].y+dy[i]; dep:=que[head].dep+1 end; map[que[tail].x,que[tail].y]:='1'; if(que[tail].x=x2)and(que[tail].y=y2)then begin writeln(que[tail].dep); halt; end; end;

until head=tail; end;{work} begin{main} init; work; end.


相关文章:
营救技术指南(中)
营救技术指南 1 1.1 引言:海上营救中你的角色 作为一名海员,你可能会突然遇到必须营救海上遇险的人员。这可能是你自己的船的 船员落水---同事或者乘客---或者...
团队营救
团队营救_企业管理_经管营销_专业资料。拓展项目团队营救项目名称:团队营救 项目性质:团队之间的合作 项目任务:在规定的时间內,连续的通过三关的关卡视为成功。 项目...
营救小兔
营救小兔_小学作文_小学教育_教育专区。营救小兔 二年级三班 魏昌浩 有一次,小兔子不小心掉进了坑里。小兔子想了很多办法都爬不 上来,它急得哭了起来。有三个...
营救式刑求是可取的
营救式刑求是可取的_计算机硬件及网络_IT/计算机_专业资料。个人备份 各位, 让我们想想, 那些让我们考虑是否用营救式刑求的犯人有什么共性: 残忍, 漠视生命, 严重...
营救公主
【广度优先遍历】营救公主分类: C 程序 算法 2013-07-20 20:48 191 人阅读 评论(0) 收藏 举报 营救公主广度优先遍历 题目描述: 公主被魔王抓走了,王子需要...
小班数学:营救美羊羊
小班数学:营救美羊羊_幼儿读物_幼儿教育_教育专区。小班 数学教案 听清颜色和形状的指令,感知集合,以游戏的形式开展的一个活动。小班...
营救式刑求可不可以采用
营救式刑求可不可以采用 定义:营救式刑求是指有证据证明犯罪嫌疑人正在实施危害行为,为了防止危害的发 生,在其他手段无法获得情报或情况紧急时采用的一种刑讯方法。...
营救式刑求不可取
这些结晶不仅保障了疑犯的人权,更维护了司法公正,维护了人间 的大义 (在这样的背景下, 营救式刑求这样悖逆历史潮流的手段不免没埋没在历史的垃圾桶 中。 )我想,...
《飓风营救》影评
学院:传媒学院 班级: 2010 级教育技术学 2 班 学号:201001210227 姓名:亓美玲 铮铮铁汉,似水柔情《飓风营救》观后感 几年前,第一次看这部电影的时候,就有一种...
设计营救计划学生作品
设计营救计划学生作品_语文_小学教育_教育专区。今天,在学完二年级上册整本书后,对语文天地的口语 交际题又进行了回顾, 当复习到第九单元的 “设计营救计划” 时...
更多相关标签:
飓风营救 | 极速营救 | 飓风营救1电影 | 营救电影 | 飓风营救3 | 绝地营救 | 危情营救 | 空中营救 |