Согласие на обработку персональных данных.

26.05.2018
Новые видео и статья Как изменить дизайн сайта на Wordpress.

21.05.2018
Новый подраздел Wordpress.

20.05.2018
Новые видео и статья Процедура Rewrite.

15.05.2018
Новая задача Как заменить цифру в числе.

13.05.2018
Новые видео и статья Процедура Reset.



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

Функция ArcTan

Функция 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.

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


Как стать программистом 2.0 Как стать программистом 2.0

Эта книга для тех, кто хочет стать программистом. На самом деле хочет, а не просто мечтает. И хочет именно стать программистом с большой буквы, а не просто научиться кулебякать какие-то примитивные программки… Подробнее...
Инфо-МАСТЕР ®
Все права защищены ©
e-mail: mail@info-master.su

Яндекс.Метрика