Определить число точек пересечения окружностей - Turbo Pascal

Формулировка задачи:

Даны две окружности с радиусами R1, R2 и расстоянием между центрами d. определить число точек пересечения окружностей

Код к задаче: «Определить число точек пересечения окружностей - Turbo Pascal»

textual
Uses Crt;
Var r1, r2, d : Real;
Begin
  ClrScr;
  {Здесь сделать ввод r1, r2 и d}
  If d=0 then
    If r1=r2 then WriteLn('Бесконечное множество точек')
    Else WriteLn('Ни одной точки')
  Else
    If Abs(r1-d)<r2 then WriteLn('Две точки');
    Else
      If Abs(r1-d)=r2 then WriteLn('Одна точка')
      Else WriteLn('Ни одной точки');
  ReadLn;
End.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

7   голосов, оценка 3.714 из 5


СДЕЛАЙТЕ РЕПОСТ
Похожие ответы