175 条题解
-
0
hu649790637 LV 3 @ 2008-10-05 21:06:53
w j , t n !!!!!!!!!!!!!!!
-
0
program fdsa;
var
i,j,k,l,m,n,re,max:longint;
a:array[-10..1000,-10..1000] of char;
begin
read(m,n);
for i:=1 to m do
begin for j:=1 to m do read(a);
readln;
end;
max:=0;
for i:=1 to m-n+1 do
for j:=1 to m-n+1 do
begin
re:=0;
for k:=i to i+n-1 do
for l:=j to j+n-1 do
if a[k,l]='#' then
inc(re);
if re>max then max:=re;
end;
writeln(max);
end.
请问，这程序对吗？？为何只有60分呢？？？？
呜呜...我那可怜的AC率啊！！！
---|---|---|---|---|---|---|---|---|---|
这题我总共测了5次，都不对....................
不过，最后经过老牛们的讲解，终于....第三十七题AC了（终于，我拥有了一颗半星，纪念一下............. -
0
wan4316339 LV 3 @ 2008-09-24 13:04:25
虽然和楼下的一样困惑,但是为了水题,还是祝贺一下AC30
-
0
bochuan007 LV 3 @ 2008-08-30 17:44:40
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0ms天啊，我用了四重循环还是0MS！！！
严重困惑中。。。。
readln(m);
readln(n);
for i:= 1 to m do
readln(a[i]);
max:=0; re:=0;
if n 0 then
for i:= 0 to m-n do
for j:= 0 to m-n do
begin
re:=0;
for k:= 1 to n do
for l:= 1 to n do
if a[j+l] = '#' then
inc(re);
if re > max then max:=re;
end; -
0
记录号 Flag 得分 记录信息 环境 评测机 程序提交时间
R790864 Accepted 100 From 马天翼－
P1199 FPC Vijos Tiger 2008-8-29 10:54:51编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0ms
我的是tiger机评测的！ -
0
zhuojingwei LV 3 @ 2008-01-05 19:34:03
枚举都可以过的题目为什么要用DP
想不通
真的想不通 -
0
Fengyunfly LV 8 @ 2007-11-02 18:14:21
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0ms我是第1000个通过的人！纪念一下。。
-
0
sheepforever LV 3 @ 2007-11-02 18:05:09
数据。。很可爱的说
O(m^2n^2)。。。。
有O(mn)的算法么？
hu649790637
LV 3
@ 2008-10-05 21:06:53
