fbpx

User's Guide

General algebraic routines **

Star InactiveStar InactiveStar InactiveStar InactiveStar Inactive
 

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

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

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

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

 Example as TechEditor Pascal Script (.PSC):

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

 🛈 This routine has a similar system routine:

function Abs(X): Double;

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

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

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

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

 Example as 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;

 🛈 This routine has a similar routine in the Math unit (specify the Math unit in the uses list):

function Sign(X): Integer;

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

function IsInfinite(X: Double): Boolean;

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

 Example as 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.

 Example as 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.

 Example as 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.

 Example as TechEditor Pascal Script (.PSC):

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

 🛈 This routine has a similar routine in the Math unit (specify the Math unit in the uses list):

function Max(X): Double;

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

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

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

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

 Example as TechEditor Pascal Script (.PSC):

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

 🛈 This routine has a similar routine in the Math unit (specify the Math unit in the uses list):

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.

 Example as 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.

 Example as 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 записывается остаток от деления.

 Example as 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.

 Example as 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 должен быть целым числом.

 Example as 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.

 Example as TechEditor Pascal Script (.PSC):

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

 🛈 This routine has a similar system routine:

function Random: Double;

Events

Sorry, we currently have no events.
View All Events

English forum

Simple calculator in TechEditor in 10 minutes!

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

Videoreview version 1.0

New articles

Dystlab™ — Project for Engineers

Dystlab™. All rights reserved.

Address in Canada: 223-2275 Lake Shore Boulevard West, Toronto, ON, M8V 3Y3

Address in Ukraine: 76006, Ivano-Frankivsk, st. Ivana Mykolaichuka 17/97

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

Telegram:
https://t.me/techeditor

Legal information

Dystlab™ is a trademark registered in the State Register of Certificates of Ukraine for Goods and Services Marks 26.02.2018, certificate No. 238304. Owner: entepreneur Artomov V.E., EGRPOU/ITN: 3003314690.

All the most interesting about TechEditor — in Twitter. Join us now!

TechEditor Twitter