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

255 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 Key Value Değerlerini Ters Çevirmek

Delphi While Döngüsü İle 10 Sayının Ortalamasını Bulma Örneği

Delphi Bir Stringdeki Her Karakterin Sayısını Bulma Örneği

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

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