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

营救


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.


相关文章:
小班数学:营救美羊羊
小班数学:营救美羊羊_幼儿读物_幼儿教育_教育专区。小班 数学教案 听清颜色和形状的指令,感知集合,以游戏的形式开展的一个活动。小班...
营救式刑求不可取
这些结晶不仅保障了疑犯的人权,更维护了司法公正,维护了人间 的大义 (在这样的背景下, 营救式刑求这样悖逆历史潮流的手段不免没埋没在历史的垃圾桶 中。 )我想,...
营救式刑求小结
营救式刑求小结_司法考试_资格考试/认证_教育专区。小结 对方辩友上半场主要在跟我们说,在紧急情况下,在只剩刑求这 一种手段时, 为了救人, 用刑求的方法是可取...
营救式刑求是可取的
营救式刑求是可取的_计算机硬件及网络_IT/计算机_专业资料。个人备份 各位, 让我们想想, 那些让我们考虑是否用营救式刑求的犯人有什么共性: 残忍, 漠视生命, 严重...
营救小兔
营救小兔_小学作文_小学教育_教育专区。营救小兔 二年级三班 魏昌浩 有一次,小兔子不小心掉进了坑里。小兔子想了很多办法都爬不 上来,它急得哭了起来。有三个...
船舶营救落水人员的计划和程序 2014最新
2.1.2 船长应对营救过程中可能出现的各种风险进行识别和评估。并采取相 应措施,最大程度减少对营救船、营救人员和落水人员造成伤害的风 险。 2.1.3 船长根据...
营救小黄鹂
营救小黄鹂兖州区文化路小学东校区 四年级八班 苏琪钧 一天,小瑜、小丽、小飞在公园玩耍,看见了一个人用弹弓打伤 了一只小黄鹂。 此时, 小黄鹂趴在草丛上, 低...
中班健康公开课营救小动物
中班健康公开课营救小动物_育儿理论经验_幼儿教育_教育专区。健康领域 幼儿中班健康教案《营救小动物》设计意图 孩子们喜欢《喜羊羊与灰太狼》的动画片,通过对情景...
营救公主
【广度优先遍历】营救公主分类: C 程序 算法 2013-07-20 20:48 191 人阅读 评论(0) 收藏 举报 营救公主广度优先遍历 题目描述: 公主被魔王抓走了,王子需要...
团队营救
团队营救_企业管理_经管营销_专业资料。拓展项目团队营救项目名称:团队营救 项目性质:团队之间的合作 项目任务:在规定的时间內,连续的通过三关的关卡视为成功。 项目...
更多相关标签: