Как определить, лежит ли внутри круга заданный круг (полностью, не выходя за его пределы)? - Turbo Pascal

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

Написать программу, которая определит, лежит ли круг, ограниченный окружностью с центром (x1,y1) и радиусом r1 внутри круга с центром (x,y) и радиусом r.

Код к задаче: «Как определить, лежит ли внутри круга заданный круг (полностью, не выходя за его пределы)? - Turbo Pascal»

textual
  if sqrt(sqr(x - x1) + sqr(y - y1)) + r1 <= R then
    writeln('окружность радиуса ', r1, ' лежит внутри окружности радиуса ', R)
  else
    writeln('Нет, не помещается');

6   голосов, оценка 4.500 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы