UC知道关于pascel编程 麦森数
来源：百度知道 编辑：UC知道 时间：2024/05/13 11:35:27
练习二十麦森数
计算2N－1，N≤100000。 （N是次方）
提示：高精度运算，用数组模拟。
希望哪位高手帮我解决～～
要完整的程序啊～～
计算2N－1，N≤100000。 （N是次方）
提示：高精度运算，用数组模拟。
希望哪位高手帮我解决～～
要完整的程序啊～～
下面的程序用字符串表示大数，并编写过程实现了大数的乘法、加法和减法运算，最后主程序调用这两个过程实现了题目要求，完整的程序如下：
{$apptype console}
program exp;
var a:string;{全局大数}
procedure big_multi(x:integer);{实现大数乘法运算：a:=a*x}
var b,c,i,n:integer;
begin
c:=0;
n:=length(a);
i:=1;
while i<=n do
begin
b:=ord(a[i])-ord('0');
b:=b*x+c;
c:=b div 10;
b:=b mod 10;
a[i]:=chr(ord('0')+b);
i:=i+1;
end;
if c>0 then a:=a + chr(ord('0')+c)
end;
procedure big_add(x:integer);{实现大数加法运算：a:=a+x}
var b,c,i,n:integer;
begin
c:=x;
n:=length(a);
i:=1;