Нужно объяснение задачки(((

[Настенька..Блонди]

Товарисчи форумчане помогите плз с задачей , друг написал код на паскале ничего не объяснив, я и не поняла((( вод условие задачки напишите каму несложно подробные комментарий к каждой строчке...


Вод код:

var
N: Integer;

procedure Rec(A, B, N: Integer);
var
NA, NB: Integer;
begin
NA := A + B;
NB := A;
Dec(N);
if N <> 0 then
Rec(NA, NB, N)
else
Writeln(A + B);
end;

begin
Write('N=');
Readln(N);
Rec(1, 1, N - 1);
end.

[Jean-Esther]

Ну, если рассмитривать процедуру, то ее можно записать в виде

procedure Rec(A, B, N: Integer);
begin
Dec(N);
if N <> 0 then Rec(A+B, A, N)
else Writeln(A + B);
end;

Это равносильно нерекурсивной процедуре

procedure Rec(A, B, N: Integer);
var C:integer;
begin
repeat
dec(N);
if N>0 then begin C:=A; A:=A+B; B:=C; end;
until N=0;
writeln(A+B)
end;

То есть после первой итерации имеем A=A0+B0; B=A0.
После второй A=2A0+B0; B=A0+B0
После третей A=3A0+2B0; B=2A0+B0;
тут A0 и B0 — первоначальные аргументы.
Как несложно догадаться, далее идут ряды Фибоначчи-подобной последовательности с базой A0 и B0. Процедура выводит (N+2)-й член этой последовательности.

[Sazary]

Условия я что-то не вижу. Ну да ладно. И так понятно, что это программа для подсчета N-ого числа Фибоначчи.
Только вот есть здесь ошибка:
Вызов должен быть таким:

Rec(0, 1, N);

Иначе она считает не N-ое число, а (N+1)-ое и вылетает, если N=1.
Такую простую задачу могли бы и сами разобрать.

procedure Rec(A, B, N: Integer); 
var
NA, NB: Integer;
begin
NA := A + B;  { NA = сумма переданных процедуре параметров }
NB := A;   { в NB сохраняем предыдущее число }
Dec(N);   { уменьшаем  N }
if N <> 0 then  { если N >0, то продолжаем считать }
Rec(NA, NB, N)   { вызываем себя рекурсивно }
else
Writeln(A + B);   {иначе, если дошли до нуля, выводим результат }
end;

На примере: нужно найти 5-е число Фибоначчи.
Вызываем процедуру: Rec(0,1,5);
В ней снова вызываем Rec(1,0,4);
Далее Rec(1,1,3);
Потом Rec(2,1,2);
Rec(3,2,1);
Теперь снова уменьшаем N. Он становится равным 0. Значит, дошли до нужного числа. Это будет 3+2 = 5.

Как тут еще можно объяснить, даже не знаю.
Почитайте это -> Числа Фибоначчи

ps немного не успел

[roach1967]

Это процедура поиска N-го числа Фибоначчи. Так как по определению используется рекурентный способ нахождения, то в данной программе используется рекурсивный вызов процедуры до достижения числа N = 0.
Т.е. с каждым вызовом процедуры число N уменьшается, но при этом в NA и в NB поочерёдно прописываются все эти числа.