Question

Нужно проверить пересекаются ли две окружности, через входной и выходной файлы в Паскале. Координаты их центров х и у целые числа не превосходящие по модулю 5000 и радиус целое число от 1 до 1000 включительно.

Answer 1

{ пересечение окружностей }
var xa,ya,xb,yb,ra,rb: integer;
    d: real;
    st: string;
    f: text;
begin
  assign (f,'C:In.txt');
  reset (f);
  read (f,xa,ya,ra);
  read (f,xb,yb,rb);
  close (f);
  d:=Sqrt(sqr(xb-xa)+sqr(yb-ya));
  if (d>rb+ra) or (d<abs(rb-ra)) then st:='NO' 
  else st:='YES';
{ запись в выходной файл }
  assign (f,'C:Out.txt');
  rewrite (f);
  writeln (f,st);
  close (f);
end.
  

Answer 2

А координаты точек пересечения Вам в выходной файл выводить не надо ?