高精度乘法压位 pascal压四位的最好有标程+讲解

来源：学生作业帮编辑：神马作文网作业帮分类：综合作业时间：2024/11/16 14:20:38

高精度乘法压位
pascal压四位的最好有标程+讲解

program fsdfsdfsdf;
type
shuzu=array[0..10000]of int64;
var
s:ansistring;
s1:string;
a,b:shuzu;
i:longint;
procedure cheng(var a:shuzu;b:shuzu);
var
i,j:longint;
begin
for i:=a[0] downto 1 do
begin
for j:=b[0] downto 2 do
inc(a[i+j-1],a[i]*b[j]);
a[i]:=a[i]*b[1];
end;
a[0]:=a[0]+b[0];
while (a[a[0]]=0)and(a[0]>0) do
a[0]:=a[0]-1;
for i:=1 to a[0]-1 do
begin
a[i+1]:=a[i+1]+(a[i] div 10000);
a[i]:=a[i] mod 10000;
end;
while a[a[0]]>10000 do
begin
a[a[0]+1]:=a[a[0]+1]+(a[a[0]] div 10000);
a[a[0]]:=a[a[0]] mod 10000;
a[0]:=a[0]+1;
end;
end;
begin
readln(s);
a[0]:=length(s)div 4;
for i:=1 to a[0] do
begin
s1:=copy(s,length(s)-3,4);
val(s1,a[i]);
delete(s,length(s)-3,4);
end;
if s'' then
begin
inc(a[0]);
val(s,a[a[0]]);
end;
readln(s);
b[0]:=length(s)div 4;
for i:=1 to b[0] do
begin
s1:=copy(s,length(s)-3,4);
val(s1,b[i]);
delete(s,length(s)-3,4);
end;
if s'' then
begin
inc(b[0]);
val(s,b[b[0]]);
end;
cheng(a,b);
write(a[a[0]]);
for i:=a[0]-1 downto 1 do
begin
if (a[i]>=1000) then write(a[i])
else
if a[i]>=100 then write('0',a[i])
else
if a[i]>=10 then write('00',a[i])
else write('000',a[i]);
end;
writeln;
readln;
readln;
end.
再问：讲解⊙﹏⊙b汗
再答：嗯，就是把四位四位的倒着存，高精度的部位差不多，只是输入和输出需要改动。

高精度乘法压位 pascal压四位的最好有标程+讲解 pascal 高精度乘法压位 pascal wikioi 3123 高精度练习之超大整数乘法是超大的,不是普通的高精度乘法,求代码, pascal高精度乘法（高精度乘单精度）求助一道pascal高精度乘法题：输入两个正整数m、n,输出他们的积.( 1 free pascal 高精度计算谁有讲解给一下高精度阶乘（pascal） pascal高精度拆分整数【问题描述】输入一个正整数N（不超过一百位）,如果N是偶数,则拆分N的各个数字相 pascal高精度快速幂程序 free pascal高精度计算问题 Pascal 矩阵乘法的完整过程? pascal高精度的斐波那契数列的第n项?

高精度乘法压位 pascal压四位的 最好有标程+讲解

高精度乘法压位 pascal压四位的最好有标程+讲解