枚举=AC

DP=AC

不管怎么做=AC

这题不是动态规划

var x,n,m,max,i,j:integer;

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

begin

readln(n,m);

for i:=1 to n do

for j:=1 to m do

begin

read(x);

if x=1 then begin

a:=a;

if a

bs数据.

刚才一不小心发了一个 100*100 Map数组的程序

竟然AC了。。

这数据，真是的。

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

用的O(m*n)方法。。。

不要被迷惑了，搜的就可以！

系统正在处理您的请求 请勿刷新此页……

您有新消息

请点击 这里 进入消息中心

44 / 78 (56%) 　 首页 站务 公告　|　题库/分类/原题 记录 比赛 团队 交流 讨论　|　U-Space 搜索 换肤　|　登出

公告 News >> 　　New! CSC WorkGroup 邀请赛II 按原计划原时间举行 (2008-9-4 14:39:42) 　　New! 热烈庆祝Vijos总评测记录突破80万条 (2008-9-2 6:33:35) 　　New! Vijos 交流板块开放 (2008-8-30 22:29:55) 　　New! CSC WorkGroup 邀请赛II (2008-8-30 0:12:12) 　　New! 简单的生活模拟赛 评测结束 (2008-8-30 0:10:00)

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

盖房子

语言环境选择 Free Pascal C++ C　 验证码

var

n,i,j,m,max:integer;

a:array[0..100,0..100]of integer;

function min(a,b,c:integer):integer;

begin

if a>b then min:=b else min:=a;

if c

编译通过...

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

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

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

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

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

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

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

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

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

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

一次AC了,不过是看过下楼的解题报告~~~

学了DP一个多月,很迷糊...

有待深入研究~~~

解题报告http://plfxy.blog.hexun.com/22595942_d.html

包含搜索和动规两种方法

好象开始对动态规划有点理解了~

状态转移方程为：

F[i, j] := MIN(F[i-1, j],F[i, j-1],F[i-1, j-1]) + 1 (if F[i, j]=1)

min{.......}就是求{....}里最小的一个；(自己另编写一个比较过程的程序）

这里对每一个i,j都是采用枚举的方法求。(即for i:=1 to n,for j:=1 to m)

求得哪一个f的值比max大就取代max(max初赋值为0）。

花了好大的力气做出来的啊……

发现这里的评测器不支持goto语句的啊 =_=///

其实这题用搜索很简单

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

var

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

score,n,m,i,j,k:longint;

//========================================

procedure init;

begin

readln(n,m);

fillchar(map,sizeof(map),0);

for i:=1 to n do

begin

for j:=1 to m do

read(map);

readln;

end;

end;

//========================================

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

begin

if a>b

then min:=b

else min:=a;

if cb

then max:=a

else max:=b;

end;

//========================================

procedure soso;

begin

for i:=1 to n do

for j:=1 to m do

if map=1

then begin

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

score:=max(score,map);

end;

end;

//========================================

begin

init;

soso;

write(score);

end.

简简单单,一次AC,嘿嘿!!!

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

DP

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

还是搜索好

不剪都过

你可以在这里写上你的解题思路或者解题方法等

但规定要求不能贴出任何有关于此题的程序代码

代码是哪天被清除掉的？

动归，转移方程式：min(m,m,m)

编译通过...

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

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

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

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

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

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

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

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

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

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

最裸的裸搜……

编译通过...

├ 测试数据 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：答案正确... 0ms

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

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

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

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

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

枚举每一行

记录第i列的位置向上数有几个1,记为f[i]

再看这个位置两侧连续多少个f值不小于f[i],个数记为j

f[i]与j中较小的就是正方形的边长,如果大于max,就更新max.

这题用DP和搜+简枝都能做，不过按OIBH上大牛的话说：

数据太弱了……

用搜索这题AC的大牛去做“月饼盒”吧……