作业帮pascal wikioi 3123 高精度练习之超大整数乘法 是超大的,不是普通的高精度乘法,求代码,wikioi 3123 高精度练习之超大整数乘法 Description 给出两个正整数A和B,计算A*B的值.保证A和B的位数不超过100000
来源：学生作业帮助网 编辑：作业帮 时间：2024/04/29 17:50:27
pascal wikioi 3123 高精度练习之超大整数乘法 是超大的,不是普通的高精度乘法,求代码,wikioi 3123 高精度练习之超大整数乘法 Description 给出两个正整数A和B,计算A*B的值.保证A和B的位数不超过100000
pascal wikioi 3123 高精度练习之超大整数乘法 是超大的,不是普通的高精度乘法,求代码,
wikioi 3123 高精度练习之超大整数乘法 Description 给出两个正整数A和B,计算A*B的值.保证A和B的位数不超过100000位.输入描述 Input Description 读入两个用空格隔开的正整数 输出描述 Output Description 输出A*B的值 样例输入 Sample Input 4 9 样例输出Sample Output 36 数据范围及提示 Data Size & Hint 两个正整数的位数不超过100000位希望有高手来解答!
pascal wikioi 3123 高精度练习之超大整数乘法 是超大的,不是普通的高精度乘法,求代码,wikioi 3123 高精度练习之超大整数乘法 Description 给出两个正整数A和B,计算A*B的值.保证A和B的位数不超过100000
var i,j,la,lb,len,t:longint; ch:char;
a,b:array[1..100000] of longint;
c:array[1..200000] of longint;
begin
assign(input,'in.txt'); reset(input);
assign(output,'out.txt');rewrite(output);
i:=0;
repeat
inc(i); read(ch); a[i]:=ord(ch)-48;
until ch=' ';
dec(i); la:=i; j:=1;
while i>j do begin t:=a[i]; a[i]:=a[j]; a[j]:=t; inc(j); dec(i) end;
i:=0;
repeat
inc(i); read(ch); b[i]:=ord(ch)-48;
until chj do begin t:=b[i]; b[i]:=b[j]; b[j]:=t; inc(j); dec(i) end;
fillchar(c,sizeof(c),0);
for i:=1 to la do
begin
for j:=1 to lb do
begin
c[i+j-1]:=c[i+j-1]+a[i]*b[j];
inc(c[i+j],c[i+j-1] div 10);
c[i+j-1]:=c[i+j-1] mod 10;
end;
end;
len:=la+lb;
while c[len]>0 do
begin
c[len+1]:=c[len] div 10; c[len]:=c[len] mod 10; inc(len)
end;
dec(len);
for i:=len downto 1 do write(c[i]);
writeln;
close(input); close(output);
end .