Başla Neler yaptık? Delphi Fibonacci

Fibonacci

krsnsk tarafından Ocak 19th, 2012 yazıldı. Kategori Delphi, Kendime Not

Fibonacci dizisi sayıları 0, 1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, 233, 377, 610, 987, 1597, 2584, 4181, 6765, 10946, … vb. şeklinde devam eder. Bu sayılar birbirleriyle oranlandığında altın oran ortaya çıkar ve her sayı kendisinden önce gelen iki sayının toplamıdır. Bu durumda genel olarak n’inci Fibonacci sayısı F(n) şu şekilde ifade edilir:

Bu da bir Fibonacci dizisidir:4, 7, 11, 18, 29, 47, … Çünkü Fibonacci dizisi herhangi iki sayıdan başlayabilir.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

function Fibonacci(aNumber: Integer): Integer;
var
  I,
  N_1,
  N_2,
  N: Integer;
begin
  if aNumber < 0 then
    raise Exception.Create('negatif sayı!');
 
  case aNumber of
    0: Result:= 0;
    1: Result:= 1;
  else
    begin
      N_1:= 0;
      N_2:= 1;
      for I:=2 to aNumber do
      begin
        N:= N_1 + N_2;
        N_1:= N_2;
        N_2:= N;
      end;
      Result:= N;
    end;
  end;
end;

Kaynak

Etiketler:

Geri izleme

Yorum yap

QR Code Business Card