【NOIP2008PJ】立体图

此题暴力构图即可。

var
        a:array[1..50,1..50] of longint;
        jm:array[1..500,1..500] of char;
        m,n,i,j,k,t,zdx,zdy,x,y:longint;
procedure fz(i,j:longint);
begin
        jm[i,j]:='+';
        jm[i-1,j]:='|';
        jm[i-2,j]:='|';
        jm[i-3,j]:='+';
        jm[i,j+1]:='-';
        jm[i,j+2]:='-';
        jm[i,j+3]:='-';
        jm[i,j+4]:='+';
        jm[i-1,j+4]:='|';
        jm[i-2,j+4]:='|';
        jm[i-3,j+4]:='+';
        jm[i-3,j+3]:='-';
        jm[i-3,j+2]:='-';
        jm[i-3,j+1]:='-';
        jm[i-1,j+1]:=' ';
        jm[i-1,j+2]:=' ';
        jm[i-1,j+3]:=' ';
        jm[i-2,j+1]:=' ';
        jm[i-2,j+2]:=' ';
        jm[i-2,j+3]:=' ';
        jm[i-4,j+2]:=' ';
        jm[i-4,j+3]:=' ';
        jm[i-4,j+4]:=' ';
        jm[i-2,j+5]:=' ';
        jm[i-3,j+5]:=' ';
        jm[i-4,j+1]:='/';
        jm[i-4,j+5]:='/';
        jm[i-4,j+6]:='|';
        jm[i-3,j+6]:='|';
        jm[i-2,j+6]:='+';
        jm[i-1,j+5]:='/';
        jm[i-5,j+2]:='+';
        jm[i-5,j+3]:='-';
        jm[i-5,j+4]:='-';
        jm[i-5,j+5]:='-';
        jm[i-5,j+6]:='+';
end;
begin
        assign(input,'drawing.in');reset(input);
        assign(output,'drawing.out');rewrite(output);
        fillchar(jm,sizeof(jm),'.');
        readln(n,m);
        zdx:=-1;
        for i:=1 to n do
                for j:=1 to m do
                begin
                        read(a[i,j]);
                        t:=(n-i+1)*2+1+3*a[i,j];
                        if t>zdx then zdx:=t;
                end;
        zdy:=m*4+1+n*2;
        x:=zdx-2*(n-1);
        y:=2*n-1;
        for i:=1 to n do
                for j:=1 to m do
                        for k:=1 to a[i,j] do
                                fz(x-(k-1)*3+(i-1)*2,y+(j-1)*4-(i-1)*2);
        for i:=1 to zdx do
        begin
                for j:=1 to zdy do
                        write(jm[i,j]);
                writeln;
        end;
        close(input);
        close(output);
end.