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

38 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 Bir Dictionary'i Filtreleyip Yeni Bir Dictionary Yaratma Ö ...

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

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

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

Delphi 1'den N'e Kadar Olan Sayıların Toplamını Bulma Örneği