Как найти арктангенс в паскале

Раздел: Стандартные функции Паскаля

Функция ArcTan вычисляет арктангенс числа. Синтаксис:


function ArcTan(X : ValReal) : ValReal;


Функция возвращает арктангенс числа Х, которое может быть любого вещественного типа. Результат работы функции – угол в радианах.

Как найти арктангенс числа

О тригонометрических функциях я рассказывал здесь. Поэтому в данной статье повторяться не буду. Напомню лишь о том, что такое тангенс и арктангенс.

Итак, тангенс – это отношение синуса угла к косинусу, которое выражается формулой:


tg(Z) = sin(Z) / cos(Z)

где Z – это угол.

В этом случае справедливо равенство:


tg(Z) = arctg(X)

где Х – это обратная функция, то есть число, которое мы получаем при вычислении тангенса угла Z.

То есть если


tg(45) = 1

то


arctg(1) = 45

Здесь углы указаны в градусах.

Отсюда также следует, что выражение арктангенс угла является
неправильным, так как угол может быть результатом вычисления арктангенса,
но не параметром функции. Можно говорить тангенс угла, или
арктангенс числа.

Таблица арктангенсов

В качестве примера использования функции ArcTan предлагаю небольшую программу, которая выводит на экран таблицу арктангенсов (числа от 0 до единицы с шагом 0,1). Углы будут выводиться в градусах и радианах. При желании можно создать более подробную таблицу, например, с шагом 0,01.

 
program arctanfunc;

const STEP = 0.1;

var x, at, gr : single;

//****************************************************************
// ОСНОВНАЯ ПРОГРАММА
//****************************************************************
begin
  x := -STEP;
  while x <= 1 do
    begin
      x := Abs(x + STEP);
      at := ArcTan(x);
      gr := (180 * at / Pi);
      WriteLn('arctg (', x:0:1, ') = ',
              at:0:4, '  (', gr:0:1, ')');  
    end;

  WriteLn('The end. Press ENTER...');
  ReadLn;
end.

Dimasss

Мыслитель

(7082),
закрыт

13 лет назад

Похожие вопросы

Program number12;
uses crt;
var A, B:real;
begin
clrscr;
A:=2.0;
B:=Sqr(A);
writeln('Sqr(2.0)=',B:4:2);
B:=Abs(-A);
writeln('Abs(-2.0)=',B:4:2);
B:=Sqrt(A);
writeln ('Sqrt(2)=',B:4:2);
B:=Sin(A);
writeln('Sin(2)=',B:6:3);
B:=Cos(A);
writeln('Cos(2)=',B:6:3);
B:=Arctan(A);
writeln('Arctan(2)=',B:6:3);
B:=Ln(A);
writeln('Ln(2)=',B:10:9);
B:=Exp (A);
writeln('Exp (2)=',B:10:9);
B:=Pi;
writeln('Pi=',B:10:9);
readln
end.