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

260 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 Bir Sayının Asal Sayı Olup Olmadığını Bulma Örneği

Delphi Bir String İçindeki Sayıların Toplamını Bulma Örneği

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

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

Delphi Dizideki Bir Elemanı Döngü İle Arama Örneği