 |
 |
 |
 |
 |
|
Registriert seit: 13. Okt 2003 Ort: Künzelsau 1.613 Beiträge Delphi 2006 Professional |
#2
Re: Fibonacci-Zahlen
11. Apr 2005, 11:56
Warum so kompliziert?
Delphi-Quellcode:
PS: Rekursion is was Feines!
function fibonacci(Index : Integer) : Int64;
Begin Case Index of 1, 2 : Result := 1; Else Result := fibonacci(Index-2) + fibonacci(Index-1); End; End;  //Edit: Integer in Int64 geändert. 
Axel Sefranek
A programmer started to cuss, cause getting to sleep was a fuss.
As he lay there in bed, looping round in his head was: while(!asleep()) ++sheep; |
Zitat
|
ForumregelnEs ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.
BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus. Trackbacks are an
Pingbacks are an
Refbacks are aus
|
|
Baum-Darstellung
