Új hozzászólás Aktív témák

• #92 zenit tag Sikoly #89

  Új Válasz 2004-06-08 14:32:44 #92

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  zenit

  tag

  válasz Sikoly #89 üzenetére

  Az elvét írom le, hátha így is beugrik:
  Faktoriális(1) := 1
  Faktoriális(n) := n * Faktoriális(n - 1)
  
  Ha így még nem megy, akkor szólj!
  
  Szerk.: Elkéstem...
  
  [Szerkesztve]

• #91 KovacsUr addikt Sikoly #89

  Új Válasz 2004-06-08 14:32:38 #91

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  KovacsUr

  addikt

  válasz Sikoly #89 üzenetére

  Mondjuk
  
  function faktorialis(n: LongInt): LongInt;
  begin
    if n = 0 then
      Result := 1
    else
      Result := n * faktorialis(n-1)
  end;

Új hozzászólás Aktív témák