fbpx

Руководство пользователя

Общие алгебраические функции **

Звезда не активнаЗвезда не активнаЗвезда не активнаЗвезда не активнаЗвезда не активна
 

Алгебраические функции общего назначения (модуль числа, минимум / максимум и пр.).

Модуль и знак числа

function Math.Abs(X: Double): Double;

Возвращает модуль числа X.

 Пример на TechEditor Pascal Script (.PSC):

begin
a := Math.Abs(b + c);
end;

 🛈 Данная функция имеет системный аналог:

function Abs(X): Double;

function Math.AbsInt(X: Integer): Integer;

Возвращает модуль целого числа X.

function Math.Sign(X: Double): Integer;

Возвращает знак числа X: -1, 0 или +1.

 Пример на TechEditor Pascal Script (.PSC):

begin
V1 := Math.Sign(5*5); // V1=1
V2 := Math.Sign(-5*5); // V2=-1
V3 := Math.Sign(-5+5); // V3=0 end;

 🛈 Данная функция имеет аналог из модуля Math (укажите модуль Math в списке uses текущего модуля):

function Sign(X): Integer;

Проверка значений

function IsInfinite(X: Double): Boolean;

Возвращает True, если аргумент X является бесконечностью, иначе возвращает False. Фукнция находится в модуле Math.

 Пример на TechEditor Pascal Script (.PSC):

uses Math;

begin
if IsInfinite(3/0) then ShowMessage('∞') else ShowMessage('ok');
end;

function IsNaN(X: Double): Boolean;

Возвращает True, если аргумент X не является числом, иначе возвращает False. Фукнция находится в модуле Math.

 Пример на TechEditor Pascal Script (.PSC):

uses Math;

begin
if IsNan(0/0) then ShowMessage('Not a number!') else ShowMessage('ok');
end;

function IsZero(X, Epsilon: Double): Boolean;

Возвращает True, если аргумент X близок к нулю в рамках заданной точности Epsilon, иначе возвращает False. Фукнция находится в модуле Math.

 Пример на TechEditor Pascal Script (.PSC):

uses Math;

begin
if IsZero(0.000009, 0.0001) then ShowMessage('Zero') else ShowMessage('Not zero');
end;

Экстремумы

function Math.Max(A, B: Double): Double;

Возвращает большее из двух чисел A, B.

 Пример на TechEditor Pascal Script (.PSC):

begin
a := Math.Max(b, c);
end;

 🛈 Данная функция имеет аналог из модуля Math (укажите модуль Math в списке uses текущего модуля):

function Max(X): Double;

function Math.MaxInt(A, B: Integer): Integer;

Возвращает большее из двух целых чисел A, B.

function Math.Min(A, B: Double): Double;

Возвращает меньшее из двух чисел. Аргументы A, B могут быть целыми или вещественными числами.

 Пример на TechEditor Pascal Script (.PSC):

begin
a := Math.Min(b, c);
end;

 🛈 Данная функция имеет аналог из модуля Math (укажите модуль Math в списке uses текущего модуля):

function Min(X): Double;

function Math.MinInt(A, B: Integer): Integer;

Возвращает меньшее из двух целых чисел A, B.

Интерполяция

function Math.LInterp(x1, x, x2: Double; y1, y2: Double): Double;

Возвращает результат линейной интерполяции по формуле:

\[y = \frac{(x-x1)(y2-y1)}{x2-x1}+y1\]

Если x1=x2, то функция возвращает x1.

 Пример на TechEditor Pascal Script (.PSC):

begin
X := 1.5;
Y := Math.LInterp(1, X, 2, 100, 200); // y=150
end;

Различные утилиты

procedure Dec(var X: Integer);

Decrements a variable X by 1.

 Пример на TechEditor Pascal Script (.PSC):

var
  X: Integer;

begin
  X := 10;
  Dec(X); // here x=9
end;

procedure DivMod(Dividend: Cardinal; Divisor: Word; var Result, Remainder: Word);

Возвращает в переменную Result результат целочисленного деления (Dividend / Divisor). В переменную Remainder записывается остаток от деления.

 Пример на TechEditor Pascal Script (.PSC):

var
  X, Remainder: Word;
begin
DivMod(100, 3, X, Remainder); // 100/3=33.333...; x=33; Remainder=1
end;

procedure Inc(var X: Integer);

Increments a variable X by 1.

 Пример на TechEditor Pascal Script (.PSC):

var
  X: Integer;

begin
  X := 10;
  Inc(X); // here x=11
end;

function Odd(X: Integer): Boolean;

Возвращает True, если число x — нечетное, иначе возвращает False. Аргумент x должен быть целым числом.

 Пример на TechEditor Pascal Script (.PSC):

begin
if Odd(x) then ShowMessage('x - odd number') else ShowMessage('x - even number');
end;

function Math.Random: Double;

Generates random number within the range 0 <= X < 1.

 Пример на TechEditor Pascal Script (.PSC):

begin
ShowMessage('Random number: ' + FloatToStr(Math.Random));
end;

 🛈 Данная функция имеет системный аналог:

function Random: Double;

Мероприятия

К сожалению, в настоящий момент нет мероприятий.
Просмотреть все мероприятия

Простой калькулятор в TechEditor за 10 минут!

Ontario Building Code 2012 | Load combination (Free Application & Report Template)

Видеообзор версии 1.0

Новые статьи

Dystlab™ — Project for Engineers

Dystlab™ — торговая марка, зарегистрированная в Государственном реестре свидетельств Украины на знаки для товаров и услуг 26.02.2018, свидетельство № 238304. Владелец: физическое лицо-предприниматель Артемов В. Е., ЕГРПОУ/ИНН: 3003314690.

E-mail:
technot needed texteditoranother not needed text@dystlabdummy text.store

Telegram:
https://t.me/techeditor

 

Всё самое интересное о TechEditor — в Телеграм. Присоединяйся!

TechEditor - Telegram channel