vijos1056题解

题目：

桌面上放了N个平行于坐标轴的矩形，这N个矩形可能有互相覆盖的部分，求它们组成的图形的面积。 

      在翻题目时，偶然发现了这道标号为WA的题目。

原来，以前我把一中培训的代码发了上去，却WA了4个点，因此失去信心。
仔细研究了代码，却无异样，这是标准的离散思想（这里不再展开）。
报了“试一试”的心情，我把其他数组类型也开了int64，结果竟然AC了！
仔细一想，我发现尽管数组在longint范围内（-10^8------10^8)，但是在运算的时候（极大值和极小值相减）仍会越界，还是开大为好！

以下为代码：

const
  max=101;
var
  x1,x2,y1,y2:array[0..max] of int64;
  x,y,a,b:array[0..2*max] of int64;
  pop:boolean;
  h1,h2,i,j,k,n,h,t:longint;
  ans:qword;
begin

  readln(n);
  h:=0;
  for i:=1 to n do
    begin
     readln(x1[i],y1[i],x2[i],y2[i]);
      inc(h);
     x[h]:=x1[i];y[h]:=y1[i];
      inc(h);
     x[h]:=x2[i];y[h]:=y2[i];
    end;
  for i:=1 to h-1 do
    for j:=i+1 to h do
      if x[i]>x[j] then
        begin
          t:=x[i];
         x[i]:=x[j];
          x[j]:=t;
        end;
  for i:=1 to h-1 do
    for j:=i+1 to h do
      if y[i]>y[j] then
        begin
          t:=y[i];
         y[i]:=y[j];
          y[j]:=t;
        end;
  h1:=1;
  a[1]:=x[1];
  for i:=2 to h do
    if x[i]<>x[i-1] then
      begin
        inc(h1);
        a[h1]:=x[i];
      end;
  h2:=1;
  b[1]:=y[1];
  for i:=2 to h do
    if y[i]<>y[i-1] then
      begin
        inc(h2);
        b[h2]:=y[i];
      end;
  for i:=1 to h1-1 do
    for j:=1 to h2-1 do
      begin
        pop:=false;
        for k:=1 to ndo
          if (a[i]>=x1[k])and (a[i+1]<=x2[k]) and (b[j]>=y1[k]) and (b[j+1]<=y2[k])then
           begin
             pop:=true;
             break;
           end;
        if pop thenans:=ans+(b[j+1]-b[j])*(a[i+1]-a[i]);
      end;
  writeln(ans);
end.