一、最简单的记忆化搜索（应该可以算DP）

题目（来自洛谷OJ）http://www.luogu.org/problem/show?pid=1434#

【不麻烦大家自己找了】
题目描述 Description
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更长。事实上，这是最长的一条。
输入输出格式 Input/output
输入格式：
输入的第一行为表示区域的二维数组的行数R和列数C（1≤R，C≤100）。下面是R行，每行有C个数，代表高度(两个数字之间用1个空格间隔)。
输出格式：
输出区域中最长滑坡的长度。

很明显（经典）的搜索题目，你可以从任意一点开始搜索可以滑多远，最后找出最大值。
呵呵……时间复杂度不忍直视
所以你可以这么考虑：从一个点开始能滑的最大距离是确定不变的，所以可以用f[x,y]记录下来，并用这个数据推算出其他数据f[x-1,y]，f[x+1,y]，f[x,y-1]，f[x,y+1]。
所以，开始吧！
AC程序：

 1 var n,m,i,j,ma:longint;a,f:array[1..100,1..100]of longint;//n m规模；i j循环变量； ma自然是最大值；a记录输入数据（地势高度）；f记录从这个点开始能滑多远
 2 function max(a,b:longint):longint;begin if a>b then exit(a) else exit(b);end;//比较两数大小
 3 function find(x,y:longint):longint;//从(x,y)开始能滑多远
 4 var s:longint;
 5 begin
 6   if f[x,y]>0 then exit(f[x,y]);   //已知，直接调用
 7   s:=0;                            //未知，重新搜索
 8   if(x>1)then                                                 //上下左右找最大，别忘边界
 9   if a[x-1,y]<a[x,y] then s:=find(x-1,y);
10   if(y>1)then
11   if a[x,y-1]<a[x,y] then s:=max(s,find(x,y-1));
12   if(x<n)then
13   if a[x+1,y]<a[x,y] then s:=max(s,find(x+1,y));
14   if(y<m)then
15   if a[x,y+1]<a[x,y] then s:=max(s,find(x,y+1));
16   f[x,y]:=s+1;                    //记忆，别忘+1，否则必0
17   exit(s+1);                      //同上
18 end;
19 begin
20   readln(n,m);
21   for i:=1 to n do
22   for j:=1 to m do
23   read(a[i,j]);
24   ma:=0;
25   for i:=1 to n do
26   for j:=1 to m do
27   ma:=max(ma,find(i,j));     //看似复杂度高，其实find(1,1)后整一路的数据都已记录好，直接调用
28   writeln(ma);
29 end.