高精度乘一个整型数据(integer)

高精度乘一个整型数据(integer)

只需要将上述程序的hp类型定义如下即可:

type
  hp=record
       len:integer { length of the number }
       s:array[1..maxlen] of longint
       { s[1]   is the lowest position
         s[len] is the highest position}
     end;