Delphi Fibonacci Serisinde N'inci Terimi Bulma Örneği

218 Okunma Delphi

"Delphi" Programlama dilinde "Fibonacci Serisinde N'inci Terimi Bulma Örneği" ile ilgili örnek kod aşağıda belirtilmiştir. 

program Fibonacci;

{$APPTYPE CONSOLE}

function NthFibonacciNumber(n: Integer): Integer;
begin
  if n = 1 then
    Result := 0
  else if n = 2 then
    Result := 1
  else
    Result := NthFibonacciNumber(n - 1) + NthFibonacciNumber(n - 2);
end;

var
  n: Integer;
begin
  Write('Pozisyon Girin (N): ');
  Readln(n);
  Writeln('Fibonacci Numarası: ', NthFibonacciNumber(n));
end.
Fibonacci Seri Dizi Bulma Sayı Delphi

İlginizi Çekebilir

Delphi Bir Stringin İlk Orta ve Son Karakterini Alma Örneği

Delphi Rastgele Sayılardan En Büyük ve En Küçüğü Bulma Örneği

Delphi 1 İle 100 Arasında 3'e Bölünebilenleri Bulma Örneği

Delphi Dictionary'deki Değerler İle Listenin Elemanlarını Eşleşti ...

Delphi Döngü İle Bir Dizideki En Büyük Sayıyı Bulma Örneği