Предмет: Информатика,
автор: Nesh1999
Решите задачу: Все описано во вложении
Приложения:
![](https://files.topotvet.com/i/41e/41ec88bcccd5a1cdf1438f7e9b8d3b55.png)
Ответы
Автор ответа:
0
// PascalABC.NET 3.2, сборка 1325 от 19.10.2016
begin
var x,y:real;
Write('Введите координаты точки: '); Read(x,y);
var rho:=sqrt(x*x+y*y);
var fi:=arctan(y/x);
Writeln('Радиус: ',rho,', угол(рад): ',fi)
end.
Пример:
Введите координаты точки: 3 -2.7
Радиус: 4.03608721412211, угол(рад): -0.732815101786507
begin
var x,y:real;
Write('Введите координаты точки: '); Read(x,y);
var rho:=sqrt(x*x+y*y);
var fi:=arctan(y/x);
Writeln('Радиус: ',rho,', угол(рад): ',fi)
end.
Пример:
Введите координаты точки: 3 -2.7
Радиус: 4.03608721412211, угол(рад): -0.732815101786507
Автор ответа:
0
пожалуйста
Похожие вопросы
Предмет: Русский язык,
автор: Va365dim
Предмет: Математика,
автор: nastay21619
Предмет: Математика,
автор: abrorhasimzanov52
Предмет: Алгебра,
автор: sashakyza6456