5. Стандартные функции

Для работы с вещественными данными могут использоваться встроенные математические функции,

Стандартные математические функции Турбо Паскаля
Обращение	Тип параметра	Тип результата	Примечание
abs (x)	Real	Real	Модуль аргумента
АrсТаn (х)	Real	Real	Арктангенс ( значение в радианах)
cos (х)	To же	То же	Косинус, угол в радианах
ехр (х)	"	"	Экспонента
frас (х)	"	"	Дробная часть числа
int(x)	"	"	Целая часть числа
ln(x)	"	"	Логарифм натуральный
Pi	-	"	л = 3.141592653...
Random	-	"	Псевдослучайное число, равномерно распределенное в диапазоне 0...[1]
Randomize	-	-	Инициация генератора псевдослучайных чисел
sin(x)	Real	Real	Синус, угол в радианах
sqr (x)	To же	То же	Квадрат аргумента
sqrt (x)	"	"	Корень квадратный

В Паскале отсутствует функция возведения числа в степень, а также нет тригонометрических функций tg(), ctg(), arcsin() и arccos(), но они могут быть реализованы сочетанием стандартных функций:

X ⁿ = EXP(N*LN(X));

tg(X) = SIN(X)/COS(X);

ctg(X) = COS(X)/SIN(X);

arcsin(X) = ARCTAN(X/SQRT(1-SQR(X)));

arccos(X) = ARCTAN(SQRT(1-SQR(X))/X).

Примеры:

1. Программа возведения положительного числа "x" в степень"n", т. е. y = xⁿ. Расчет производится по формуле: y=Exp(n*ln(x)).

Program N_2; {возведение положительного числа в степень}

Var n, x, y : real;

BEGIN

Writeln('Возведение положительного числа x степень n');

Writeln('x = ');

Readln(x);

Write('n = ');

Readln(n);

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

Writeln('результат y=', y:10:6);

readln; {задержка экрана до нажатия Enter}

END.

Программа N_2; {возведение положительного числа в степень}

Переменная n, x, y : действительная;

Начало

ВывестиСтр('Возведение положительного числа x степень n');

ВывестиСтр('x = ');

ВвестиСтр(x);

Вывести('n = ');

ВвестиСтр(n);

y := Exp(n*Ln(x));

ВывестиСтр('результат y=', y:10:6);

ВвестиСтр; {задержка экрана до нажатия Enter}

конец.

2. Программа вычисления конечной суммы денежного вклада в банк через N месяцев при ежемесячной процентной ставке "pr" (5% cоответствует pr=5).

PROGRAM VKLAD; {расчет конечной суммы вклада в банк}

var

S, Sn, pr : Real;

i, N : Integer;

Begin

Write('Введите начальную сумму вклада S=');

readln(S);

Write('Введите процент по вкладу pr=');

readln(pr);

Write('Введите количество месяцев вклада N=');

readln(N);

For i:= 1 to N do S:= S*(1+pr/100); { цикл произведений }

Writeln('Конечная сумма вклада S=', S:10:2);

readln

End.

Программа VKLAD; {расчет конечной суммы вклада в банк}

Переменная

S, Sn, pr : действительная;

i, N : целая;

Начало

Вывести('Введите начальную сумму вклада S=');

ВвестиСтр(S);

Вывести('Введите процент по вкладу pr=');

ВвестиСтр(pr);

Вывести('Введите количество месяцев вклада N=');

ВвестиСтр(N);

Для i:= 1 до N выполнить S:= S*(1+pr/100); { цикл произведений }

ВывестиСтр('Конечная сумма вклада S=', S:10:2);

ВвестиСтр

конец.