best. rekursive funktion erklären

[glkgereon]

ich wollte eigentlich das schreiben:

Delphi-Quellcode:

function funktion(x, y:byte): byte;
begin
  if (x<>2*y) then
    funktion:=funktion(x-1,y-1) + funktion(x+1,y+1);
end;