Delphi Bir Sayının Faktöriyelini Bulma Örneği

"Delphi" Programlama dilinde "Bir Sayının Faktöriyelini Bulma Örneği" ile ilgili kod örneği aşağıdadır.

program Faktoriyel;

{$APPTYPE CONSOLE}

function Faktoriyel(n: Integer): Integer;
begin
  if n = 1 then
    Result := 1
  else
    Result := n * Faktoriyel(n-1);
end;

var
  a, sonuc: Integer;
begin
  Write('Bir tamsayı giriniz: ');
  Readln(a);
  sonuc := Faktoriyel(a);
  WriteLn(a, ' sayısının faktöriyeli: ', sonuc);
end.



İlginizi Çekebilir

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

Delphi Bir Stringin İlk Orta ve Son Karakterini Alma Örneği

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

Delphi Bir Dictionary'i Filtreleyip Yeni Bir Dictionary Yaratma Ö ...

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