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

营救


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、 幼儿感受身体控制球,进行多种玩球的小游戏。 2、能与同伴协一致的进行运球活动、共同玩球...
[教案]语言活动:营救喜羊羊
[教案]语言活动:营救喜羊羊_幼儿教育_教育专区。语言活动:营救喜羊羊 活动目标: 1、巩固对常见动物主要特征的认识,并能根据动物的主要特征 想出营救小羊的各种...
营救技术指南(中)
营救技术指南 1 1.1 引言:海上营救中你的角色 作为一名海员,你可能会突然遇到必须营救海上遇险的人员。这可能是你自己的船的 船员落水---同事或者乘客---或者...
《飓风营救》影评
学院:传媒学院 班级: 2010 级教育技术学 2 班 学号:201001210227 姓名:亓美玲 铮铮铁汉,似水柔情《飓风营救》观后感 几年前,第一次看这部电影的时候,就有一种...
德军历史上最为大胆的营救行动(营救墨索里尼) ——橡树...
德军历史上最为大胆的营救行动(营救墨索里尼) ——橡树 计划 橡树行动 “橡树行动”(德文名:Unternehmen Eiche)——德军历史上最为大胆的营救 行动。1943 年 7 ...
飓风营救经典台词
飓风营救经典台词_英语学习_外语学习_教育专区。飓风营救经典台词 l don't know who you are, l don't know what you want. 我不认识你,也不知道你想要什么...
中班健康公开课营救小动物
中班健康公开课营救小动物_育儿理论经验_幼儿教育_教育专区。健康领域 幼儿中班健康教案《营救小动物》设计意图 孩子们喜欢《喜羊羊与灰太狼》的动画片,通过对情景...
营救公主
【广度优先遍历】营救公主分类: C 程序 算法 2013-07-20 20:48 191 人阅读 评论(0) 收藏 举报 营救公主广度优先遍历 题目描述: 公主被魔王抓走了,王子需要...
更多相关标签: