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

79 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 Sayıların Geometrik Ortalamasını Bulma Örneği

Delphi Dictionary Key Value Değerlerini Ters Çevirmek

Delphi Bir Stringten İlk N Karakteri Kaldırma Örneği

Delphi Bir Stringi Ters Çevirmek

Delphi Bir String İçinde Başka Bir Stringin Adetini Bulma Örneği