Advertisement
Guest User

Untitled

a guest
Nov 18th, 2017
68
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 1.34 KB | None | 0 0
  1.  
  2. var
  3.    x1, y1, x2, y2, x3, y3, x4, y4, xx1, xx2, yy1, yy2, x, y, t1, t2, kek, kek1: integer;
  4. begin
  5.    readln(x1, y1, x2, y2, x3, y3, x4, y4);
  6.    if (y1 > y2) then
  7.    begin
  8.       yy1 := y1;
  9.        t1 := y2;
  10.    end
  11.    else
  12.    begin
  13.       yy1 := y2;
  14.        t1 := y1;
  15.    end;
  16.    if (y3 > y4) then
  17.    begin
  18.       yy2 := y3;
  19.        t2 := y4;
  20.    end
  21.    else
  22.    begin
  23.       yy2 := y4;
  24.        t2 := y3;
  25.    end;
  26.    if (((yy2 > yy1) and (t2 >= yy1)) or ((yy1 > yy2) and (t1 >= yy2))) then
  27.       kek := 0
  28.    else
  29.       kek := 1;
  30.  
  31.    if (x1 > x2) then
  32.    begin
  33.       xx1 := x1;
  34.        t1 := x2;
  35.    end
  36.    else
  37.    begin
  38.       xx1 := x2;
  39.        t1 := x1;
  40.    end;
  41.    if (x3 > x4) then
  42.    begin
  43.       xx2 := x3;
  44.        t2 := x4;
  45.    end
  46.    else begin
  47.       xx2 := x4;
  48.        t2 := x3;
  49.    end;
  50.    if (((xx2 > xx1) and (t2 >= xx1)) or ((xx1 > xx2) and (t1 >= xx2))) then
  51.       kek1 := 0
  52.    else
  53.       kek1 := 1;
  54. //проверка пересечения окончена
  55.    if (abs(x4 - x2) >= abs(x3 - x1)) then
  56.       x := abs(x3 - x1)
  57.    else
  58.       x := abs(x4 - x2);
  59.    if (abs(y3 - y2) >= abs(y4 - y1)) then
  60.       y := abs(y4-y1)
  61.    else
  62.       y :=abs(y3 - y2);
  63.    if ((kek + kek1 = 0) or ((kek1 <> 0) and (kek = 0)) or ((kek1 <> 0) and (kek = 0))) then
  64.       writeln('0')
  65.    else
  66.       writeln(x*y);
  67.    readln;
  68. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement