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

40 Okunma Delphi

"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.
Döngü Seri Fibonacci Yazdır Iterasyon Delphi

İlginizi Çekebilir

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

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

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

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

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