pascal 高精度乘法压位

来源：学生作业帮编辑：搜搜做题作业网作业帮分类：综合作业时间：2024/04/26 07:28:44

pascal 高精度乘法压位
高精度乘法（压位）
最好有代码,要用上copy 和 val 的.最好思路是设一个p.
p:=n（值） div 4;
for i:=1 to p do
……
然后后面用到mod 10000 和div 10000分取头数和尾数.

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.
我只是个菜鸟,这是老师教我写的,虽然有些浅显,但是对的,
（是4位一乘哦）

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