Пояснення до алгоритму. Визначення функції факторіал можна записати у вигляді співвідношення:

Визначення функції факторіал можна записати у вигляді співвідношення:

Мовою Паскаль рекурсивна функція обчислення факторіала має аналогічний вигляд:

Function Fact (n: byte): longint;

Begin

if (n=0) or (n=1)

then Fact:=1

else Fact:=Fact(n – 1)*n;

end;

Приклад 2. Скласти алгоритм одержання N перших чисел Фібоначчі. Нагадаємо, що числа Фібоначчі є члени послідовності: 1, 1, 2, 3, 5, 8, 13, 21, … Кожний член цієї послідовності, починаючи з третього, дорівнює сумі двох чисел, які йому передують, а перші два члени рівні 1.

Алгоритм-функція має вигляд:

АЛГ ціл f (ціл n)

ПОЧ

якщо n=1 або n=2

то f:=1

інакше f:=f(n – 1)+f(n – 2)

Все

КІН

Цей алгоритм-функція дозволяє визначити n-не число Фібоначчі.

Алгоритм мовою Паскаль:

Function Fibonach (n: byte): longint;

Begin

if (n=1) or (n=2)

then Fibonach:=1

else Fibonach:=Fibonach(1)+Fibonach(2);

end;

Приклад 3. Скласти алгоритм обчислення степеня числа х^у, де х та у – цілі числа.

Рекурсивне визначення функціх st(x, y) має вигляд:

Алгоритм-функція має вигляд:

Приклад 4. Знайти найбільший спільний дільник двох чисел.

Алгоритм-функція має вигляд:

АЛГ ціл НСД(ціл a, b)

ПОЧ

Вибір

при a=b НСД:=а

при a>b НСД:=НОД(b, a – b)

інакше НОД:=НСД(a, b – a)

Все

КІН

Поиск по сайту: