Ich fange gleich damit an:
Fibonacci Folge
Bitte um Test & Verbesserungsvorschläge...
Dieser Beitrag wurde von I3lack0ut bearbeitet: 27. März 2004 - 19:38
geschrieben 27. März 2004 - 19:38
Dieser Beitrag wurde von I3lack0ut bearbeitet: 27. März 2004 - 19:38
geschrieben 27. März 2004 - 19:54
geschrieben 27. März 2004 - 19:57
geschrieben 27. März 2004 - 20:01
geschrieben 27. März 2004 - 20:09
Zitat (I3lack0ut: 27.03.2004, 20:01)
Zitat
Dieser Beitrag wurde von born2flame bearbeitet: 27. März 2004 - 20:17
geschrieben 27. März 2004 - 20:10
geschrieben 27. März 2004 - 20:24
Zitat (born2flame: 27.03.2004, 20:09)
Zitat (I3lack0ut: 27.03.2004, 20:01)
geschrieben 27. März 2004 - 22:17
Zitat (mastre1: 27.03.2004, 21:19)
geschrieben 27. März 2004 - 23:08
Zitat (mo: 27.03.2004, 20:38)
geschrieben 27. März 2004 - 23:08
procedure TForm1.BRekursivClick(Sender: TObject);
var N,F,zaehler: int64;
function Fib(N: int64):int64;
begin
inc(zaehler);
If (N > 1) then
Fib := Fib(N - 1) + Fib(N - 2)
else
Fib := 1;
if N = 0 then Fib := 0;
end;
begin
zaehler := 0;
N := StrToInt(SEingabe.Text);
F := Fib(N);
EAusgabe.Text := IntToStr(F);
EAufrufe.Text := IntToStr(zaehler);
end;
procedure TForm1.BIterativClick(Sender: TObject);
var N, F, F1, F2, zaehler :int64;
begin
F1 := 1;
F2 := 1;
zaehler := 2;
N := StrToInt(SEingabe.Text);
repeat
inc(zaehler);
F := F1 + F2;
F2 := F1;
F1 := F;
until zaehler >= N;
If (N = 1) or (N = 2) then F := 1;
EAusgabe.Text := IntToStr(F);
EAufrufe.Text := IntToStr(zaehler);
end;
Dieser Beitrag wurde von Doppelwinkel bearbeitet: 27. März 2004 - 23:19
geschrieben 27. März 2004 - 23:32
[Main]
LoadFrom = E:\Home\uwe\Savegames\Halo\My Games
SaveTo = E:\Home\uwe\Eigene Dateien\My Games
ExeFile = D:\Spiele\Halo\halo.exe
Params = -vidmode 1024,768,100
geschrieben 27. März 2004 - 23:40
geschrieben 27. März 2004 - 23:49
Zitat (patrick888: 28.03.2004, 00:40)