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

210 Okunma Delphi

"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.
Sayı Örnek Faktöriyel Matematik Çarpım Delphi

İlginizi Çekebilir

Delphi Dictionary'deki Değerler İle Listenin Elemanlarını Eşleşti ...

Delphi Döngü İle Bir Dizideki En Büyük Sayıyı Bulma Örneği

Delphi Bir Stringin Ortadaki Üç Karakterini Bulma Örneği

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

Delphi Bir Dizi Kullanarak N Sayının Toplamını Bulma Örneği