Fibonacci Dizisi Algoritması

fibonacci dizisinin kuralı şudur fn=fn-1+fn-2 dir yani başlangıcı 1 ve 1 kabul edilir ve 3 sayı şu şekilde bulunur 1+1=2 yeni sıralama 1 1 2 dir 4. sayı ise 1+2=3 yani 1 1 2 3 diye gider. 1 1 2 3 5 8 13 21 34 55 89 diye gider 12 sayı 144 dür.

il başta x ile y yi yani 2 tane 1 i yazıyor. 2 eleman yazıldığı için döngü içinde s 0 dan başlatılıyor 98 e gelince çıkılıyor. Yani 2 + 98 , 100 tane sayı yazıyor ekrana. X ile Y yi topluyor Z ye atıyor. z yi ekrana yazınca yeni son iki elemanımız yani Y ile Z değerli Y => X e Z =>Y ye kaydırılıyor. Bu sayede X ile Y de her döngü sonunda son hesaplanan iki fib değeri tutulmuş oluyor.

Evet evet şimdi kafam yerine gelmeye başladı kaydırmayı çözememiştim hallettim onuda teşekkürler arkadaşlar..

Eksiklik: S in ilk değeri verilmemiş 0 olmalı. Buradaki s sadece kaçıncı fibonaccide olduğunu belirtiyor ama fib(3)=2 iken burada s=3 iken ekrana 5 yazıyor.

---------- Post added at 14:04 ---------- Previous post was at 14:03 ----------

Hobi olarak mı program yazmaya çalışıyorsun?

Kısmen hobi olarak biraz da okuduğum bölüm ile alakalı..

:blush:ya ben bunu tam olarak annlamadım algoritma olarak yazabilirmisinizzz çokk acilll

SDN programlama kafe konusunda çeşitli programlama dilleriyle yazılmış kodlar mevcut.

function fibonacci(f,b,s:Integer):boolean;
begin
repeat
Form1.Memo1.Lines.Add(IntToStr(f)); //veya writeln
b := f + b;
f := b - f;
until f>s;
end;

fibonacci(0,1,99); //Kullanımı