Примеры стандартных функций

Арифметические функции находятся в модуле System.

Напомним, что модуль System подключается автоматически к каждой программе.

Abs (x:real):real;	модуль
Abs (x:integer):integer;	модуль
Arctan (x:real):real;	арктангенс
Cos (x:real):real;	косинус
Sin (x:real):real;	синус
Ln (x:real):real;	Ln x
Int (x:real):real;	Вычисляет целую часть числа
Flag (x:real):real;	Вычисляет дробную часть чтсла
Sqr (x:real):real;	Квадрат числа х
Sqr (x:integer):integer;	Квадрат числа х
Sqrt (x:real):real;	Корень квадратный из х
Odd (x:real):real;	Х(нечетное)=true, Х (четное) = false
Random (x:real):real;	Генерирует псевдослучайное число из диапазона 0…х
Random (x:real):real;	Генерирует псевдослучайное число из диапазона 0…0,99
Pi	Число π
Exp (x:real):real;	ex

Параметры функций из модуля CRT

Wherex: byte;

Wherey: byte;

Keypressed: Boolean:

Readkey: char;

Это функции БЕЗ параметров.

Функции для работы со строками;

Copy (St, Poz, n):string;

Concat (st1, …, stn: string): string;

И другие. Это функции С параметрами.

Пример

Возведение вещественного числа в вещественную степень х^у

Для примера вычислим значения х³, х⁴, х⁵, х⁶

Program DemoPower;

Var

x, sum:real;

function Pow (x,y:real): real;

{функция вычисляется х в степени у }

Begin

Pow:=exp(y*ln(x));

End;

Begin

{начало основной программы}

writeln (‘Введите х’);