Предмет: Информатика,
автор: Аноним
Задача 3. Написать программу, определяющую, лежит ли точка с
указанными координатами А (x, y) на окружности радиуса R с центром в начале
координат (может лежать на окружности, внутри окружности, вне окружности)
PS: Pascal(не турбо)
Всем буду благодарен!
Ответы
Автор ответа:
0
Var
x,y, r: Iinteger;
Begin
Write('Введите координату X: ');
Readln(x);
Write('Введите координату Y: ');
Readln(y);
Write('Введите длину радиуса R: ');
Readln®;
If (sqr(x)+sqr(y))=r then writeln('Точка лежит на окружности!')
Else writeln('Точка не лежит на окружности!');
End.
x,y, r: Iinteger;
Begin
Write('Введите координату X: ');
Readln(x);
Write('Введите координату Y: ');
Readln(y);
Write('Введите длину радиуса R: ');
Readln®;
If (sqr(x)+sqr(y))=r then writeln('Точка лежит на окружности!')
Else writeln('Точка не лежит на окружности!');
End.
Автор ответа:
0
Спасибо!
Похожие вопросы
Предмет: Математика,
автор: Аноним
Предмет: Математика,
автор: kaldaevadaria555
Предмет: Английский язык,
автор: grinchenkovika1112
Предмет: Алгебра,
автор: Sweet29