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

208 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 Dizi Kullanarak N Sayının Toplamını Bulma Örneği

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

Delphi Bir Dizideki Tek Sayıların Adetini Bulma Örneği

Delphi Rastgele Sayılardan En Büyük ve En Küçüğü Bulma Örneği

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