задача на delphi
На плоскости заданы два круга с радиусами R1, R2 и координатами центров C1 (x1, y1), C2 (x2, y2), выяснить, имеют ли они: одну, две, не имеют общих точек пересечения вообще.

  • могут иметь две и одно общих точек
  • А проблема то в чём?
    Где не получается? В чём помочь? Программу за вас писать я не буду: работка достаточно кропотливая да и Delphi я не уважаю.
  • Две точки, видимо два корня. Плюсовой и минусовой. Две процедуры одинаковые но с разными данными и одна для плоскости. Рисовать можно бесконечным или непрерывным циклом.
  • {$apptype console}

    var
    r1, x1, y1, r2, x2, y2, rr, s: real;
    begin
    write('r1 x1 y1? ');
    read(r1, x1, y1);
    write('r2 x2 y2? ');
    read(r2, x2, y2);
    rr := r1 + r2;
    s := sqrt(sqr(x1 - x2) + sqr(y1 - y2));
    if rr = s then writeln('имееют одну общую точку')
    else if rr > s then writeln('пересекаются в двух точках')
    else writeln('не имеют общих точек')
    end.

    ЗЫ:
    > Алексей Пархомей
    > Две точки, видимо два корня. Плюсовой и минусовой. Две процедуры одинаковые но с разными данными и одна для плоскости. Рисовать можно бесконечным или непрерывным циклом.
    "Когда Вы говорите, Иван Васильевич, создается впечатление, что Вы бредите. "