Составьте программу, определяющую, лежит ли точка с указанными координатами X, Y на окружности радиуса R с центром в начале координат. Program Frankenstein; var x,y,r:integer; BeginWrite('Введите координату X: '); Readln(x);Wr...
Составьте программу, определяющую, лежит ли точка с
указанными координатами X, Y на окружности радиуса R с центром в
начале координат.
Program Frankenstein;
var
x,y,r:integer;
Begin
Write('Введите координату X: ');
Readln(x);
Write('Введите координату Y: ');
Readln(y);
Write('Введите длину радиуса R: ');
Readln(r);
If (sqr(x)+sqr(y))=r
then writeln('Точка лежит на
окружности!')
Else writeln('Точка не лежит на
окружности!');
End.
Почему программа всегда показывает что точка не лежит на окружности, хотя на самом деле она лежит! Где я ошибся?
Гость
Ответ(ы) на вопрос:
ГостьR^2
Var
x,y,r:integer;
Begin
Write('Введите координату X: ');
Readln(x);
Write('Введите координату Y: ');
Readln(y);
Write('Введите длину радиуса R: ');
Readln(r);
If (sqr(x)+sqr(y))=sqr(r) then
writeln('Точка лежит на окружности!')
Else writeln('Точка не лежит на окружности!');
End.
Не нашли ответ?
Похожие вопросы