22-04-2006, 00:06
|
|
|
חבר מתאריך: 31.05.04
הודעות: 151
|
|
בדרך כלל מחשבים את זה בצורה כזאת:
קוד:
function C(k, n: integer): integer;
begin
if (k = 0) or (k = n) then C := 1
else C := C(k, pred(n)) + C(pred(k), pred(n));
end;
begin
WriteLn('C(3, 5) = ', C(3, 5))
end.
|