Презентация на тему Рекурсивное программирование

factorial(n: integer): longint;
Begin
If n = 1

then factorial:=1
else factorial:= n * factorial (n – 1);
End;

программы.
Например, α:= factorial(5)
Function factorial
Begin
factorial:= 5

* factorial(4);
End;

Function factorial
Begin
factorial:= 4* factorial(3);
End;

Function factorial
Begin
factorial:= 2* factorial(1);
End;

Function factorial
Begin
factorial:= 3* factorial(2);
End;

Function factorial
Begin
factorial:= 1;
End;

3 вызов (n=3)

2 вызов (n=4)

4 вызов (n=2)

5 вызов (n=1)

1 вызов (n=5)

2 *1

5 *24

4 *6

3 *2

factorial(5) = 120

α:= 120

(окончание ввода - 0) и вывода ее на экран

в обратном порядке.

2. Найти первые N чисел Фибоначчи. Каждое число равно сумме двух предыдущих чисел при условии, что первые два равны 1 (1, 1, 2, 3, 5, 8, 13, 21, …)

в двоичную.
3910 = 1001112
Procedure Rec(n: integer);
begin

If n > 1 then Rec(n Div 2);
Write(n Mod 2);
End;

Write(n Mod 2);
End;
1 вызов (n = 39)
Procedure Rec
begin

Rec(n Div 2);
Write(n Mod 2);
End;

Procedure Rec
begin
Rec(n Div 2);
Write(n Mod 2);
End;

Procedure Rec
begin
Rec(n Div 2);
Write(n Mod 2);
End;

Procedure Rec
begin
Rec(n Div 2);
Write(n Mod 2);
End;

Procedure Rec
begin
Write(n Mod 2);
End;

2 вызов (n = 19)

3 вызов (n = 9)

4 вызов (n = 4)

6 вызов (n = 1)

5 вызов (n = 2)

N - ю, при условии, что 2 ≤ N

≥ 16 и его значение вводить с клавиатуры. Каким будет условие завершения входа в рекурсию?

then {“заглушка”}
begin
circle(x,y,r);r1:=trunc(r*k2); {рисование окружности}

r1:=trunc(r*k2) {вычисление радиуса орбиты}
For i:=1 to 4 do
begin
x1:=trunc(x+r1*cos(pi/2*i); { координаты центра }
y1:=trunc(y+r1*sin(pi/2*i); { i-ой окружности }
Picture1(x1,y1,trunc(r*k1),r1,n-1);
end;
end;
end;