ГДЗ по информатике 11 класс Босова, номер §9 № 11

§ №

Рекурсивная функция в Pascal

Напишите программу вычисления значения функции $F(n)$ , рассмотренной в примере 4 этого параграфа. Вычислите с её помощью значение функции $F(7)$ .

Решение

В примере функция задана так: при ; при значение равно . В функции Pascal первым проверяем граничное условие, иначе рекурсивно вызываем ту же функцию с меньшими аргументами. Оба аргумента постепенно достигают или , поэтому вычисление заканчивается.

program RecursiveF;
var
  n: integer;

function F(k: integer): int;
begin
  if k <=  then
    F := 
  else
    F := F(k - ) +  * F(k - );
end;

begin
  readln(n);
  if n <  then
    writeln('Введите натуральное число')
  else
    writeln('F(', n, ') = ', F(n));
end.

При вводе проследим значения от граничного случая: .

. Программа выведет F() = .

Ответ

При вводе программа выводит F() = .

Помогло?

Номер §9 № 11