1998年分区联赛普级组之二 阶乘

本文介绍了一种使用高精度计算方法来求解S=1!+2!+...+n!(n≤50)的问题。通过定义数组进行阶乘计算与累加,实现了对大数的精确处理。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

Description

用高精度计算出S=1!+2!+3!+…+n!(n≤50) 
其中“!”表示阶乘,例如:5!=5*4*3*2*1。 

Input

N

Output

S

Sample Input

 

5

 

Sample Output

 

153


解题思路:只是高精度,不解释。


程序:
const
  maxn=65;
var
  a,c:array[1..maxn] of longint;
procedure mul(k:longint);
var
  i,s,g:longint;
begin
  g:=0;
  for i:=maxn downto 1 do
  begin
    s:=a[i]*k+g;
    a[i]:=s mod 10;
    g:=s div 10;
  end;
end;
procedure add;
var
  i,s,g:longint;
begin
  g:=0;
  for i:=maxn downto 1 do
  begin
    s:=a[i]+c[i]+g;
    c[i]:=s mod 10;
    g:=s div 10;
  end;
end;
procedure fac(n:longint);
var
  i:longint;
begin
  fillchar(a,sizeof(a),0);
  a[maxn]:=1;
  for i:=2 to n do
    mul(i);
end;
procedure main;
var
  i,n:longint;
begin
  readln(n);
  fillchar(c,sizeof(c),0);
  for i:=1 to n do
  begin
    fac(i);
    add;
  end;
end;
procedure print;
var
  i,j:longint;
begin
  i:=1;
  while (c[i]=0) and (i
  for j:=i to maxn do
    write(c[j]);
end;
begin
  main;
  print;
end.


版权属于: Chris
原文地址: http://blog.sina.com.cn/s/blog_83ac6af80102v0i9.html
转载时必须以链接形式注明原始出处及本声明。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值