Предмет: Информатика,
автор: Dementor112
Даны координаты точки на плоскости. Известно, что окружность радиусом Р центром совпадает с началом координат. Определить, лежит ли данная точка на окружности или же вне её.
Ответы
Автор ответа:
0
var x,y,p,r:real;
begin
writeln('x, y:');
readln(x,y);
r:=x*x+y*y;
write('p = '); readln(p);
if r=p*p
then writeln('Точка лежит на окружности')
else if r=p*p then write('Точка лежит вне окружности');
end.
Пример:
x, y:
3 4
p = 5
Точка лежит на окружности
begin
writeln('x, y:');
readln(x,y);
r:=x*x+y*y;
write('p = '); readln(p);
if r=p*p
then writeln('Точка лежит на окружности')
else if r=p*p then write('Точка лежит вне окружности');
end.
Пример:
x, y:
3 4
p = 5
Точка лежит на окружности
Похожие вопросы
Предмет: Русский язык,
автор: danyakolesnik08
Предмет: Английский язык,
автор: inabatomirbek2010
Предмет: Литература,
автор: Bulumbulum
Предмет: Алгебра,
автор: white12
Предмет: Литература,
автор: Рябоконь