Рекурсивные алгоритмы

Begin

Begin

Begin

Begin

Var

Const

Var

Type

Const

Begin

Begin

Else

Begin

Var

Else

Else

Else

Begin

if n < 1 then

Fib:= 0

if n = 1 then

Fib:= 1

if n = 2 then

Fib:= x

Fib:= x*Fib(n-1, x) + Fib(n-2, x);

end;

Пример. Ханойские башни.

n: integer;

procedure HanoiTowers(n, x, y, z: integer);

if n = 1 then

writeln(x,'->', y)

HanoiTowers(n-1, x, z, y);

writeln(x,’ –> ’, y);

HanoiTowers(n-1, z, y, x);

end;

end;

readln(n);

HanoiTowers(n,1,2,3);

end.

n = 5;

MyArray = array [1.. n, 1.. n] of double;

MyAuxArray = array [1.. n] of byte;

D: double;

mA: MyArray =

(

(22, 19, 37, 62, 12),

(-20, 71, 46, 31, 47),

(32, 42, 59, 16, 77),

(-27, 29, 44, 72, 18),

(15, 47, -39, 23, -13)

);

mR: MyAuxArray = (0, 0, 0, 0, 0);

mC: MyAuxArray = (0, 0, 0, 0, 0);

procedure Det(m: integer; var D: double);

i, j, k: integer;

D0: double;

k:= n – m + 1;

if (k < 1) or (k > n) then begin D:= 0; exit; end;

mR[k]:= 1;

i:= -1;

D:= 0;

for j:= 1 to n do

if mC[j] = 0 then

i:= -i;

mC[j]:= 1;

if k < n then Det(m-1, D0) else D0:= 1;

D:= D + mA[k,j] * i * D0;

mC[j]:= 0;

end;

end;

mR[k]:= 0;

end;

Det(n, D);

writeln(D);

end.

Пример. Найти все способы расстановки восьми ферзей на шахматной доске 8×8, при которых ферзи не бьют друг друга.

Разности индексов у элементов матрицы размера :

Суммы индексов у элементов матрицы размера :

Uses CRT;

Дата добавления: 2014-01-06