best. rekursive funktion erklären

[glkgereon]

trotzdem bleibt die frage was die function macht...denn:

wenn sie mit x=2*y aufgerufen wird, dann wird sie ohne ergebniss beendet
wenn aber x<>2*x dann
wird immer wieder die function mit x-1 und y-1 aufgerufen
und dann mit den startwerten aufgerufen, wo es zu ner endlosschleife kommt.....

daher hat diese function keinen erkennbaren sinn....

denkbar wäre da schon eher sowas:

Delphi-Quellcode:

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

was das nu wieder bringt is ne andere frage....