基本算法(pascal版).doc

一、高精度乘法1.高精度乘单精度(1位数) 程序如下: program HighPrecision3_Multiply1;const maxlen=100; max length of the number type hp=record len:integer; length of the number s:array1.maxlen of integer; end;var x,y:hp; x:input hp ; y:output z:integer; z:input lp procedure PrintHP(const p:hp); var i:integer; begin for i:=p.len downto 1 do write(p.si); end; procedure init; var st:string; i:integer; begin