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

Функция ArcTan

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

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

Эта книга для тех, кто хочет стать программистом. На самом деле хочет, а не просто мечтает. И хочет именно стать программистом с большой буквы, а не просто научиться кулебякать какие-то примитивные программки… Подробнее...
Помощь в технических вопросах Помощь в технических вопросах

Помощь студентам. Курсовые, дипломы, чертежи (КОМПАС), задачи по программированию: Pascal/Delphi/Lazarus; С/С++; Ассемблер; языки программирования ПЛК; JavaScript; VBScript; Fortran; Python и др. Разработка (доработка) ПО ПЛК (предпочтение - ОВЕН, CoDeSys 2 и 3), а также программирование панелей оператора, программируемых реле и других приборов систем автоматизации. Подробнее...

Инфо-МАСТЕР ®
Все права защищены ©
e-mail: mail@info-master.su

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