АРИФМЕТИЧЕСКИЕ ФУНКЦИИ (ARITHMETIC ROUTINES)

Функция: Abs;

Модуль: System;

Синтаксис: function Abs(X), где X целое или действительное число или выражение.

Описание: Возвращает абсолютное значение аргумента (Х).

Пример:

Var r: Single; i: Integer;

Begin

i := Abs(-2.3); { 2.3 };

i := Abs(-157); { 157 };

end;

Функция:Ceil;

Модуль:Math;

Синтаксис: function Ceil(const X: Extended):Integer;

Описание:Округляет аргумент (Х) до наименьшего целого, превышающего или равного ему.

Пример:

Ceil(-2.8) = -2

Ceil(2.8) = 3

Ceil(-1.0) = -1

Функция: Exp;

Модуль: System;

Синтаксис: function Exp(X: Real): Real;

Описание: Возвращает экспоненту аргумента (Х).

Пример:

Var

e : real;

S : string;

Begin

e := Exp(1.0);

Str(ln(e):3:2, S);

S := 'e = ' + FloatToStr(e) + '; ln(e) = ' + S;

Canvas.TextOut(10, 10, S);

end;

Функция:Floor;

Модуль: Math;

Синтаксис: function Floor(const X: Extended):Integer;

Описание:Округляет аргумент (Х) до наибольшего целого, меньшего или равного ему.

Пример:

Floor(-2.8) = -3

Floor(2.8) = 2

Floor(-1.0) = -1

Функция: Frac;

Модуль: System;

Синтаксис: function Frac(X: Extended): Extended;

Описание:Возвращает дробную часть аргумента (Х).

Пример:

Var R: Real;

Begin

R := Frac(123.456);{ 0.456 }

R := Frac(-123.456);{ -0.456 }

end;

Функция: Frexp;

Модуль: Math;

Синтаксис: function Frexp(const X: Extended; var Mantissa: Extended; var Exponent: Integer) register;

Описание: Выделяет мантиссу и показатель степени аргумента (Х).

Функция:Int;

Модуль:System;

Синтаксис: functionInt(X: Extended): Extended;

Описание:Возвращает целую часть аргумента (Х).

Пример:

Var

R: Real;

Begin

R := Int(123.456);{ 123.0 }

R := Int(-123.456);{ -123.0 }

end;

Функция:IntPower;

Модуль:Math;

Синтаксис: functionIntPower(const X: Extended; const Exponent: Integer): Extended register;

Описание:Возводит аргумент (X) в целочисленную степень (Exponent).

Пример:

Var

R: Extended;

Begin

R := IntPower(2, 3); { 8 }

end;

Функция:Ldexp;

Модуль: Math;

Синтаксис: functionLdexp(const X: Extended; const P: Integer): Extended register;

Описание:умножает аргумент (X) на 2 в целочисленной степени (P).

Пример:

Var

R: Extended;

Begin

R := Ldexp(5, 3); { 40 }

end;

Функция: Ln;

Модуль: System;

Синтаксис: functionLn(X: Real): Real;

Описание:Возвращает натуральный логарифм от аргумента (Х).

Пример:

Var

e : real;

S : string;

Begin

e := Exp(1.0);

Str(Ln(e):3:2, S);

S := 'e = ' + FloatToStr(e) + '; ln(e) = ' + S;

Canvas.TextOut(10, 10, S);

end;

Функция: LnXP1

Модуль: Math;

Синтаксис: function LnXP1(X: Extended): Extended;

Описание: Возвращает натуральный логарифм от аргумента (Х) увеличенного на единицу (X + 1).

Пример:

Var

X : Extended; S : string;

Begin

X := LnXP1(10);

S := 'LnXP1(10) = ' + FloatToStr(X);

Canvas.TextOut(10, 10, S);

end;

Функция: Log10;

Модуль: Math;

Синтаксис: function Log10(X: Extended): Extended;

Описание: Возвращает десятичный логарифм от аргумента (Х).

Пример

Var

X : Extended; S : string;

Begin

X := Log10(10);

S := 'Log10(10) = ' + FloatToStr(X);

end;

Функция:Log2;

Модуль:Math;

Синтаксис: functionLog2(X: Extended): Extended;

Описание:Возвращает логарифм от аргумента (Х) по основанию 2.

Пример:

Var

X : Extended; S : string;

Begin

X := Log2(10);

S := 'Log2(10) = ' + FloatToStr(X);

end;

Функция: LogN;

Модуль: Math;

Синтаксис: functionLogN(X, N: Extended): Extended;

Описание: Возвращает логарифм от аргумента (Х) по основанию N.

Пример:

Var

X : Extended; S : string;

Begin

X := LogN(10, 3);

S := 'LogN(10, 3) = ' + FloatToStr(X);

end;

Функция:Max;

Модуль:Math;

Синтаксис:

FunctionMax(A,B: Integer): Integer; overload;

FunctionMax(A,B: Int64): Int64; overload;

FunctionMax(A,B: Single): Single; overload;

FunctionMax(A,B: Double): Double; overload;

FunctionMax(A,B: Extended): Extended; overload;

Описание: Возвращает больший из аргументов.

Функция: Min;

Модуль: Math;

Синтаксис:

Function Min(A,B: Integer): Integer; overload;

Function Min(A,B: Int64): Int64; overload;

Function Min(A,B: Single): Single; overload;

Function Min(A,B: Double): Double; overload;

Function Min(A,B: Extended): Extended; overload;

Описание: Возвращает меньший из аргументов.

Функция: Pi;

Модуль: System;

Синтаксис: function Pi: Extended;

Описание: Возвращает 3,1415926535897932385.

Функция: Poly;

Модуль: Math;

Синтаксис: function Poly(const X: Extended; const Coefficients:array of Double): Extended;

Описание: Вычисляет полином от аргумента (X) с коэффициентами, расположенными в массиве Coefficients. Коэффициенты должны располагаться по нарастанию степени Х.

Функция: Power;

Модуль: Math;

Синтаксис: function Power(const Base, Exponent: Extended): Extended;

Описание: Возводит аргумент (Base) в произвольную степень (Exponent).

Пример:

Var

R: Extended;

Begin

R := Power(2, 3); { 8 }

end;

Функция: Round;

Модуль: System;

Синтаксис: function Round(X: Extended): Int64;

Описание: Возвращает ближайшее целое аргумента (Х).

Пример:

Var

S, T: string;

Begin

Str(1.4:2:1, T);

S := T + ' rounds to ' + IntToStr(Round(1.4)) + #13#10;

Str(1.5:2:1, T);

S := S + T + ' rounds to ' + IntToStr(Round(1.5)) + #13#10;

Str(-1.4:2:1, T);

S := S + T + ' rounds to ' + IntToStr(Round(-1.4)) + #13#10;

Str(-1.5:2:1, T);

S := S + T + ' rounds to ' + IntToStr(Round(-1.5));

MessageDlg(S, mtInformation, [mbOk], 0, mbOk);

end;

Функция: Sqr;

Модуль: System;

Синтаксис:

Function Sqr(X: Extended): Extended;

Function Sqr(X: Integer): Integer;

Описание: Возводит аргумент (Х) в квадрат.

Пример:

Var

S, Temp: string;

Begin

Str(Sqr(5.0):3:1, Temp);

S := '5 squared is ' + Temp + #13#10;

Str(Sqrt(2.0):5:4, Temp);

S := S + 'The square root of 2 is ' + Temp;

MessageDlg(S, mtInformation, [mbOk], 0);

end;

Функция: Sqrt;

Модуль: System;

Синтаксис: function Sqrt(X: Extended): Extended;

Описание: Возвращает квадратный корень из аргумента (Х).

Пример:

Var

S, Temp: string;

Begin

Str(Sqr(5.0):3:1, Temp);

S := '5 squared is ' + Temp + #13#10;

Str(Sqrt(2.0):5:4, Temp);

S := S + 'The square root of 2 is ' + Temp;

MessageDlg(S, mtInformation, [mbOk], 0);

end;

Функция Trunc;

Модуль: System;

Синтаксис: function Trunc(X: Extended): Int64;

Описание: Возвращает целую часть действительного аргумента (Х).

Пример:

Var

S, T: string;

Begin

Str(1.4:2:1, T);

S := T + ' Truncs to ' + IntToStr(Trunc(1.4)) + #13#10;

Str(1.5:2:1, T);

S := S + T + ' Truncs to ' + IntToStr(Trunc(1.5)) + #13#10;

Str(-1.4:2:1, T);

S := S + T + ' Truncs to ' + IntToStr(Trunc(-1.4)) + #13#10;

Str(-1.5:2:1, T);

S := S + T + ' Truncs to ' + IntToStr(Trunc(-1.5));

MessageDlg(S, mtInformation, [mbOk], 0, mbOk);

end;