NOIP2008 立体图

题目描述

小渊是个聪明的孩子，他经常会给周围的小朋友们将写自己认为有趣的内容。最近，他准备给小朋友们讲解立体图，请你帮他画出立体图。

小渊有一块面积为m*n的矩形区域，上面有m*n个边长为1的格子，每个格子上堆了一些同样大小的积木（积木的长宽高都是1），小渊想请你打印出这些格子的立体图。我们定义每个积木为如下格式，并且不会做任何翻转旋转，只会严格以这一种形式摆放：

每个顶点用1个加号’+’表示，长用3个”-”表示，宽用1个”/”，高用两个”|”表示。字符’+’,”-”,”/”,”|”的ASCII码分别为43，45，47，124。字符’.’(ASCII码46)需要作为背景输出，即立体图里的空白部分需要用’.’来代替。立体图的画法如下面的规则：

若两块积木左右相邻，图示为：

若两块积木上下相邻，图示为：

若两块积木前后相邻，图示为：

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

输入输出格式

输入格式：

输入文件drawing.in第一行有用空格隔开的2个整数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列才能按规定输出立体图。

输入输出样例

输入样例#1：

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

输出样例#1：

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

拿到题目以后就感觉如果要编好这道题需要一定的耐心(嗯这么多立方体会被搞得有点烦)。。。

思路

建立一个画布，我们在画布上面打印立方体，我们可以用覆盖打印的方法来解决前后立方体在画布上的前后问题。
要覆盖打印，我们需要从左到右，从后到前，从下到上打印。
建立一个print(x,y)过程来打印坐标为x,y的立方体，(x,y)这个点为这个立方体的左下角.

然后就有了几件非常有趣的事情，要打印这些立方体，给出它的行号，列好以及它在第几层，求它的左下角的点的坐标。
我们设h为此立方体在从前到后第h行，c为此立方体从下往上第c层，l为此立方体从左到右第l个。
则得到print(x,y)的坐标

x=1+3l+2h
y=1+2h+3c

然后使用print(x,y)来打印就好啦！

代码

 var
         p:array[..,..] of longint;
         map:array[..,..] of char;
         qh,qk,mb:longint;
         n,m:longint;
         i,j,k,xx,yy:Longint;
 procedure print(x,y:longint);  //print在画布上打印立方体
 begin
         map[x,y]:='+';map[x,y+]:='-';map[x,y+]:='-';map[x,y+]:='-';map[x,y+]:='+';
         map[x-,y]:='|';map[x-,y+]:=' ';map[x-,y+]:=' ';map[x-,y+]:=' ';map[x-,y+]:='|';map[x-,y+]:='/';
         map[x-,y]:='|';map[x-,y+]:=' ';map[x-,y+]:=' ';map[x-,y+]:=' ';map[x-,y+]:='|';map[x-,y+]:=' ';map[x-,y+]:='+';
         map[x-,y]:='+';map[x-,y+]:='-';map[x-,y+]:='-';map[x-,y+]:='-';map[x-,y+]:='+';map[x-,y+]:=' ';map[x-,y+]:='|';
         map[x-,y+]:='/';map[x-,y+]:=' ';map[x-,y+]:=' ';map[x-,y+]:=' ';map[x-,y+]:='/';map[x-,y+]:='|';
         map[x-,y+]:='+';map[x-,y+]:='-';map[x-,y+]:='-';map[x-,y+]:='-';map[x-,y+]:='+';
 end;
 begin
         readln(m,n);
         qh:=;
         qk:=;
         mb:=;
         fillchar(map,sizeof(map),'.');
         for i:=m downto  do
                 for j:= to n do
                 begin
                         read(p[i,j]);
                         if (+i*+p[i,j]*>qh) then
                                 qh:=+i*+p[i,j]*;
                         if (+j*+*i>qk) then
                                 qk:=+j*+*i;
                         if p[i,j]>mb then mb:=p[i,j];
                         //此处是一堆无用的代码
                 end;
         for k:= to mb do  //从底层往顶层
         begin
                 for i:=m downto  do   //从后排到前排
                 begin
                         for j:= to n do   //从左边到右边
                         begin
                                 if p[i,j]<= then continue;  //按照输入打印
                                 dec(p[i,j]);        //减掉已经打印的
                                 xx:=qh-(+(i-)*+(k-)*);  //计算print的x
                                 yy:=+*(j-)+*(i-);           //计算print的y
                                 print(xx,yy)   //打印
                         end;
                 end;
         end;
         for i:= to qh- do
         begin
                 for j:= to qk do
                         write(map[i,j]);   //输出
                 writeln;
         end;
 end.    

画布要开够大但是不要太大爆掉，我就第一次交的时候没有注意画布数组的大小直接爆掉（自己骂自己傻逼），改了以后A掉，自认为挺水的。