Рекурсія

Фрактальні квадрати

Побудова примітива

Крива дракона

Уроки програмування в Lazarus

Завдання 1

Виконайте на комп'ютері програму обчислення N-го числа Фібоначчі. Проаналізуйте рекурсивне "занурення" алгоритму в себе і формування результату при виході з рекурсії

Вправа. «Рекурсивне визначення функцій»

   Скласти програму для обчислення п-го члену арифметичної прогресії, суми п членів арифметичної прогресії.

Рекурсивне визначення п-го члену арифметичної прогресії:

Складіть програму і виконайте її для знаходження 5-го члену прогресії3, 5, 7...

Var S, A, N, D : Integer;

Function An (A, N, D : Integer) : Integer;

Begin

   If N=1 Then Sum:=A

   Else An:=An (A+D, N—1, D)

End;

Begin

   ReadLn (A, N, D);

   S:=An (A, N, D);

   writeLn (S);

   ReadLn

End.

   Рекурсивне визначення суми n членів арифметичної прогресії a(n)

   Складіть програму і виконайте її для знаходження суми З членів прогресії2, 6, 10...

Var S, A, N, D : integer;

   Function Sum (a, N, D : Integer) : integer;

Begin

   if N=1 Then Sum:=A

   Else Sum:=A+Sum (A+D, N-l, D);

End;

Begin

   ReadLn (A, N, D);

   S:=Sum (A, N, D);

  WriteLn (S);

End.

    

   Внесіть зміни до програми таким чином, щоб вона обчислювала суму n членів геометричної прогресії з заданими b1 і q.