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 Dikdörtgenin Alanını Hesaplama Örneği

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

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

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

Delphi Bir Sayının Tek Mi Çift Mi Olduğunu Göstermek