Как определить, лежит ли внутри круга заданный круг (полностью, не выходя за его пределы)? - Turbo Pascal
Формулировка задачи:
Написать программу, которая определит, лежит ли круг, ограниченный окружностью с центром (x1,y1) и радиусом r1 внутри круга с центром (x,y) и радиусом r.
Решение задачи: «Как определить, лежит ли внутри круга заданный круг (полностью, не выходя за его пределы)?»
textual
Листинг программы
if sqrt(sqr(x - x1) + sqr(y - y1)) + r1 <= R then
writeln('окружность радиуса ', r1, ' лежит внутри окружности радиуса ', R)
else
writeln('Нет, не помещается');
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д