Определить, попадает ли точка с координатами x0 , y0 в круг радиусом r . Присвоить признаку N=1 , если точка находится внутри круга, и N=0 , если точка вне круга. паскаль
Определить, попадает ли точка с координатами x0 , y0 в круг радиусом r . Присвоить признаку N=1 , если точка находится внутри круга, и N=0 , если точка вне круга. паскаль
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program PointCircle;
var
x0, y0, r: real;
N: integer;
begin
write('Введите координату x точки: ');
readln(x0);
write('Введите координату y точки: ');
readln(y0);
write('Введите радиус круга: ');
readln(r);
if ((x0 x0 + y0 y0) <= r * r) then
N := 1
else
N := 0;
writeln('N = ', N);
end.