Задача 3. Написать программу, определяющую, лежит ли точка суказанными координатами А (x, y) на окружности радиуса R с центром в начале координат (может лежать на окружности, внутри окружности, вне окружности) PS: Pascal (не турбо) Всем буду благодарен!
в избранное ссылка
aphrodisiac
25 октября 2021
Varx,y, r: Iinteger; BeginWrite (‘Введите координату X: ‘); Readln (x); Write (‘Введите координату Y: ‘); Readln (y); Write (‘Введите длину радиуса R: ‘); Readln®; If (sqr (x)+sqr (y)=r then writeln (‘Точка лежит на окружности! ‘) Else writeln (‘Точка не лежит на окружности! ‘); End.
Источник: tutresheno.ru
23 Задача: В какой координатной четверти находится точка?
Составьте программу, определяющую…
Составьте программу, определяющую, лежит ли точка с указанными координатами X, Y на окружности радиуса R с центром в начале координат.Program Frankenstein; varx,y,r: integer; Begin Write (‘Введите координату X: ‘); Readln (x); Write (‘Введите координату Y: ‘); Readln (y); Write (‘Введите длину радиуса R: ‘); Readln (r); If (sqr (x)+sqr (y)=rthen writeln (‘Точка лежит на окружности! ‘) Else writeln (‘Точка не лежит на окружности! ‘); End. Почему программа всегда показывает что точка не лежит на окружности, хотя на самом деле она лежит! Где я ошибся?
в избранное
10 октября 2021
Varx,y,r: integer; BeginWrite (‘Введите координату X: ‘); Readln (x); Write (‘Введите координату Y: ‘); Readln (y); Write (‘Введите длину радиуса R: ‘); Readln (r); If (sqr (x)+sqr (y)=sqr (r) then writeln (‘Точка лежит на окружности! ‘) Else writeln (‘Точка не лежит на окружности! ‘); End.
пользователи выбрали этот ответ лучшим
Источник: tutreshu.ru
Составьте программу определяющую лежит ли точка
Задача 3. Написать программу, определяющую, лежит ли точка с
указанными координатами А (x, y) на окружности радиуса R с центром в начале
координат (может лежать на окружности, внутри окружности, вне окружности)
PS: Pascal(не турбо)
Всем буду благодарен!
Answers
Как проверить, принадлежит ли точка с заданными координатами графику данной функции
Begin
Write(‘Введите координату X: ‘);
Readln(x);
Write(‘Введите координату Y: ‘);
Readln(y);
Write(‘Введите длину радиуса R: ‘);
Readln®;
If (sqr(x)+sqr(y))=r then writeln(‘Точка лежит на окружности!’)
Else writeln(‘Точка не лежит на окружности!’);
End.
9 votes Thanks 12
рекомендуемые вопросы
rarrrrrrrr August 2022 | 0 Ответы
danilarsentev August 2022 | 0 Ответы
myachina8 August 2022 | 0 Ответы
ydpmn7cn6w August 2022 | 0 Ответы
millermilena658 August 2022 | 0 Ответы
MrZooM222 August 2022 | 0 Ответы
timobila47 August 2022 | 0 Ответы
ivanyyaremkiv August 2022 | 0 Ответы
sarvinozwakirjanova August 2022 | 0 Ответы
Helpful Links
Helpful Social
Источник: scholar.tips