Центр окружности радиуса R находится в точке (0,0). Лежит ли точка с координатами x,y внутри, на границе или вне этой окружности. Написать программу в паскале.
Ответы
Ответ дал:
0
Решение:
uses crt;
var x,y,r: real;
begin
clrscr;
write ('Введите x,y,r через пробел:');
readln (x,y,r);
if(sqr(x)+sqr(y))=sqr(r) then
writeln ('Точка лежит на границе окружности');
if(sqr(x)+sqr(y))>sqr(r) then
writeln ('Точка не лежит в окружности');
if(sqr(x)+sqr(y))<sqr(r) then
writeln ('Точка лежит внутри окружности');
end.
Вас заинтересует
1 год назад
1 год назад
6 лет назад