Question

Заданы координаты вершин прямоугольника: (х1, y1), (х2, y2), (х3, у3), (х4, у4). Определить площадь части прямоугольника, расположенной в I координатной четверти.

Answer 1

var w,h,x,y,x1,y1,x2,y2,n,i,c,buf:longint;
    a:array[-100..100,-100..100] of 0..1;
begin
readln(x1,y1,x2,y2);
if y1>y2 then begin
buf:=x1;
x1:=x2;
x2:=buf;
buf:=y1;
y1:=y2;
y2:=buf;
end;
      for y:=y1+1 to y2 do
      for x:=x1+1 to x2 do
        a[y][x]:=1;
  c:=0;
  for y:=0 to 100 do
    for x:=0 to 100 do
      c:=c+a[y][x];
  write(c);
end.