Определить, лежит ли точка с координатами (X,Y) вне круга радиуса R с центром в точке (0,0) или внутри него. Pascal
genasyper2:
через команду case, пожалуйста
Ответы
Ответ дал:
1
Ответ:
var
x: real;
y: real;
r: real;
equat: real;
begin
writeln('Введите r');
readln(r);
writeln('Введите x');
readln(x);
writeln('Введите y');
readln(y);
equat:=power(x,2)+power(y,2);
if equat<=power(r,2) then
writeln('Точка лежит внутри круга')
else writeln('Точка лежит вне круга');
end.
Объяснение:
Приложения:
![](https://st.uroker.com/files/894/894deb9e5d2661a565ed6d79d202f8cb.png)
Вас заинтересует
2 года назад
7 лет назад
7 лет назад
8 лет назад
8 лет назад