题解 - Vijos

0

I.ce LV 8 @ 2009-09-28 17:01:19

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

var f:array[1..1000,1..1000] of char;

i,j,n,m,p,k,x,xi,y,yi,maxx,maxy,minx,miny:longint;

procedure draw(x,y:longint);

var i:integer;

begin

f[x,y]:='+';f[x,y+4]:='+';

for i:=y+1 to y+3 do f[x,i]:='-';

f[x-1,y]:='|';f[x-1,y+4]:='|';f[x-1,y+5]:='/';

for i:=y+1 to y+3 do f[x-1,i]:=' ';

f[x-2,y]:='|';f[x-2,y+4]:='|';f[x-2,y+5]:=' ';f[x-2,y+6]:='+';

for i:=y+1 to y+3 do f[x-2,i]:=' ';

f[x-3,y]:='+';f[x-3,y+4]:='+';f[x-3,y+5]:=' ';f[x-3,y+6]:='|';

for i:=y+1 to y+3 do f[x-3,i]:='-';

f[x-4,y+1]:='/';f[x-4,y+5]:='/';f[x-4,y+6]:='|';

for i:=y+2 to y+4 do f[x-4,i]:=' ';

f[x-5,y+2]:='+';f[x-5,y+6]:='+';

for i:=y+3 to y+5 do f[x-5,i]:='-';

if x>maxx then maxx:=x;

if x-5

0

abner123 LV 4 @ 2009-09-28 13:56:59

program drawing;

var g:array[1..600,1..600] of char;

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

min,m,n,i,j,k,l,x,y,t1,t2:integer;

procedure draw(x,y:integer);

var i,j:integer;

begin

for i:=1 to 6 do

for j:=1 to 7 do

if ((i=1) and ((j=3) or (j=7)))

or (((i=3) or (i=6)) and ((j=1) or (j=5)))

or ((i=4) and (j=7))

then g[x+i-1,y+j-1]:='+'

else

if ((i=1) and (j>=4) and (j=2) and (j=2) and (i=4) and (it1 then t1:=x;

draw(x,y);

end;

end;

for i:=1 to t1+5 do

begin

for j:=1 to t2+6 do

write(g);

writeln;

end;

{close(input);close(output);}

end.

0

=InSky LV 8 @ 2009-09-20 10:09:58

JIONG

行规模 H=MAX{4+2*（M-I+1）+3*（A-1）}

列规模 L=4*N+1+2*M

0

404399971 LV 8 @ 2009-09-12 17:46:56

这道题让我太激动了！！！

0

liurj LV 8 @ 2009-09-11 09:21:33

同楼下……

左上角才是（1，1）……

0

ZeroZWT LV 7 @ 2009-09-08 17:29:55

典型麻烦题，细心点就好，数学规律也不是很难找= =

0

qq9xg LV 7 @ 2009-09-05 21:22:10

#include

using namespace std;

char a[500][300];

int a1[50][50],a2[50][50][2];

void print(int i,int j)

{

a[i][j]=a[j]=a[i][j+4]=a[j+4]=a[j+2]=a[j+6]=a[j+6]='+';

a[i][j+1]=a[i][j+2]=a[i][j+3]=a[j+1]=a[j+2]=a[j+3]=a[j+3]=a[j+4]=a[j+5]='-';

a[j]=a[j]=a[j+4]=a[j+4]=a[j+6]=a[j+6]='|';

a[j+1]=a[j+5]=a[j+5]='/';

a[j+1]=a[j+2]=a[j+3]=a[j+1]=a[j+2]=a[j+3]=a[j+2]=a[j+3]=a[j+4]=a[j+5]=a[j+5]=' ';

}

main()

{

int s,n,m,i,j,m1=0,n1=0,x,y,t;

cin>>m>>n;

for(i=0;ia1[i][j];

for(i=0;in1)n1=s;

}

for(i=0;i

0

kimiyoung LV 10 @ 2009-08-28 21:59:47

其实样例输出有点小错误，应为如下：

......+---|+---|+...+---|+

..+---|+ / /|../ /|

./ /|-+---|+ |.+---|+ |

+---|+ |/ /| +-| | +

| | +---|+ |/+---|+ |/|

| |/ /| +/ /|-+ |

+---|+---|+ |/+---|+ |/| +

| | | +-| | + |/.

| | |/ | |/| +..

+---|+---|+---|+---|+ |/...

| | | | | +....

| | | | |/.....

+---|+---|+---|+---|+......

0

石明鑫 LV 8 @ 2009-08-16 11:50:55

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

原本以为很难！

40分钟搞定，一次AC！

0

fammiebright LV 9 @ 2009-08-15 14:58:08

哈哈，一点公式也没有，最最最最最笨的模拟，大家能看懂不？

#include

using namespace std;

char f[512][512];

int a[51][51],line[512],col[512];

void work(int x,int y)

{

f[x][y]=f[x][y+4]=f[x+2][y+6]=f[x+3][y]=f[x+3][y+4]=f[x+5][y+2]=f[x+5][y+6]='+';

f[x][y+1]=f[x][y+2]=f[x][y+3]=f[x+3][y+1]=f[x+3][y+2]=f[x+3][y+3]=f[x+5][y+3]=f[x+5][y+4]=f[x+5][y+5]='-';

f[x+1][y]=f[x+2][y]=f[x+1][y+4]=f[x+2][y+4]=f[x+3][y+6]=f[x+4][y+6]='|';

f[x+4][y+1]=f[x+4][y+5]=f[x+1][y+5]='/';

f[x+1][y+1]=f[x+1][y+2]=f[x+1][y+3]=f[x+2][y+1]=f[x+2][y+2]=f[x+2][y+3]=f[x+4][y+2]=f[x+4][y+3]=f[x+4][y+4]=f[x+2][y+5]=f[x+3][y+5]=' ';

line[x]=line[x+1]=line[x+2]=line[x+3]=line[x+4]=line[x+5]=1;

col[y]=col[y+1]=col[y+2]=col[y+3]=col[y+4]=col[y+5]=col[y+6]=1;

}

int main()

{

int n,m,i,j,k,x,y,xx,yy,xxx,yyy;

cin>>n>>m;

memset(f,46,sizeof(f));

for(i=0;ia[i][j];

xxx=yyy=2*(n-1);

for(i=0;i

0

yangbei LV 8 @ 2009-08-11 22:58:49

..............+---|+......

............./ /|......

............+---|+ |......

..........+-| | +......

........./ | |/|......

........+---|+---|+ |......

........| | | +......

........| | |/|......

........+---|+---|+ |......

......./ /| | +......

......+---|+ | |/|......

......| | +---|+ |......

......| |/ /| +......

......+---|+---|+ |/|......

......| | | +---|+....

......| | |/ /|-+..

......+---|+---|+---|+ |/|-+

......| | | | + |/|

......| | | |/| + |

......+---|+---|+---|+ |/| +

......| | | | + |/|

......| | | |/| + |

......+---|+---|+---|+ |/| +

......| | | | + |/|

......| | | |/| + |

......+---|+---|+---|+ |/| +

......| | | | + |/|

......| | | |/| + |

......+---|+---|+---|+ |/| +

......| | | | + |/|

......| | | |/| + |

...../+---|+---|+---|+ |/| +

....+-| | | | + |/|

....| | | | |/| + |

....| +---|+---|+---|+ |/| +

....+-| | | | + |/|

.../ | | | |/| + |

..+---|+---|+---|+---|+ |/| +

..| | | | | + |/|

..| | | | |/| + |

..+---|+---|+---|+---|+ |/| +

./ /| | | | + |/|

+---|+ | | | |/| + |

| | +---|+---|+---|+ |/| +

| |/ /| | | + |/|

+---|+---|+ | | |/| + |

| | | +---|+---|+ |/| +

| | |/ /| | + |/.

+---|+---|+---|+ | |/| +..

| | | | +---|+ |/...

| | | |/ /| +....

+---|+---|+---|+---|+ |/.....

| | | | | +......

| | | | |/.......

+---|+---|+---|+---|+........

那程序画的

哈哈，盘山路，好有意象

0

skyline80386 LV 7 @ 2009-08-09 09:42:18

好恶心的题目

0

hwze66 LV 8 @ 2009-08-08 14:34:32

哇，满世界都是牛人啊。

当年看一眼就放弃…………

现在看一眼，还是放弃…………

-_-|||

0

junfpc LV 8 @ 2009-07-27 15:05:05

一次AC

编译通过...

├ 测试数据 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[1..50,1..50] of integer;

op:array[1..1000,1..1000] of char;

maxxm,maxym,maxxo,maxyo,a,b,c,y,x:integer;

procedure draw(y,x:integer);

begin

op[y+5,x+2]:='+';op[y+5,x+3]:='-';op[y+5,x+4]:='-';op[y+5,x+5]:='-';op[y+5,x+6]:='+';

op[y+4,x+1]:='/';op[y+4,x+2]:=' ';op[y+4,x+3]:=' ';op[y+4,x+4]:=' ';op[y+4,x+5]:='/';op[y+4,x+6]:='|';

op[y+3,x]:='+';op[y+3,x+1]:='-';op[y+3,x+2]:='-';op[y+3,x+3]:='-';op[y+3,x+4]:='+';op[y+3,x+5]:=' ';op[y+3,x+6]:='|';

op[y+2,x]:='|';op[y+2,x+1]:=' ';op[y+2,x+2]:=' ';op[y+2,x+3]:=' ';op[y+2,x+4]:='|';op[y+2,x+5]:=' ';op[y+2,x+6]:='+';

op[y+1,x]:='|';op[y+1,x+1]:=' ';op[y+1,x+2]:=' ';op[y+1,x+3]:=' ';op[y+1,x+4]:='|';op[y+1,x+5]:='/';

op[y,x]:='+';op[y,x+1]:='-';op[y,x+2]:='-';op[y,x+3]:='-';op[y,x+4]:='+';

if y+5>maxyo then maxyo:=y+5;

end;

begin

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

read(maxxm,maxym);

for a:=1 to maxxm do

for b:=1 to maxym do

read(map[a,b]);

maxxo:=maxym*4+1+maxxm*2;

maxyo:=0;

//main

for a:=1 to maxxm do

begin

for b:=1 to maxym do

begin

y:=(maxxm-a)*2+1;

x:=(maxxm-a)*2+(b-1)*4+1;

for c:=1 to map[a,b] do

begin

draw(y,x);

y:=y+3;

end;

end;

end;

//main

for a:=maxyo downto 1 do

begin

for b:=1 to maxxo do

write(op[a,b]);

writeln;

end;

end.

0

laz LV 10 @ 2009-07-19 11:02:02

好龌龊的题目。。囧rz...

const

b:array [1..6,1..7] of char=

((chr(0),chr(0),'+','-','-','-','+'),

(chr(0),'/',' ',' ',' ','/','|'),

('+','-','-','-','+',' ','|'),

('|',' ',' ',' ','|',' ','+'),

('|',' ',' ',' ','|','/',chr(0)),

('+','-','-','-','+',chr(0),chr(0)));

var

m,maxi,maxj,n,i,j,k,p,pp:longint;

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

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

begin

read(m,n);

for i:=1 to m do

for j:=1 to n do

read(a);

for i:=1 to m do

for j:=1 to n do

for pp:=1 to a do

begin

for k:=1 to 6 do

for p:=1 to 7 do

begin

if b[6-k+1,p]chr(0) then

c[(m-i)*2+(pp-1)*3+k,(m-i)*2+(j-1)*4+p]:=b[6-k+1,p];

if (m-i)*2+pp*3+3>maxi then maxi:=(m-i)*2+pp*3+3;

end;

end;

maxj:=n*4+1+m*2;

for i:=1 to maxi do

begin

for j:=1 to maxj do

if c[maxi-i+1,j]=chr(0) then

write('.') else write(c[maxi-i+1,j]);

writeln;

end;

end.

0

SecretAgent LV 10 @ 2009-07-01 14:09:18

很有意思

秒杀

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

0

YY_0227 LV 8 @ 2009-06-29 23:19:41

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

交了不下十遍，终于过了

55555555

0

how LV 10 @ 2009-06-28 14:25:21

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

当年没时间....只能骗个10分.....

..+---|+

./ /|

+---|+ |

| | +

| |/.

+---|+.. 现在看起来是超(简单&&BT)的水题....

0

eagle_yin_yu LV 5 @ 2009-06-20 15:41:11

var m,n,i,j:integer; t:string;

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

s:array [1..500] of string;

procedure draw(a,b:integer);

var i:integer;

begin

s[a]:='+';

s[a]:='+';

s[a+1]:='/';

s[a+1]:='/';

s[a+2]:='+';

s[a+2]:='+';

s[a+3]:='+';

s[a+4]:='/';

s[a+5]:='+';

s[a+5]:='+';

for i:=1 to 3 do

begin

s[a]:='-';

s[a+1]:=' ';

s[a+2]:='-';

s[a+3]:=' ';

s[a+4]:=' ';

s[a+5]:='-';

end;

for i:=1 to 2 do

begin

s[a+2+i]:='|';

s[a+2+i]:='|';

s[a+i]:='|';

s[a+i+1]:=' ';

end;

end;

procedure fill;

var i,j,k:integer;

begin

for i:=1 to 500 do

for j:=1 to (4*n+2*m+1) do

s[i]:=s[i]+'.';

for i:=m downto 1 do

for j:=1 to n do

for k:=1 to a[m-i+1,j] do

draw(500-4-2*i-3*(k-1),2*i-1+4*(j-1));

end;

begin

readln(m,n);

for i:=1 to m do

for j:=1 to n do

read(a);

fill;

for i:=1 to (4*n+2*m+1) do

t:=t+'.';

for i:=1 to 500 do

if s[i]t then writeln(s[i]);

end.

0

zhengfangyi LV 10 @ 2009-06-06 22:19:52

var

t:array[1..400,1..400] of char;

m,n,maxh,i,j,h,maxw,x0,y0,mh:longint;

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

begin

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

readln(m,n);

maxh:=0;

for i:=1 to m do

for j:=1 to n do

begin

read(a);

if a>maxh then

maxh:=a;

end;

for h:=maxh downto 1 do

for i:=1 to m do

for j:=1 to n do

begin

if a>maxh-h then

begin

x0:=(4*j-3)+2*m-2-2*(i-1);

y0:=400-(maxh-h)*3+2-2*m+(i-1)*2;

t[y0,x0]:='+';

t[y0,x0+1]:='-';

t[y0,x0+2]:='-';

t[y0,x0+3]:='-';

t[y0,x0+4]:='+';

t[y0-1,x0]:='|';

t[y0-1,x0+1]:=' ';

t[y0-1,x0+2]:=' ';

t[y0-1,x0+3]:=' ';

t[y0-1,x0+4]:='|';

t[y0-1,x0+5]:='/';

t[y0-2,x0]:='|';

t[y0-2,x0+1]:=' ';

t[y0-2,x0+2]:=' ';

t[y0-2,x0+3]:=' ';

t[y0-2,x0+4]:='|';

t[y0-2,x0+5]:=' ';

t[y0-2,x0+6]:='+';

t[y0-3,x0]:='+';

t[y0-3,x0+1]:='-';

t[y0-3,x0+2]:='-';

t[y0-3,x0+3]:='-';

t[y0-3,x0+4]:='+';

t[y0-3,x0+5]:=' ';

t[y0-3,x0+6]:='|';

t[y0-4,x0+1]:='/';

t[y0-4,x0+2]:=' ';

t[y0-4,x0+3]:=' ';

t[y0-4,x0+4]:=' ';

t[y0-4,x0+5]:='/';

t[y0-4,x0+6]:='|';

t[y0-5,x0+2]:='+';

t[y0-5,x0+3]:='-';

t[y0-5,x0+4]:='-';

t[y0-5,x0+5]:='-';

t[y0-5,x0+6]:='+';

end;

end;

h:=400;

maxw:=0;

while h>0 do

begin

i:=400;

while i>0 do

if t[h,i]='.' then

dec(i)

else

break;

if i=0 then

break

else

begin

if i>maxw then

maxw:=i;

dec(h);

end;

end;

mh:=h+1;

for h:=mh to 400 do

begin

for i:=1 to maxw do

write(t[h,i]);

writeln;

end;

end.

巨麻烦的模拟。

题解

94 条题解

立体图

信息

状态

开发

支持

题解

94 条题解

立体图

信息

状态

开发

支持

还没有账户？

登录