jzoj 【2014.8.17NOIP普及组模拟】公牛数学

【2014.8.17NOIP普及组模拟】公牛数学(bullmath.pas/c/cpp) 
(File IO): input:bullmath.in output:bullmath.out

时间限制:  1000 ms  空间限制:  128000 KB  具体限制  

Goto ProblemSet

题目描述

     公牛在数学方面比奶牛很多，他们自称可以计算很大的整数之间的乘法，并得到精确的结果。农夫约翰想知道他们的答案是否正确。请你帮助他检查公牛的答案。读入2个正整数（不大于10^40），计算他们的乘积，输出一个自然数（不能含有多余的零）。

     约翰农夫让你自己做这个工作。

高精度乘法。。。

const
  maxn=100;
var
  s1,s2:string;
  len1,len2:longint;
  a,b:array[1..maxn] of longint;
  c:array[1..2*maxn] of longint;

procedure init;
var
  i,j:longint;
begin
  fillchar(c,sizeof(c),0);
  readln(s1);
  readln(s2);
  len1:=length(s1);
  len2:=length(s2);
  for i:=1 to len1 do
    a[len1-i+1]:=ord(s1[i])-48;
  for i:=1 to len2 do
    b[len2-i+1]:=ord(s2[i])-48;
end;

procedure mul;
var
  i,j:longint;
begin
  for i:=1 to maxn do
    for j:=1 to maxn do
      begin
        c[i+j-1]:=a[i]*b[j]+c[i+j-1];
        c[i+j]:=c[i+j-1] div 10+c[i+j];
        c[i+j-1]:=c[i+j-1] mod 10;
      end;
end;

procedure print;
var
  i,j:longint;
begin
  j:=2*maxn;
  while (c[j]=0) and (j>1) do dec(j);
  for i:=j downto 1 do
    write(c[i]);
end;

begin
  assign(input,'bullmath.in'); reset(input);
  assign(output,'bullmath.out');rewrite(output);
  init;
  mul;
  print;
  close(input);close(output);
end.