пересечения квадратов

[BDA]

Сообщение от ViktorR

Делал я это не со зла
То что мое предложение совпало, говорит о верности принятого подхода ...
Мне задачка понравилась, и хотя надо было на работу, засиделся.

Да бывает
Повторение - мать учения, Аруми лучше "врубится" в алгоритм.
Всегда так, чуть засидишься и понеслось
Согласен, что задачка интересная.

uses
  crt;

var
  x, y, a, t, b, l, r: real;
  f: file of real;

begin
assign(f, 'in.bin');
  reset(f);
  if not eof(f) then
    read(f, x, y, a);
  t := y + a / 2;
  b := y - a / 2;
  l := x - a / 2;
  r := x + a / 2;
  while (not Eof(f)) and (t >= b) and (r >= l) do
  begin
    read( x, y, a);
    if a <> 0 then begin
      if x - a / 2 > l then l := x - a / 2;
      if x + a / 2 < r then r := x + a / 2;
      if y - a / 2 > b then b := y - a / 2;
      if y + a / 2 < t then t := y + a / 2;
    end;
  end; 
  if (t >= b) and (r >= l) then
    writeln('Coordinates of intersection: (', l:0:3, ',', b:0:3, ') and (', r:0:3, ',', t:0:3, ')')
  else
    writeln('No intersection');
  close(f);
  readln;
end.