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

营救


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.


相关文章:
《飓风营救》影评
学院:传媒学院 班级: 2010 级教育技术学 2 班 学号:201001210227 姓名:亓美玲 铮铮铁汉,似水柔情《飓风营救》观后感 几年前,第一次看这部电影的时候,就有一种...
中班健康公开课营救小动物
中班健康公开课营救小动物_育儿理论经验_幼儿教育_教育专区。健康领域 幼儿中班健康教案《营救小动物》设计意图 孩子们喜欢《喜羊羊与灰太狼》的动画片,通过对情景...
营救式刑求不可取
这些结晶不仅保障了疑犯的人权,更维护了司法公正,维护了人间 的大义 (在这样的背景下, 营救式刑求这样悖逆历史潮流的手段不免没埋没在历史的垃圾桶 中。 )我想,...
应急营救预案
应急营救预案_解决方案_计划/解决方案_实用文档 暂无评价|0人阅读|0次下载|举报文档应急营救预案_解决方案_计划/解决方案_实用文档。施工现场保健急救措施一、成立...
团队营救
团队营救_企业管理_经管营销_专业资料。拓展项目 团队营救项目名称:团队营救 项目性质:团队之间的合作 项目任务:在规定的时间內,连续的通过三关的关卡视为成功。 ...
不能用“手拉手”方式救落水人
无独有偶,2009 年 10 月 24 日,为救两名落水少年,湖北长江 大学 10 多名大学生手拉手扑进江中营救,两名少年获救,而陈及时、 方招、何东旭 3 名学生不幸...
飓风营救经典台词
飓风营救经典台词_英语学习_外语学习_教育专区。飓风营救经典台词 l don't know who you are, l don't know what you want. 我不认识你,也不知道你想要什么...
《营救》教案
营救》教案_其它课程_小学教育_教育专区。体育与健康实践课教案班级:初一 学习 阶段 学习 内容 人数:30 人 水平四 主题式情境教学: 《营救》 第 课 课的 过...
营救公主
【广度优先遍历】营救公主分类: C 程序 算法 2013-07-20 20:48 191 人阅读 评论(0) 收藏 举报 营救公主广度优先遍历 题目描述: 公主被魔王抓走了,王子需要...
船舶营救落水人员的计划和程序 2014最新
2.1.2 船长应对营救过程中可能出现的各种风险进行识别和评估。并采取相 应措施,最大程度减少对营救船、营救人员和落水人员造成伤害的风 险。 2.1.3 船长根据...
更多相关标签: