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

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

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


textual

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

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

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


СДЕЛАЙТЕ РЕПОСТ

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

Источник
Похожие ответы