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

61 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 1'den 100'e Kadar Asal Sayı Toplamı Örneği

Delphi Dizideki Bir Elemanı Döngü İle Arama Örneği

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

Delphi Santigrat Cinsinden Sıcaklığı Fahrenheit'e Çevirmek

Delphi Döngü Kullanarak Fibonacci Serisi Yazdırma Örneği