Реферат: Рекурсия

{Функция на Pascal}

function C(m, n :Byte):Longint;

Begin

If (m=0) or (m=n)

Then C:=1

Else C:=C(m, n-1)+C(m-1, n-1)

End;

{Процедура на Pascal}

Procedure C(m, n: Byte; Var R: Longint);

Var R1, R2 : Longint;

Begin

If (m=0) or (m=n)

Then R:=1

Else Begin

C(m, n-1, R1);

C(m-1, n-1, R2);

R:=R1+R2

End;

End;

/* Функция на C */

int C(int m, int n)

{ int f;

• «
• 1
• 2
• 3
• 4
• 5
• 6
• 7
• »

• >>> Скачать <<<