pascal 高精度乘法压位高精度乘法(压位)最好有代码,要用上copy 和 val 的.最好思路是设一个p.p:=n(值) div 4;for i:=1 to p do……然后后面用到mod 10000 和div 10000分取头数和尾数.
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/05 16:25:53
![pascal 高精度乘法压位高精度乘法(压位)最好有代码,要用上copy 和 val 的.最好思路是设一个p.p:=n(值) div 4;for i:=1 to p do……然后后面用到mod 10000 和div 10000分取头数和尾数.](/uploads/image/z/3688491-3-1.jpg?t=pascal+%E9%AB%98%E7%B2%BE%E5%BA%A6%E4%B9%98%E6%B3%95%E5%8E%8B%E4%BD%8D%E9%AB%98%E7%B2%BE%E5%BA%A6%E4%B9%98%E6%B3%95%EF%BC%88%E5%8E%8B%E4%BD%8D%EF%BC%89%E6%9C%80%E5%A5%BD%E6%9C%89%E4%BB%A3%E7%A0%81%2C%E8%A6%81%E7%94%A8%E4%B8%8Acopy+%E5%92%8C+val+%E7%9A%84.%E6%9C%80%E5%A5%BD%E6%80%9D%E8%B7%AF%E6%98%AF%E8%AE%BE%E4%B8%80%E4%B8%AAp.p%3A%3Dn%EF%BC%88%E5%80%BC%EF%BC%89+div+4%3Bfor+i%3A%3D1+to+p+do%E2%80%A6%E2%80%A6%E7%84%B6%E5%90%8E%E5%90%8E%E9%9D%A2%E7%94%A8%E5%88%B0mod+10000+%E5%92%8Cdiv+10000%E5%88%86%E5%8F%96%E5%A4%B4%E6%95%B0%E5%92%8C%E5%B0%BE%E6%95%B0.)
pascal 高精度乘法压位高精度乘法(压位)最好有代码,要用上copy 和 val 的.最好思路是设一个p.p:=n(值) div 4;for i:=1 to p do……然后后面用到mod 10000 和div 10000分取头数和尾数.
pascal 高精度乘法压位
高精度乘法(压位)
最好有代码,要用上copy 和 val 的.最好思路是设一个p.
p:=n(值) div 4;
for i:=1 to p do
……
然后后面用到mod 10000 和div 10000分取头数和尾数.
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位一乘哦)