Как посчитать факториалDelphi , Синтаксис , МатематикаКак посчитать факториалАвтор: http://www.swissdelphicenter.ch { The factorial of a positive integer is defined as: n! = n*(n-1)*(n-2)*(n-3)*...*2*1 1! = 1 0! = 1 Example: 5! = 5*4*3*2*1 } // Iterative Solution: function FacIterative(n: Word): Longint; var f: LongInt; i: Integer; begin f := 1; for i := 2 to n do f := f * i; Result := f; end; // Recursive Solution: function FacRecursive(n: Word): LongInt; begin if n > 1 then Result := n * FacRecursive(n - 1) else Result := 1; end; Статья Как посчитать факториал раздела Синтаксис Математика может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Математика ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |