底歇....底歇.....

判断顶点时我写成了div 2.....

交N多回才发现......

只需考虑倒着的三角形，所以递推方程可以这样---|--

f:=min(f,f,f)+1;

读入时为了省事，把空格当成#读入了......

注意判断顶点....

一定要注意倒正！

数据太弱了，没有考虑顶点可行性的能得90分。

索性把空格也读了，当成'#'来处理。方便：）

var a:array[0..500,0..500]of longint;

b:array[0..500,0..500]of boolean;

n:longint;

function min(a,b:longint):longint;

begin

if a>b then exit(b)

else exit(a);

end;

procedure init;

var i,j:longint;

ch:char;

begin

readln(n);

for i:=1 to n do

begin

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

begin

read(ch);

if (ch='-') then

begin

b:=true;

if odd(i+j+1) then a:=1;

end;

end;

readln;

end;

end;

procedure work;

var i,j,t:longint;

begin

t:=0;

for i:=n-1 downto 1 do

for j:=3 to n+n-i do

if odd(i+j+1) then

if (b and b) then

begin

a:=min(a,a)+1;

if a>t then t:=a;

end;

writeln(t*t);

end;

begin

init;

work;

end.

把数组改为

[0..101,0..201]

然后果然AC了

哎,我是知道为什么通过率这么低了

注意顶点可能是倒置的， 这种情况应该给与去除。

可以使用奇偶判断来排除不符合要求的三角形。

其他就是简单DP了.

没有假数据。

暴力枚举。。。本来还想着二分。。。

事实证明,倒三角形是完全不必考虑的————为这个倒三角我多错了n次..

无论考虑没考虑答案也是对的————大概是数据的失误吧！

后是顶点的问题,注意一定要是奇数！！！！！！

这是题目理解了……大家一定要吸收鄙人失败的教训啊！

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

我AAAAAAAAAAAAAAAAAAAAA啦

7次

这个题目描述 。。- - 够风骚。。楞是理解了好久 。。原来用不到 。。。

Flag 　　 Accepted

题号 　　P1063

类型(?) 　　动态规划

通过 　　1000人

提交 　　4503次

通过率 　　22%

难度 　　2

庆祝第1000个AC！

f[i][j]=min{f[j],f[j+1],f[j+2]}+1;

最后输出 最大的 f[i][j]的平方 （条件：j必须为奇数）

编译通过...

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

├ 测试数据 02：答案错误...　├ 标准行输出

　├ 错误行输出

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

├ 测试数据 04：答案错误...程序输出比正确答案长

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

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

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

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

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

├ 测试数据 10：运行超时|无输出...

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

记录号 Flag 得分 记录信息 环境 评测机 程序提交时间

R1124822 Accepted 100 From 小猪乐乐－

　 P1063 FPC Vijos Dolphin 2009-1-28 19:36:09

From Tsuzuki

迎春舞会之集体舞 迎春舞会 系列

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

var

max,min,x,y,z,m,n,i,j,t:longint;

a:array[0..1000,0..1000]of char;

b:array[0..1000,0..1000]of longint;

procedure zh(x,y,z:longint);

begin

min:=x;

if y

注意三角形顶点的奇偶性判断

数据没问题

横的要开300 纵的100就够了 n没有错

交了6遍过了，好开心～～

挺不赖的

for (i=2;i

这dp很j！很想抽他

日 这题竟然给假的数据范围！标准范围过不了最后一个点！。

第一次测评说

错误输出64标准81 特惊异 竟然给答案了。

查了半天查不出错就 if 64 then write 81 结果前两个点WA了 = =~晕死 天上没馅饼掉啊

后来看题解改了下数据范围全longint+500*500 AC了 鄙视数据范围。

注意细节就好了

难度 大概 是在 坐标 换算 上吧

dp 比较简单 没搞头

数据 貌似 很 神奇 啊

我 坐标 换算 完全 错误 的 时候

竟然 过了 七个点。。。

太郁闷了。。

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

和通过率不符