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....