水t...

数组一定要开大啊！！！

var i,j,k,l,m,n,max,min:longint;a:array[0..2500]of record h,x,y:longint;end;

f:array[1..2500]of longint;

readln(n);

for i:=1 to n do

for j:=1 to n do

begin

inc(k);

with a[k] do

begin read(h);x:=i;y:=j;end;

end;

qsort(1,k);

f[1]:=0;

for i:=2 to k do

for j:=1 to i-1 do

f[i]:=maxn(f[i],f[j]+sqr(abs(a[j].x-a[i].x)+abs(a[j].y-a[i].y)));

writeln(f[k]);

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

LIS即可

一不小心就开了[0..maxn],应该是[0..maxn*maxn]...orz

把每个矩阵中的每个元素映射到一个一维数组里,再做一个DP即可

for(i=0;i

o((n^2)/2)....排序都不要

一次过

快排+O(n^3)的DP=AC

难得

#include

#define exp(x) ((x)*(x))

#define max(x,y) ((x)>(y)?(x):(y))

int N;

int ax[2501];

int ay[2501];

int f[2501]={0};

void init(){

scanf("%d",&N);

int t;

for(int i=1;i

编译通过...

├ 测试数据 01：运行时错误...|错误号: -1073741819

├ 测试数据 02：运行时错误...|错误号: -1073741819

├ 测试数据 03：运行时错误...|错误号: -1073741819

├ 测试数据 04：运行时错误...|错误号: -1073741819

├ 测试数据 05：运行时错误...|错误号: -1073741819

├ 测试数据 06：运行时错误...|错误号: -1073741819

├ 测试数据 07：运行时错误...|错误号: -1073741819

├ 测试数据 08：运行时错误...|错误号: -1073741819

├ 测试数据 09：运行时错误...|错误号: -1073741819

├ 测试数据 10：运行时错误...|错误号: -1073741819

什么啊？

反对啊。。。数据竟然这样。。

简单的lis.....

晕,50*50=250，白白交了一次run time error..........

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 56ms

├ 测试数据 08：答案正确... 9ms

├ 测试数据 09：答案正确... 9ms

├ 测试数据 10：答案正确... 56ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：130ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：541ms

ps:我是小号，copy的大号的程序，，大号秒杀。。为什么。。

一次AC。。秒杀。。

比较水的DP。。

弱弱的方法：快排+导弹拦截（建议拉成直线）

（PS：回楼上，数组开到250可以过。。）

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

好背啊!

数组只开到250 只有40分

改成2500的就AC了

哎 希望NOIP的时候运气好点

一个程序,两个评测机,两个结果...

Vijos Dolphin

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 9ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：运行超时...

---|---|---|---|---|---|---|---|-

Unaccepted 有效得分：90 有效耗时：9ms

Vijos Dragon

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 25ms

├ 测试数据 08：答案正确... 25ms

├ 测试数据 09：答案正确... 25ms

├ 测试数据 10：答案正确... 25ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：100ms

dolphin不行了么??

动归,排序都不用

f[n*n]:=0;

for i:=n*n-1 downto 1 do

for j:=i+1 to n*n do

f[i]:=max(f[i],f[j]+suan(i,j));

write(f[1]);

program lv;

type

node=record

x,y,hi:integer;

end;

var

temp:node;

i,j,k,n:integer;

arr:array [1..2500] of node;

ans:array [1..2500] of longint;

function get(a,b:node):longint;

begin

get:=(abs(a.x-b.x)+abs(a.y-b.y))*(abs(a.x-b.x)+abs(a.y-b.y));

end;

begin

read(n);

for i:=1 to n do

for j:=1 to n do

begin

read(arr.hi);

arr.x:=i;

arr.y:=j;

end;

for i:=1 to n*n do

for j:=i+1 to n*n do

if arr[i].hi