Функция программиста для вычисления факториала

FunctionFactor (n: integer): integer;

Var

f: integer {факториал числа n }

i: integer;

Begin

f:=1;

fori:=2 to n do

f:=f*i;

Factor:=f;

end;

У функции Factor один параметр – переменная n типа integer. Параметр задает число, факториал которого надо вычислить. Конкретное значение n получит при вызове функции. Возвращает функция вычисленное значение факториала – число типа integer.

Другой пример: в Turbo Pascal нет стандартной функции вычисления кубического корня. Приведем ее возможное определение.

Функция программиста для вычисления кубического корня

function Cub (x:real): real;

Var

pr :real; {приближенное значение кубического корня}

Begin

pr:=sqrt(x); {первое приближение}

{ в качестве второго приближения выбираем (x:pr):pr }

whileabs (pr-x/(pr*pr))>0.001do

Begin

{ новое приближение – среднее арифметическое }

{ удвоенного приближения на прошлом шаге и текущего }

pr:=(2*pr+x/(pr*pr))/3;

end;

Cub:=pr;

end;

Функция Cub реализует алгоритм “ручного” метода приближенного вычисления кубического корня, при котором в качестве первого приближения,”на глаз“, выбирается наиболее подходящее число (в программе – это значение квадратного корня числа, кубический корень которого надо вычислить). Затем число, из которого надо извлечь корень, делится на выбранное приближение, и полученное таким образом значение еще раз делится на выбранное приближение. Если полученное число отличается от выбранного приближения на величину, не большую, чем допустимое значение погрешности, то выбранное приближение принимается за значение корня. Если погрешность превышает допустимое значение, то вычисляется новое приближение как среднее арифметическое удвоенного предыдущего приближения, и процесс вычисления повторяется.