noip2008第四题立体图（pascal语言）

襄阳城 发表于 2009-12-10 12:36:14

noip2008第四题立体图（pascal语言）
<img src="http://img.baidu.com/img/iknow/icn_point.gif"> 悬赏分：0 -
解决时间：2009-12-10 12:35
【问题描述】
小渊是个聪明的孩子，他经常会给周围的小朋友们讲些自己认为有趣的内容。最近，他准备给小朋友们讲解立体图，请你帮他画出立体图。
小渊有一块面积为m*n的矩形区域，上面有m*n个边长为1的格子，每个格子上堆了一些同样大小的吉姆（积木的长宽高都是1），小渊想请你打印出这些格子的立体图。我们定义每个积木为如下格式，并且不会做任何翻转旋转，只会严格以这一种形式摆放：
+---+
/ /I高
+---+ I
I I +
I I/ 宽
+---+
长
每个顶点用1个加号’+’表示，长用3个”-“表示，宽用1个”/”表示，高用两个”I”表示。字符’+’ ‘-‘’/’ ‘I’的ASCII码分别为43，45，47，124。字符’.’（ASCII码46）需要作为背景输出，即立体图里的空白部分需要用’.’代替。立体图的画法如下面的规则：
若两块积木左右相邻，图示为：
..+---+---+
./ / /I
+---+---+ I
I I I +
I I I/.
+---+---+..
若两块积木上下相邻，图示为：
..+---+
./ /I
+---+ I
I I +
I I/I
+---+ I
I I +
I I/.
+---+..
若两块积木前后相邻，图示为：
….+---+
…/ /I
..+---+ I
./ /I +
+---+ I/.
I I +..
I I/…
+---+….
立体图中，定义位于第(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列才能按规定输出立体图。
【输入输出样例】
drawing.in drawing.out
3 4
2 2 1 2
2 2 1 1
3 2 1 2 ......+---+---+...+---+
..+---+ / /I../ /I
./ /I-+---+ I.+---+ I
+---+ I/ /I +-I I +
I I +---+ I/+---+ I/I
I I/ /I +/ /I-+ I
+---+---+ I/+---+ I/I +
I I I +-I I + I/.
I I I/I I/I +..
+---+---+---+---+ I/...
I I I I I +....
I I I I I/.....
+---+---+---+---+......
要用递推实现
一定一定；
还有要讲解详细一点，
思路要清晰；
好就一定有加分
提问者： shmilyjxw - 五级
最佳答案
Pku原题，编号2330
算不上难题，但是比较麻烦，细心点就ok了。
先计算好画布的大小，再写一个根据左下角坐标绘制一个单位立方体的子程序。
然后遵循下面法则，不停绘制若干个立方体。（此处能体现出分割程序的伟大）
因为要不停的覆盖，所以要遵循“视觉法则”：
1.先绘里层再绘外层
2.先绘底层再绘上层
3.先回左边再绘右边
参考程序：
program drawing;
const
inp=\'drawing.in\';
oup=\'drawing.out\';
var
m，n，i，j，k，x，y，h，tmp，maxx，maxy:longint;
map:array of char;//画布
a:array of integer;//记录输入的矩阵
procedure flink;
begin
assign(input，inp);
reset(input);
assign(output，oup);
rewrite(output);
end;
procedure fclose;
begin
close(input);
close(output);
end;
procedure print;//输出画布
var
i，j:longint;
begin
for i:= 1 to maxx do
begin
for j:= 1 to maxy do
write(map);
if i<>maxx then writeln;
end;
end;
proceduredraw(x，y:longint);//在画布(map数组)上绘制左下角坐标为(x，y)的一个单位立方体
begin
map:=\'+\';map:=\'-\'; map:=\'-\';map:=\'-\';map:=\'+\';
dec(x);
map:=\'I\';map:=\' \'; map:=\' \';map:=\' \';map:=\'I\';
map:=\'/\';
dec(x);
map:=\'I\';map:=\' \'; map:=\' \';map:=\' \';map:=\'I\';
map:=\' \';map:=\'+\';
dec(x);
map:=\'+\';map:=\'-\'; map:=\'-\';map:=\'-\';map:=\'+\';
map:=\' \';map:=\'I\';
dec(x);inc(y);
map:=\'/\';map:=\' \'; map:=\' \';map:=\' \';map:=\'/\';
map:=\'I\';
dec(x);inc(y);
map:=\'+\';map:=\'-\'; map:=\'-\';map:=\'-\';map:=\'+\';
end;
begin
flink;
for i:= 1 to 1000 do
for j:= 1 to 1000 do
map:=\'.\'; //初始化画布
readln(m，n);
//计算画布大小maxx * maxy
maxy:=n*4+1+m*2;
maxx:=0;
for i:= 1 to m do
begin
tmp:=0;
for j:= 1 to n do
begin
read(a);
if a>tmp then tmp:=a;
end;
tmp:=tmp*3+3+(m-i)*2;
if tmp >maxx then maxx:=tmp;
readln;
end;
//开始往画布上绘图
for i:= 1 to m do
for j:= 1 to n do
begin
x:=maxx-(m-i)*2;//第i层第j列最下方立方体左下角点的位置(x，y)
y:=(m-i)*2+(j-1)*4+1;
for k:= 1 to a do
draw(x-(k-1)*3，y);//绘制每层的若干个一个单位立方体
end;
print;//输出画布
fclose;
end.
0
回答者：
shihaoze454 - 四级 2009-12-1 22:58
我来评论>>
提问者对于答案的评价：
xiexie

页: [1]

襄阳城's Archiver

noip2008第四题立体图（pascal语言）