【NOIP2008PJ】立体图

题目描述
小渊是个聪明的孩子，他经常会给周围的小朋友们讲些自己认为有趣的内容。最近，他准备给小朋友们讲解立体图，请你帮他画出立体图。
小渊有一块面积为m*n的矩形区域，上面有m*n个边长为1的格子，每个格子上堆了一些同样大小的吉姆（积木的长宽高都是1），小渊想请你打印出这些格子的立体图。我们定义每个积木为如下格式，并且不会做任何翻转旋转，只会严格以这一种形式摆放：
每个顶点用1个加号’+’表示，长用3个”-“表示，宽用1个”/”表示，高用两个”|”表示。字符’+’ ‘-‘’/’ ‘|’的ASCII码分别为43，45，47，124。字符’.’（ASCII码46）需要作为背景输出，即立体图里的空白部分需要用’.’代替。立体图的画法如下面的规则：

立体图中，定义位于第(m,1)的格子（即第m行第1列的格子）上面自底向上的第一块积木（即最下面的一块积木）的左下角顶点为整张图最左下角的点。

输入
输入文件drawing.in第一行有用空格隔开的两个整数m和n，表示有m*n个格子（1<=m，n<=50）。
接下来的m行，是一个m*n的矩阵，每行有n个用空格隔开的整数，其中第i行第j列上的整数表示第i行第j列的格子上摞有多少个积木（1<=每个格子上的积木数<=100）。

输出
输出文件drawing.out中包含题目要求的立体图，是一个K行L列的字符矩阵，其中K和L表示最少需要K行L列才能按规定输出立体图。

样例输入

3 4
2 2 1 2
2 2 1 1
3 2 1 2

样例输出

数据范围限制

如题

TJ

纯暴力。。。

BC

uses math;
const fg:array[1..6,1..7]of char=('..+---+',
                                  './   /|',
                                  '+---+ |',
                                  '|   | +',
                                  '|   |/.',
                                  '+---+..');
var
        map:array[1..2000,1..2000]of char;
        a:array[1..50,1..50]of longint;
        i,j,k,x,y,n,m,gao,kuan:longint;
        p:boolean;
procedure print(x1,y1:longint);
var
        i,j:longint;
begin
        for i:=x1-5 to x1 do
                for j:=y1-6 to y1 do if fg[i-x1+6,j-y1+7]<>'.' then map[i,j]:=fg[i-x1+6,j-y1+7];
end;
begin
        assign(input,'drawing.in');reset(input);
        assign(output,'drawing.out');rewrite(output);
        readln(n,m);
        kuan:=m*4+n*2+1;
        for i:=1 to n do
                for j:=1 to m do
                begin
                        read(a[i,j]);
                        gao:=max(gao,a[i,j]*3+1+i*2);
                end;
        for i:=1 to gao do
                for j:=1 to kuan do map[i,j]:='.';
        for i:=1 to n do
        begin
                for j:=1 to m do
                begin
                        x:=gao-n*2+i*2;
                        y:=j*4+1+n*2-(i-1)*2;
                        for k:=1 to a[i,j] do
                        begin
                                print(x,y);
                                x:=x-3;
                        end;
                end;
        end;
        for i:=1 to gao do
        begin
                p:=false;
                for j:=1 to kuan do
                if map[i,j]<>'.' then
                begin
                        p:=true;
                        break;
                end;
                if p then
                begin
                        for j:=1 to kuan do write(map[i,j]);
                        writeln;
                end;
        end;
        close(input);close(output); 
end.