Fonin
6 год назад
Решите задачу: Все описано во вложении
ОТВЕТЫ
Артемидор
Aug 2, 2019
// 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
189
Смежные вопросы:
