求解：3117高精度乘法为什么第五个点过不了？

急！急！急！急！急！急！急！急！急！急！急！急！急！急！急！急！急！
代码如下：
var
s1:ansistring;
a,b,c:array[1..1000]of integer;
y,i,j,l,l1,l2,ld:longint;
h:boolean;
begin
readln(s1);
l1:=length(s1);l2:=l1;l:=l1;
while (s1[l1]<>' ') do l1:=l1-1;
l1:=l1-1; l2:=l-l1-1;
for i:=1 to l1 do a[i]:=ord(s1[l1-i+1])-48;
for i:=l1+2 to l do b[i-l1-1]:=ord(s1[l-i+l1+2])-48;
if (a[l1]=0)or(b[l2]=0) then writeln(0);
for i:=1 to l1 do
for j:=1 to l2 do
c[i+j-1]:=a[i]*b[j]+c[i+j-1];
i:=1;
while c[i]<>0 do
begin
c[i+1]:=c[i+1]+c[i] div 10;
c[i]:=c[i] mod 10;
i:=i+1;
end;
for j:=i-1 downto 1 do write(c[j]);
end.

你是用一般的高精度乘法的吧，注意到大数A,B的位数不超过100000，因此计算乘和加的次数明显变多导致超时。用FFT，这是快速傅里叶变换的裸题

c[i+j-1]:=a[i]*b[j]+c[i+j-1]; 改：
c[i+j-1]:=a[i]*b[j]；

已AC,求还有一道题的错误
1068 只有50分var
m,n,x,i,j,k,l:longint;
dp:array[-10..40,-10..40,-10..40,-10..40]of integer;
a:array[1..350]of longint;
b:array[1..4]of longint;
function max(n1,n2,n3,n4:longint):longint;
var m1,m2:longint;
begin
if n1>n2 then m1:=n1 else m1:=n2;
if n3>n4 then m2:=n3 else m2:=n4;
if m1>m2 then max:=m1 else max:=m2;
end;
begin
readln(m,n);
for i:=1 to m do read(a[i]);
readln;
for i:=1 to n do
begin
read(x);
inc(b[x]);
end;
dp[0,0,0,0]:=a[1];
for i:=1 to b[1] do
for j:=0 to b[2] do
for k:=0 to b[3] do
for l:=0 to b[4] do
begin
dp[i,j,k,l]:=max(dp[i-1,j,k,l],dp[i,j-1,k,l],dp[i,j,k-1,l],dp[i,j,k,l-1])+a[i+j*2+k*3+l*4+1];
end;
writeln(dp[i,j,k,l]);
end.
多谢！！

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

10回复贴，共1页

<<返回wikioi吧

分享到:

日	一	二	三	四	五	六