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

"Delphi" Programlama dilinde "Döngü Kullanarak Fibonacci Serisi Yazdırma Örneği" ile ilgili kod örneği aşağıda gösterilmiştir.

program Fibonacci;

{$APPTYPE CONSOLE}

uses
  SysUtils;

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.



İlginizi Çekebilir

Delphi Bir Sayının 5'in Katı Olup Olmadığını Gösteren Örnek

Delphi Bir Dizi Gerçek Sayının Çarpımını Bulma Örneği

Delphi Dizideki Herhangi Bir Konuma Eleman Ekleme Örneği

Delphi Stringin Tersten Okunuşu İle Aynı Olduğunu Kontrol Eden Ör ...

Delphi 1'den N'e Kadar Asal Sayıları Bulma Örneği