Определить значение, которое будет вычислено при заданном вызове

@Джейн Хоппер · Регистрация: 10.08.2018

Студворк — интернет-сервис помощи студентам

Ниже записаны две рекурсивные функции, F и G:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
function F(n: integer): integer;
  begin
    if n > 2 then
      F := F(n - 1) + G(n - 2)
    else
      F := 1;
  end;
  function G(n: integer): integer;
  begin
    if n > 2 then
      G := G(n - 1) + F(n - 2)
    else
      G := 1;
  end;

Чему будет равно значение, вычисленное при выполнении вызова F(7)?

@JuriiMW · 04.11.2019, 07:30

Ни чего!
В данном виде нельзя скомпилировать… или не весь код.

Ну, если предположить, что вы забыли привести строку function G(n:integer):integer;forward;, то:

f(7) = f(6) + g(5)
f(7) = (f(5) + g(4)) + (g(4) + f(3))
f(7) = f(5) + f(3) + 2*g(4)
f(7) = (f(4) + g(3)) + (f(2) + g(1)) + 2*(g(3) + f(2))
f(7) = f(4) + 3*g(3) + 3*f(2) + g(1)
f(7) = (f(3) + g(2)) + 3*(g(2) + f(1)) + 3*1 + 1
f(7) = f(3) + 4*g(2) + 3*f(1) + 4
f(7) = (f(2) + g(1)) + 4*1 + 3*1 + 4
f(7) = 1 + 1 + 11 = 13

Новые блоги и статьи Все статьи Все блоги /
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а привычная функция main(). . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/

@JuriiMW 5095 / 2661 / 2355 Регистрация: 10.12.2014 Сообщений: 10,059
	04.11.2019, 07:30
	Ни чего! В данном виде нельзя скомпилировать… или не весь код. Ну, если предположить, что вы забыли привести строку `function G(n:integer):integer;forward;`, то: f(7) = f(6) + g(5) f(7) = (f(5) + g(4)) + (g(4) + f(3)) f(7) = f(5) + f(3) + 2g(4) f(7) = (f(4) + g(3)) + (f(2) + g(1)) + 2(g(3) + f(2)) f(7) = f(4) + 3g(3) + 3f(2) + g(1) f(7) = (f(3) + g(2)) + 3(g(2) + f(1)) + 31 + 1 f(7) = f(3) + 4g(2) + 3f(1) + 4 f(7) = (f(2) + g(1)) + 41 + 31 + 4 f(7) = 1 + 1 + 11 = 13 0