洛谷 P1434 滑雪

題目描述

michael喜歡滑雪。這並不奇怪，因為滑雪的確很刺激。可是為了獲得速度，滑的區域必須向下傾斜，而且當你滑到坡底，你不得不再次走上坡或者等待公升降機來載你。michael想知道在乙個區域中最長的滑坡。區域由乙個二維陣列給出。陣列的每個數字代表點的高度。下面是乙個例子：

1 2 3 4 5

16 17 18 19 6

15 24 25 20 7

14 23 22 21 8

13 12 11 10 9

乙個人可以從某個點滑向上下左右相鄰四個點之一，當且僅當高度減小。在上面的例子中，一條可行的滑坡為24－17－16－1（從24開始，在1結束）。當然25－24－23―┅―3―2―1更長。事實上，這是最長的一條。

輸入輸出格式

輸入格式：

輸入的第一行為表示區域的二維陣列的行數r和列數c（1≤r，c≤100）。下面是r行，每行有c個數，代表高度(兩個數字之間用1個空格間隔)。

輸出格式：

輸出區域中最長滑坡的長度。

輸入輸出樣例

輸入樣例#1：

5 5

1 2 3 4 5

16 17 18 19 6

15 24 25 20 7

14 23 22 21 8

13 12 11 10 9

輸出樣例#1：

25分析：百年難得一遇的大水題。從高的開始跑，記憶化搜尋一下，就是把每一高度可以延伸的最大距離記錄下來即可。

**：

const
maxn=500;
d:array[1..4,1..2] of longint=((-1,0),(1,0),
(0,-1),(0,1));
type
arr=record
x,y,s:longint;
end;
var map,f:array[0..maxn,0..maxn] of longint;
a:array[0..maxn*maxn] of arr;
r,c,sum:longint;
k:longint;
procedure
qsort
(l,r:longint);
var i,j,mid:longint;
t:arr;
begin
if l>=r then
exit;
i:=l; j:=r; mid:=a[(l+r)div
2].s;
repeat
while a[i].sdo inc(i);
while a[j].s>mid do dec(j);
if i<=j then
begin
t:=a[i];
a[i]:=a[j];
a[j]:=t;
inc(i);
dec(j);
end;
until i>=j;
qsort(l,j);
qsort(i,r);
end;
procedure
init;
var i,j:longint;
begin
fillchar(f,sizeof(f),0);
fillchar(map,sizeof(map),0);
readln(r,c);
k:=0; sum:=0;
for i:=1
to r do
for j:=1
to c do
begin
read(map[i,j]);
inc(k);
a[k].x:=i; a[k].y:=j;
a[k].s:=map[i,j];
end;
qsort(1,k);
end;
procedure
main;
var i,j,xx,yy:longint;
begin
for i:=1
to k do
for j:=1to4
dobegin
xx:=a[i].x+d[j,1]; yy:=a[i].y+d[j,2];
if (xx>=0) and (xx<=r) and (yy>=0) and (yy<=c) then
begin
if (f[a[i].x,a[i].y]+1>f[xx,yy]) and (map[a[i].x,a[i].y]then
begin
f[xx,yy]:=f[a[i].x,a[i].y]+1;
if f[xx,yy]>sum then sum:=f[xx,yy];
end;
end;
end;
write(sum+1);
end;
begin
init;
main;
end.

洛谷 P1434 滑雪

洛谷 p1434 滑雪

洛谷P1434滑雪

洛谷 P1434 滑雪

洛谷 P1434 滑雪

洛谷 p1434 滑雪

洛谷P1434滑雪

洛谷 P1434 滑雪

相關推薦