问题
描述
N个不同的颜色的不透明的长方形(1 <= N <= 1000)被放置在一张横宽为A竖长为B的白纸上。 这些长方形被放置时,保证了它们的边与白纸的边缘平行。 所有的长方形都放置在白纸内,所以我们会看到不同形状的各种颜色。 坐标系统的原点(0,0)设在这张白纸的左下角,而坐标轴则平行于边缘。
[编辑]格式
PROGRAM NAME: rect1
INPUT FORMAT:
(file rect1.in)
按顺序输入放置长方形的方法。第一行输入的是那个放在底的长方形(即白纸)。
第 1 行: A , B 和 N, 由空格分开 (1 <=A, B<=10,000)
第 2 到N+1行: 为五个整数 llx, lly, urx, ury, color 这是一个长方形的左下角坐标,右上角坐标(x+1,y+1)和颜色。
颜色 1和底部白纸的颜色相同。 (1 <= color <= 2500)
OUTPUT FORMAT:
(file rect1.out)
输出且仅输出所有能被看到颜色,和该颜色的总面积(可以由若干个不连通的色块组成),按color增序排列。
[编辑]SAMPLE INPUT
20 20 3 2 2 18 18 2 0 8 19 19 3 8 0 10 19 4
[编辑]SAMPLE OUTPUT
1 91 2 84 3 187 4 38
分析
这就是那天那到“浮水法”的矩形版。思想一样,不再多说,有疑问可以参见我博客上【11月11日的测试】。
但是矩形的思维量就要比线段大的多了。对于矩形来说,两个矩形的关系很复杂,所以,我们的思想就是让当前能穿的继续穿,然后改变矩形的大小,
让剩下的部分继续穿透即可。也就是说对于输入的值,我们要变化。具体的法则自己画个图就明白了,代码也很好理解。
注意题目要求
反思
好多问题都是由简到繁,但是,思想是一致的。这就需要我们能够迁移。能够加强条件。有思想不等于得分。
code
{
ID: lxf98092
PROG: rect1
LANG: PASCAL
}
program liukee;
var
s,color,lx,ly,rx,ry:array[0..10000] of longint;
m,n,tot,i,max:longint;
procedure cut(x1,y1,x2,y2,t:longint);
begin
// if t<=tot then
while(t<=tot)and((x2<=lx[t])or(x1>=rx[t])or(y1>=ry[t])or(y2<=ly[t]))do
inc(t);
if t>tot then
begin
inc(s[color[i]],abs((x2-x1)*(y2-y1)));
exit;
end;
if (x1<=lx[t])then begin cut(x1,y1,lx[t],y2,t+1); x1:=lx[t];end;
if (x2>=rx[t])then begin cut(rx[t],y1,x2,y2,t+1); x2:=rx[t];end;
if (y1<=ly[t])then begin cut(x1,y1,x2,ly[t],t+1); y1:=ly[t];end;
if (y2>=ry[t])then begin cut(x1,ry[t],x2,y2,t+1); y2:=ry[t];end;
end;
begin
assign(input,'rect1.in');
assign(output,'rect1.out');
reset(input);
rewrite(output);
readln(rx[1],ry[1],n);//inc(rx[1]);inc(ry[1]);
lx[1]:=0;
ly[1]:=0;
color[1]:=1;
max:=1;
for i:=1 to n do
begin
readln(lx[i+1],ly[i+1],rx[i+1],ry[i+1],color[i+1]);
if max<color[i+1] then max:=color[i+1];
end;
tot:=n+1;
for i:=n+1 downto 1 do
cut(lx[i],ly[i],rx[i],ry[i],i+1);
for i:=1 to max do
if s[i]<>0 then
writeln(i,' ',s[i]);
close(input);
close(output);
end.