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

237 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 Sayının Asal Sayı Olup Olmadığını Bulma Örneği

Delphi Bir Sayının Tek Mi Çift Mi Olduğunu Göstermek

Delphi Yarıçap Girilen Bir Dairenin Çevre ve Alanını Bulma Örneği

Delphi Sayıların Geometrik Ortalamasını Bulma Örneği

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