高精度减法procedure substract（a,b:hp;var c:hp); var i,len:integer;

高精度数的定义：typehp=array[1..maxlen] of integer; 1．高精度加法 procedure plus （a,b:h

高精度数的定义：typehp=array[1..maxlen] of integer; 1．高精度加法 procedure plus （a,b:h

高精度乘以低精度 procedure multiply（a:hp;b:longint;var c:hp);var i,len:integer;

高精度乘以低精度 procedure multiply（a:hp;b:longint;var c:hp);var i,len:integer;

高精度乘以高精度 procedure high_multiply（a,b:hp; var c:hp}var i,j,len:integer;

高精度除以高精度 procedure high_devide（a,b:hp; var c,d:hp);vari,len:integer;