脑残题，心烦

好高兴哦~~一次AC

把drawing程序改动下就OKLe

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

咱是第50个

真高兴

64行ws程序

用C++交了N次,最高10分

用PASCAL,1A且秒杀

Why？？？？？？？？？

50行

......

我恨......

与普及组第4题如出一辙

想想都头大

水题，但要小心k=0的情况……

cysdsp@163.com密码为cysdspss44

不难,1497改动下就行

另外想1次AC的小心第4个点

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

第三十个通过

--------庆祝第 28 个通过!!!!!!第 4 个点没过的请注意!!!!此点输入为输出为...................................................................................................................这点害我 交了 5 次才过~~~~~~另外, 最好是先做 1497 再做这题, 将程序改动一点就能 过这题了

做出此题者，此生无憾矣~~~！

从下午4点做到晚上8点，交了3次，终于AC了，艰辛啊。

算出背景的长宽，枚举每个小正方体的顶点，从下往上，从后往前覆盖。。

P.S:第20AC的，本人最好记录，纪念下~~~

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

Flag

　　Accepted

题号

　　P1491

类型(?)

　　其它

通过

　　18人

提交

　　70次

通过率

　　26%

难度

　　2

bt。累死我也。

第18个ac

感谢vivid puppy的大力支持！！！

88题纪念！！！！！！！！

88 / 180 (48%) 好吉利！！！

program o1;

const tmp:array[0..9,1..5,1..3] of integer=(((1,1,1),(1,0,1),(1,0,1),(1,0,1),(1,1,1))

,((0,0,1),(0,0,1),(0,0,1),(0,0,1),(0,0,1))

,((1,1,1),(0,0,1),(1,1,1),(1,0,0),(1,1,1))

,((1,1,1),(0,0,1),(1,1,1),(0,0,1),(1,1,1))

,((1,0,1),(1,0,1),(1,1,1),(0,0,1),(0,0,1))

,((1,1,1),(1,0,0),(1,1,1),(0,0,1),(1,1,1))

,((1,1,1),(1,0,0),(1,1,1),(1,0,1),(1,1,1))

,((1,1,1),(0,0,1),(0,0,1),(0,0,1),(0,0,1))

,((1,1,1),(1,0,1),(1,1,1),(1,0,1),(1,1,1))

,((1,1,1),(1,0,1),(1,1,1),(0,0,1),(1,1,1)));

var code,temp,high,minh,minl,max,k,n,m,i,j,h,l,maxh,maxl:integer;

ans:string;

a:array[1..50,1..50] of integer;

p:array[-304..304,-304..304] of char;

begin

fillchar(p,sizeof(p),'.');

readln(high);

readln(ans);

n:=5;m:=0;

for i:=1 to length(ans) do

begin

val(ans[i],temp,code);

m:=m+1;

for j:=1 to n do

for k:=m to m+2 do

if tmp[temp,j,k-m+1]0 then a[j,k]:=tmp[temp,j,k-m+1]*high else a[j,k]:=0;

m:=m+4;

end;

m:=m-2;

max:=max*3+3;

minh:=1;minl:=1;

for i:=1 to n do

for j:=1 to m do

begin

h:=max+(i-1)*2;l:=4*j+1+(n-i)*2;

if h>maxh then maxh:=h;

if l>maxl then maxl:=l;

if l-4

"注意,如果字符串第一个字符是7的话要在每一行前面加多8个'.'. "

这....题目里哪有说呀?

pay attention to the forth data

It's said that readtion is '0 8'

In fact the input is '0 0' but we should write when data is '0 8' what we should write

楼下的楼下的楼下的楼下那位，第4个点的输入是：

8

。。。。。。。。。。。。。。。。

老师逼的。。

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

有点疑问,前几个ac的怎么都是和出题者同一个学校的!

注意,如果字符串第一个字符是7的话要在每一行前面加多8个'.'.

我在原程序上改——201行！！

结果心血就因为数字间空格不够而白费！5555555……

现在终于对了。

第4个点输入

......

大汗

过了那么久才成功...