найти угол меж отрезком прямой, объединяющий начало координат с точкой А(х,у)

Отыскать угол меж отрезком прямой, соединяющий начало координат с точкой А(х,у) и осью ОХ. точка лежит в первой четверти

Задать свой вопрос
1 ответ
Var
      x,y,f,eps:real;
begin
 eps:=0.000000001;
 Readln(x,y);
 if xgt;eps then 
    f:=arctan(y/x) 
 else  f:=3.1415926535/2;
 Writeln('Угол = ', f:1:4, ' радиан = ', (f*180)/3.1415926535:3:4, ' градусов');
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт