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™. Всі права захищено.

Адреса офісу в Канаді: 223-2275 Lake Shore Boulevard West, Toronto, ON, M8V 3Y3

Адреса офісу в Україні: 76006, м. Івано-Франківськ, вул. Миколайчука Івана 17/97

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

Telegram:
https://t.me/techeditor

Dystlab™ — торговельна марка, зареєстрована в Державному реєстрі свідоцтв України на знаки для товарів і послуг 26.02.2018, свідоцтво № 238304. Власник: фізична особа-підприємець Артьомов В. Є., ЄДРПОУ/ІНН: 3003314690.

Все найцікавіше про TechEditor — в Твіттері. Приєднуйся!

TechEditor Twitter