Получение натурального логарифма числа 2 и запись значения в переменную x:
[cc lang=”delphi” tab_size=”2″ line_numbers=”false” no_links=”false”]
x:= Ln(2); // var x : Double;
[/cc]
Получение экспоненты этого значения – операция обратная Ln (получению натурального логарифма):
[cc lang=”delphi” tab_size=”2″ line_numbers=”false” no_links=”false”]
x:= Exp(x); // var x : Double;
[/cc]
Модуль числа присвоить переменной x:
[cc lang=”delphi” tab_size=”2″ line_numbers=”false” no_links=”false”]
x:= Abs(-147); // x:Integer;
[/cc]
Квадратный корень числа 4 присвоить переменной x:
[cc lang=”delphi” tab_size=”2″ line_numbers=”false” no_links=”false”]
x:= Sqrt(4); // var x: Extended;
[/cc]
Возвести 7 в степень 3 и присвоить результат переменной:
[cc lang=”delphi” tab_size=”2″ line_numbers=”false” no_links=”false”]
x:= Power(7, 3); // var X : Extended; uses Math;
[/cc]
Получение логарифма числа 100 по основанию 10:
[cc lang=”delphi” tab_size=”2″ line_numbers=”false” no_links=”false”]
y:= Log10( 100 ); // var y: Extended; uses Math;
[/cc]
Получение логарифма числа 100 по основанию 2:
[cc lang=”delphi” tab_size=”2″ line_numbers=”false” no_links=”false”]
y:= Log2( 100 ); // var y: Extended; uses Math;
[/cc]
Округление до целого по банковским правилам:
[cc lang=”delphi” tab_size=”2″ line_numbers=”false” no_links=”false”]
x:=Round(345.87); //x: Extended; Здесь x=346.
[/cc]
Округление до двух знаков после запятой:
[cc lang=”delphi” tab_size=”2″ line_numbers=”false” no_links=”false”]
x:=Roundto(x,-2); //x: Extended; uses Math;
[/cc]
Увеличение значения переменной s на еденицу:
[cc lang=”delphi” tab_size=”2″ line_numbers=”false” no_links=”false”]
Inc(s); // s: integer;
[/cc]
Уменьшение значения переменной s на семь:
[cc lang=”delphi” tab_size=”2″ line_numbers=”false” no_links=”false”]
Dec(s, 7); // s: integer;
[/cc]
Присвоить переменной значение числа Пи:
[cc lang=”delphi” tab_size=”2″ line_numbers=”false” no_links=”false”]
x:=Pi; // var x:extended;
[/cc]
ABS(X) – модуль от Х (|X|).
SQR(X) – возведение Х в квадрат.
SQRT(X) – корень от Х.
Sin, Cos или Arctg(X) – Х должен быть выражен в радианах (X=градусы*П/180). Sin X, Cos X, Arctg X.
Exp(X) – экспонента в степени Х.
Log(X) – десятичный логарифм в степени Х.
Ln(X) – натуральный логарифм в степени Х.
Exp(A*Ln(X)) – Х в степени А.
Random(X) – случайное число X от 0 до X, где X целое и оно находится в диапазоне X<65536.
Round(X) – округлённое вещественное число X в целое.
Int(X) – целая часть числа X.
Frac(X) – дробная часть числа Х.
ODD(X) – ODD = True, если Х не чётное.
PRED(X) – предыдущее значение Х.
SUCC(X) – последующее значение Х.
Задача: Вывод факториала 5! (числа пять)
[cc lang=”delphi” tab_size=”2″ line_numbers=”false” no_links=”false”]
ShowMessage(floattostr(fact(5)));
// где
function fact(n:integer):integer;
var
i:integer;
begin
result:=1;
for i := 1 to n do
result := result * i;
end;
[/cc]