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

营救


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.


相关文章:
营救式刑求可不可以采用
营救式刑求可不可以采用 定义:营救式刑求是指有证据证明犯罪嫌疑人正在实施危害行为,为了防止危害的发 生,在其他手段无法获得情报或情况紧急时采用的一种刑讯方法。...
营救公主
【广度优先遍历】营救公主分类: C 程序 算法 2013-07-20 20:48 191 人阅读 评论(0) 收藏 举报 营救公主广度优先遍历 题目描述: 公主被魔王抓走了,王子需要...
营救传销女孩
营救传销女孩_社会学_人文社科_专业资料。讲个一个女孩如何解救陷入传销组织且已经被洗脑的妹妹的故事。一个女孩名叫李梅,她一直在青岛打工。一个月前她向家里打...
设计营救计划学生作品
设计营救计划学生作品_语文_小学教育_教育专区。今天,在学完二年级上册整本书后,对语文天地的口语 交际题又进行了回顾, 当复习到第九单元的 “设计营救计划” 时...
营救式刑求是可取的
营救式刑求是可取的_计算机硬件及网络_IT/计算机_专业资料。个人备份 各位, 让我们想想, 那些让我们考虑是否用营救式刑求的犯人有什么共性: 残忍, 漠视生命, 严重...
营救式刑求小结
营救式刑求小结_司法考试_资格考试/认证_教育专区。小结 对方辩友上半场主要在跟我们说,在紧急情况下,在只剩刑求这 一种手段时, 为了救人, 用刑求的方法是可取...
小班数学:营救美羊羊
小班数学:营救美羊羊_幼儿读物_幼儿教育_教育专区。小班 数学教案 听清颜色和形状的指令,感知集合,以游戏的形式开展的一个活动。小班...
《飓风营救》影评
学院:传媒学院 班级: 2010 级教育技术学 2 班 学号:201001210227 姓名:亓美玲 铮铮铁汉,似水柔情《飓风营救》观后感 几年前,第一次看这部电影的时候,就有一种...
小班,健体,营救小动物
小班,健体,营救小动物_幼儿读物_幼儿教育_教育专区。小班,健体,营救小动物备课3 活动名称 营救小动物 1、 尝试钻过 70 厘米高的障碍物,练习头顶沙袋向前行走。...
中班健康公开课营救小动物
中班健康公开课营救小动物_育儿理论经验_幼儿教育_教育专区。健康领域 幼儿中班健康教案《营救小动物》设计意图 孩子们喜欢《喜羊羊与灰太狼》的动画片,通过对情景...
更多相关标签:
飓风营救 | 极速营救 | 飓风营救1电影 | 营救电影 | 飓风营救3 | 绝地营救 | 危情营救 | 空中营救 |