首页 > 代码库 > 2008立体图
2008立体图
小渊是个聪明的孩子，他经常会给周围的小朋友们讲些自己认为有趣的内容。最近，他准备给小朋友们讲解立体图，请你帮他画出立体图。
小渊有一块面积为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
......+---+---+...+---+
..+---+ / /|../ /|
./ /|-+---+ |.+---+ |
+---+ |/ /| +-| | +
| | +---+ |/+---+ |/|
| |/ /| +/ /|-+ |
+---+---+ |/+---+ |/| +
| | | +-| | + |/.
| | |/ | |/| +..
+---+---+---+---+ |/...
| | | | | +....
| | | | |/.....
+---+---+---+---+......
题解：
模拟。
这是一道比较难的模拟，就是每一个都模拟下去（他又上下和左右的格式了，仿照一下就行了），具体请看程序。
var n,m,i,j,k,ii,jj,x,y:longint;
ans:array[0..1001,0..1001]of char;
a:array[0..51,0..51]of longint;
s:array[1..6,1..7]of char=
((chr(33),chr(33),‘+‘,‘-‘,‘-‘,‘-‘,‘+‘),
(chr(33),‘/‘,‘ ‘,‘ ‘,‘ ‘,‘/‘,‘|‘),
(‘+‘,‘-‘,‘-‘,‘-‘,‘+‘,‘ ‘,‘|‘),
(‘|‘,‘ ‘,‘ ‘,‘ ‘,‘|‘,‘ ‘,‘+‘),
(‘|‘,‘ ‘,‘ ‘,‘ ‘,‘|‘,‘/‘,chr(33)),
(‘+‘,‘-‘,‘-‘,‘-‘,‘+‘,chr(33),chr(33)));
begin
readln(n,m);
for i:=1 to n do
for j:=1 to m do read(a[i,j]);
for i:=1 to n do
for j:=1 to m do
if (n-i)*2+(a[i,j]+1)*3>x then x:=(n-i)*2+(a[i,j]+1)*3;
y:=m*4+n*2+1;
for i:=1 to x do
for j:=1 to y do ans[i,j]:=‘.‘;
for i:=1 to n do
for j:=1 to m do
for k:=1 to a[i,j] do
for ii:=1 to 6 do
for jj:=1 to 7 do
if s[6-ii+1,jj]<>chr(33) then
ans[(n-i)*2+(k-1)*3+ii,(n-i)*2+(j-1)*4+jj]:=s[6-ii+1,jj];
for i:=x downto 1 do
begin
for j:=1 to y do write(ans[i,j]);
writeln;
end;
end.
2008立体图