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

202 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 Dizi Tam Sayının Ortalamasını Bulma

Delphi Bir Listede Birden Çok Olan Elemanları Göstermek

Delphi Dört İşlem Yapan Örnek

Delphi 1'den 100'e Kadar Asal Sayı Toplamı Örneği

Delphi Dikdörtgenin Alanını Hesaplama Örneği