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

Они вам известны: это арифметические, алгебраические и тригонометрические функции. Кроме того, есть функция конца строки: Eoln - end of line.

Итерация и рекурсия

Итерация (от лат. повторение) - повторение, применение какой – либо математической.

Пример: Вычислить сумму ряда:

S=a1+a2+….+an

S1=a1

S2=a1+a2

S3=a1+a2+a3

S4=a1+a2+a3+a4

…………………

S=a1+a2+…+an

Рекурсия (от лат. возвращение) - вычисление последующего значения ряда через предыдущее. Последовательность, в которой соседние значения связаны формулой, называется рекурсивной.

Пример: Арифметическая прогрессия: a1, a2=a1+d, a3=a2+d, an=an-1+d

Пример.

Begin

If (n=0) or (n=1) then Factorial:=1

Else begin F:=1

For i:=2 to n do

F:=f*i;

Factorial:=f;

End;

End;

Begin Writeln (‘Введите N’);

Readln (N);

Writeln (‘факториал=’,Fact);

End.

Пример.

Program Rekursion;

Var fact:real;

N:integer;

Function Factorial (N:integer):real;

Begin

If (n=0) or (N=1) then factorial:=1

Else factorial:=factorial (N-1)*n;

End;

Begin

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

Readln (N);

Fact:=factorial (N);

Writeln (‘факториал=’,fact);

End.

Здесь первый вызов функции происходит в основной программе, а затем, начинается рекурсивный вызов внутри функции.

В языке программирования Паскаль есть возможность обращения процедуры или функции к самой себе. При этом циклическую часть программы можно составить без операторов цикла. Способ обращения процедуры или функции к самой себе называется рекурсией. С помощью рекурсии удобно представлять те задачи, которые сводятся к подзадачам того же типа, но меньшей размерности.

Вычисление факториала можно представить опять через факториал.

N!=n(n-1)!-рекурсивная формула.

Представление факториала в виде последовательности операций умножения – это итерационный процесс. n!= 1*2*3…n-итерационная формула. Итерация программируется с помощью циклов.

Пример: Вычисление факториала.

Program Iteracion ;

Var fact: real;

N:integer;

Function factorial (n: integer):real;

Var f:real;

I: integer;

Пример. В 13 веке итальянский математик Фибоначчи сформулировал задачу: ”Некто поместил пару кроликов в некое место, огороженное со всех сторон стеной, чтобы узнать, сколько пар кроликов родится в течении года, если через месяц пара кроликов производит на свет другую пару, а рожают со второго месяца после своего рождения.

Program Krolik;

Var kr:integer; (*число кроликов*)

N:Integer; (*число месяцев*)

Function fib(n:integer):integer;

Begin

If (n=1) or (n=2) then fib:=1

Else fib:=fib(n-1)+fib(n-2)

End;

Begin

Writeln(‘ввести N’);

Readln (N);

Kr:=fib (N); (*вызов ф-и*)

Writeln (kr:5);

End.