pascal高精度计算1!+2!+…+n!求改用高精度计算出S=1!+2!+3!+...+n!(n=10 then begin h[q]:=h[q]-10;h[q+1]:=h[q+1]+1;end;end;end;i:=100;while h[i]=0 do i:=i-1;for j:=i downto 1 do write(h[i]);end.--------------------------------------分割

来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/25 21:59:15
pascal高精度计算1!+2!+…+n!求改用高精度计算出S=1!+2!+3!+...+n!(n=10thenbeginh[q]:=h[q]-10;h[q+1]:=h[q+1]+1;end;end;

pascal高精度计算1!+2!+…+n!求改用高精度计算出S=1!+2!+3!+...+n!(n=10 then begin h[q]:=h[q]-10;h[q+1]:=h[q+1]+1;end;end;end;i:=100;while h[i]=0 do i:=i-1;for j:=i downto 1 do write(h[i]);end.--------------------------------------分割
pascal高精度计算1!+2!+…+n!求改
用高精度计算出S=1!+2!+3!+...+n!(n=10 then begin h[q]:=h[q]-10;h[q+1]:=h[q+1]+1;end;
end;
end;
i:=100;
while h[i]=0 do i:=i-1;
for j:=i downto 1 do write(h[i]);
end.
--------------------------------------分割线-----------------------------------------
阶乘能算出来,相加的时候有问题,应该怎么改?
program jiecheng;
type arr=array[-5..105] of integer;
var a,h:arr;
n,i,j,k,p,q:integer;
procedure jc(var a:arr;k:integer);
var i,x,t:integer;
begin
t:=0;
for i:=1 to 100 do
begin
x:=a[i]*k+t;
t:=x div 10;
a[i]:=x mod 10;
end;
end;
begin
read(n);
fillchar(h,sizeof(h),0);
fillchar(a,sizeof(a),0);a[1]:=1;
for p:=1 to n do
begin
jc(a,p);
i:=100;
while a[i]=0 do i:=i-1;
for q:=1 to i do
begin
h[q]:=h[q]+a[q];
while h[q]>=10 do begin h[q]:=h[q]-10;h[q+1]:=h[q+1]+1;end;
{ h[q+1]:=h[q+1]+(h[q] div 10);
h[q]:=h[q] mod 10;}
end;
end;
i:=100;
while h[i]=0 do i:=i-1;
for j:=i downto 1 do write(h[i]);
end.

pascal高精度计算1!+2!+…+n!求改用高精度计算出S=1!+2!+3!+...+n!(n=10 then begin h[q]:=h[q]-10;h[q+1]:=h[q+1]+1;end;end;end;i:=100;while h[i]=0 do i:=i-1;for j:=i downto 1 do write(h[i]);end.--------------------------------------分割
if h[q]>=10 then begin h[q]:=h[q]-10;h[q+1]:=h[q+1]+1;end;
这句话改成while循环,因为不止进位一次,怎么改不用我说了吧?
祝你noip成功,年年岁岁花相似,岁岁年年人不同,又是一批人呀.(感慨一下)

pascal用高精度方法求s=1+2+3+……+n的精确值 pascal用高精度方法求s=1+2+3+……+n的精确值 PASCAL求2的n次方用高精度算 pascal高精度计算1!+2!+…+n!求改用高精度计算出S=1!+2!+3!+...+n!(n=10 then begin h[q]:=h[q]-10;h[q+1]:=h[q+1]+1;end;end;end;i:=100;while h[i]=0 do i:=i-1;for j:=i downto 1 do write(h[i]);end.--------------------------------------分割 关于pascal计算2^n……(1 怎样高精度计算小数?比如2^(-n) 高精度计算a^n pascal编程:阶乘题目描述用高精度计算出S=1!+2!+3!+…+n!(n≤50) 其中“!”表示阶乘,例如:=5*4*3*2*1.输入格式一个正整数N.输出格式一个正整数S,表示计算结果.样例输入 3 样例输出 9 pascal编程:阶乘用高精度计算出S=1!+2!+3!+…+n!(n≤50)其中“!”表示阶乘,例如:=5*4*3*2*1.输入格式一个正整数N.输出格式一个正整数S,表示计算结果.样例输入3样例输出9 求助一道pascal高精度乘法题:输入两个正整数m、n,输出他们的积.( 1 free pascal 高精度计算谁有讲解给一下 1的阶乘+2的阶乘+3的阶乘+4的阶乘……+100的阶乘用计算.pascal用高精度快的话有悬赏 计算 1/1 + 1/2 + 1/3 + …… + 1/n 的值,输出保留 3 位小数pascal pascal高精度快速幂程序 pascal 高精度乘法压位高精度乘法(压位)最好有代码,要用上copy 和 val 的.最好思路是设一个p.p:=n(值) div 4;for i:=1 to p do……然后后面用到mod 10000 和div 10000分取头数和尾数. pascal高精度的斐波那契数列的第n项?斐波那契数列就是0,1,1,2,3,5,8,13,21,34,55……从第三项起,每一项都是紧挨着的前两项的和.以上就是斐波那契数列.输入第几项,输出第几项的值.程序要配有分 pascal 输入n(1 pascal 输入n(1