vj p1040题解

原体叙述

简单高精，其他不解释

代码如下：

 

 1  type  arra = array [ - 3 .. 10000 ] of  longint;
 2  var  a,b,c:arra;
 3      m,n,next,l1,l2,l3:longint;
 4  procedure  init( var  m:arra; var  lo:longint);
 5     var  k: array [ - 4 .. 10000 ] of  char;
 6        q: array [ - 3 .. 10000 ] of  longint;
 7        l,i,j,z,p:longint;
 8        s:string;
 9  begin
10    l: = 0 ;
11    fillchar(m,sizeof(m), 0 );
12     while   not (eoln)  do
13       begin
14        inc(l);
15        read(k[l]);
16       end ;
17     for  i: =- 4   to   0   do  k[i]: = ' 0 ' ;
18     for  i: = 1   to  (l  div   3 ) + 1   do
19       begin
20        s: = ' 000 ' ;
21        z: = 1 ;
22         for  j: = l - i * 3 + 1   to  l - (i - 1 ) * 3   do
23           begin
24            s[z]: = k[j];
25            inc(z);
26           end ;
27        val(s,q[i]);
28       end ;
29    readln;
30    lo: = (l  div   3 ) + 1 ;
31    m: = q;
32  end ;
33  procedure  multiplied(a,b:arra;l1,l2:longint);
34  var  i,j:longint;
35      s:string;
36  begin
37    l3: = l1 + l2;
38    next: = 0 ;
39    fillchar(c,sizeof(c), 0 );
40     for  i: = 1   to  l1  do
41       for  j: = 1   to  l2  do
42         begin
43          c[i + j - 1 ]: = a[i] * b[j] + c[i + j - 1 ];
44           if  c[i + j - 1 ] >= 1000   then
45             begin
46              c[i + j]: = c[i + j] + c[i + j - 1 ]  div   1000 ;
47              c[i + j - 1 ]: = c[i + j - 1 ]  mod   1000 ;
48               if  i + j > l3  then  inc(l3);
49             end ;
50         end ;
51     while  c[l3] = 0   do  dec(l3);
52    write(c[l3]);
53     for  i: = l3 - 1   downto   1   do
54       begin
55        str(c[i],s);
56         while  length(s) < 3   do  s: = ' 0 ' + s;
57        write(s);
58       end ;
59  end ;
60 
61  begin
62    init(a,l1);
63    init(b,l2);
64    multiplied(a,b,l1,l2);
65  end .                            

 

转载于:https://www.cnblogs.com/waterfalleagle/archive/2009/11/13/1602541.html