pascal用高精度方法求s=1+2+3+……+n的精确值

来源：学生作业帮编辑：搜狗做题网作业帮分类：综合作业时间：2024/04/30 01:11:52

type arr=array[1..500]of longint;
var a,b:arr;
i,n,w1,w,j:longint;
procedure jia;
var c:arr;
w2,i:longint;
begin
w2:=w;
fillchar(c,sizeof(c),0);
for i:=1 to w2 do begin
c[i]:=c[i]+a[i]+b[i];
c[i+1]:=c[i+1]+c[i] div 10;
c[i]:=c[i] mod 10;
end;
if c[w2+1]>0 then inc(w2);
a:=c;
w:=w2;
end;
begin
readln(n);
w:=1;
for i:=1 to n do begin
fillchar(b,sizeof(b),0);
j:=i;
w1:=0;
while j>0 do begin
inc(w1);
b[w1]:=j mod 10;
j:=j div 10;
end;
jia;
end;
for i:=w downto 1 do write(a[i]);
end.
或者
var n,m,i,j,w1,w2,w3:longint;
a,b,c:array[1..500]of longint;
begin
readln(n);
m:=n+1;
if n mod 2=0 then n:=n div 2
else m:=m div 2;
while n>0 do begin
inc(w1);
a[w1]:=n mod 10;
n:=n div 10;
end;
while m>0 do begin
inc(w2);
b[w2]:=m mod 10;
m:=m div 10;
end;
for i:=1 to w1 do
for j:=1 to w2 do begin
c[i+j-1]:=a[i]*b[j]+c[i+j-1];
c[i+j]:=c[i+j]+c[i+j-1] div 10;
c[i+j-1]:=c[i+j-1] mod 10;
end;
w3:=w1+w2;
while (c[w3]=0)and(w3>1) do dec(w3);
for i:=w3 downto 1 do write(c[i]);
end.
第二个比较快

求初级pascal题目答案：输入正整数n（整型）,求n!除以2013的余数（n!=1*2*3*….*n）求助一道pascal高精度乘法题：输入两个正整数m、n,输出他们的积.( 1 用pascal语言的while循环求s=1+2+3+...+10 c语言高精度计算 s=1-1/2+1/3-1/4+.+1/99-1/100,精确到小数点后100位用PASCAL语言编写一个求1+2+3+...+N的程序用键盘输入整数S,然后计算1+2+3+…+N的和,在和未超过S(包括相等)的情况下,最大的N是多少?用pascal编程 PASCAL求2的n次方 pascal wikioi 3123 高精度练习之超大整数乘法是超大的,不是普通的高精度乘法,求代码, pascal高精度的斐波那契数列的第n项? 计算式子的值：s=1+2+3+...+100（编程 pascal语言 for语句）一道非常简单的pascal题目,求大师用最简洁的方法做一下,N只猴子选大王.选举办法如下：从头到尾1,2,3报数,凡报3 关于pascal计算2^n……(1