P108 Delphi 递归求阶乘

最新推荐文章于 2025-12-08 10:31:24 发布

原创最新推荐文章于 2025-12-08 10:31:24 发布 · 177 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#学习

Delphi基础专栏收录该内容

20 篇文章

订阅专栏

这篇文章介绍了如何使用递归函数facn()来计算给定整数n的阶乘，并在控制台应用程序中实现了这个过程。

program Project7;

{$APPTYPE CONSOLE}
{$R *.res}

uses
  System.SysUtils;

var
  n: Integer;

function facn(n: Integer): Integer;
begin
  if n = 0 then
    facn := 1                 //小到一定规模，可以求出结果的边界
  else
    facn := n * facn(n - 1);  //规模变小
end;

begin
  Readln(n);

  Writeln(n, '!=', facn(n));
  Readln;

end.