pascal题目乳草怎么输入数据?
发布网友
发布时间：2024-10-19 04:23
共1个回答
热心网友
时间：2024-12-05 09:39
时间*: 1 Sec 内存*: 64 MB
题目描述
Farmer John一直努力让他的草地充满鲜美多汁的而又健康的牧草。可惜天不从人愿，他在植物大战人类中败下阵来。*的乳草已经在他的农场的西北部份占领了一片立足之地。草地像往常一样，被分割成一个高度为Y(1 <= y <= 100), 宽度为X(1 <= x <= 100)的直角网格。(1,1)是左下角的格（也就是说坐标排布跟一般的X,Y坐标相同）。乳草一开始占领了格(Mx,My)。每个星期，乳草传播到已被乳草占领的格子四面八方的每一个没有很多石头的格（包括垂直与水平相邻的和对角线相邻的格）。1周之后，这些新占领的格又可以把乳草传播到更多的格里面了。 Bessie想要在草地被乳草完全占领之前尽可能的享用所有的牧草。她很好奇到底乳草要多久才能占领整个草地。如果乳草在0时刻处于格(Mx,My)，那么还在那个时刻它们可以完全占领入侵整片草地呢（对给定的数据总是会发生）？草地由一个图片表示。"."表示草，而"*"表示大石。比如这个X=4, Y=3的例子。
....
..*.
.**.
如果乳草一开始在左下角（第1排，第1列），那么草地的地图将会以如下态势发展：
.... .... MMM. MMMM MMMM
..*. MM*. MM*. MM*M MM*M
M**. M**. M**. M**. M**M
星期数 0 1 2 3 4
乳草会在4星期后占领整片土地。
输入
* 第一行: 四个由空格隔开的整数: X, Y, Mx, My
* 第2到第Y+1行: 数据的第y+1行由X个字符（"."表示草地，"*"表示大石），描述草地的第(Y+2-y)行。
输出
* 第一行: 一个单独的整数表示最后一个不是大石块的格子被乳草占领的星期数。
样例输入
4 3 1 1
....
..*.
.**.
样例输出
4
来源
USACO 2009October Silver
var m,n,y,x,i,j,h,t,dep,temp,ht:longint;
a:array[0..101,0..101] of boolean;
d:array[0..30001,1..2] of longint;
st:string;
procere getin(i,j:longint);
begin
inc(t);
a[i,j]:=false;
d[t,1]:=i; d[t,2]:=j;
end;
begin
assign(input,'milkweed.in'); reset(input);
assign(output,'milkweed.out'); rewrite(output);
readln(m,n,y,x);
for i:=1 to n do
begin
readln(st);
for j:=1 to m do
if st[j]='.' then a[i,j]:=true;
end;
x:=n-x+1; a[x,y]:=false;
h:=1; t:=1; d[1,1]:=x; d[1,2]:=y;
while h<=t do
begin
dep:=dep+1;
ht:=t;
for temp:=h to ht do
begin
i:=d[temp,1]; j:=d[temp,2];
if a[i+1,j] then getin(i+1,j);
if a[i-1,j] then getin(i-1,j);
if a[i,j-1] then getin(i,j-1);
if a[i,j+1] then getin(i,j+1);
if a[i+1,j+1] then getin(i+1,j+1);
if a[i-1,j-1] then getin(i-1,j-1);
if a[i+1,j-1] then getin(i+1,j-1);
if a[i-1,j+1] then getin(i-1,j+1);
end;
h:=ht+1;
end;
writeln(dep-1);
close(input); close(output);
end.
