洛谷 P1303 A*B Problem
阿新 • • 發佈:2019-01-26
題目描述
求兩數的積。
輸入輸出格式
輸入格式:
兩個數
輸出格式:
積
輸入輸出樣例
輸入樣例#1:
1
2
輸出樣例#1:
2
說明
需用高精
分析:高精乘模版題。
程式碼:
var i,x,y,j,z:integer;
m,n:ansistring;
a,b,c:array[1..10000] of int64;
begin
for i:=1 to 10000 do c[i]:=0;
readln(m);
read(n);
x:=length(m);
y:=length(n);
for i:=1 to x do
a[i]:=ord(m[x+1 -i])-48;
for i:=1 to y do
b[i]:=ord(n[y+1-i])-48;
for i:=(x+1) to 10000 do
a[i]:=0;
for i:=(y+1) to 10000 do
b[i]:=0;
for i:=1 to y do
for j:=1 to x do
c[i-1+j]:=c[i-1+j]+a[j]*b[i];
for i:=1 to 10000 do
if c[i]>9 then
while c[i]>9 do
begin
c[i+1]:=c[i+1]+c[i] div 10;
c[i]:=c[i] mod 10;
end;
for i:=10000 downto 1 do
if c[i]<>0 then break;
for j:=i downto 1 do
write(c[j]);
readln;
readln;
end.