文档介绍：一、高精度乘法
(1位数)
程序如下:
program HighPrecision3_Multiply1;
const
maxlen=100; { max length of the number }
type
hp=record
len:integer; { length of the number }
s:array[1..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:= downto 1 do write([i]);
end;
procedure init;
var
st:string;
i:integer;
begin
readln(st);
:=length(st);
for i:=1 to do { change string to HP }
[i]:=ord(st[+1-i])-ord('0');
readln(z);
end;
procedure Multiply(a:hp;b:integer;var c:hp); { c:=a*b }
var i,len:integer;
begin
fillchar(c,sizeof(c),0);
len:=;
for i:=1 to len do
begin
inc([i],[i]*b);
inc([i+1],[i] div 10);
[i]:=[i] mod 10;
end;
inc(len);
while([len]>=10) do
begin
inc([len+1],[len] div 10);
[len]=[len] mod 10;
inc(len);
end;
while(len>1) and ([len]=0) do dec(len);
:=len;
end;
procedure main;
begin
Multiply(x,z,y);
end;
procedure out;
begin
PrintHP(y);
writeln;
end;
begin
init;
main;
out;
end.
(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;
程序如下:
program HighPrecision4_Multiply2;
const
maxlen=100; { max length of the number }
type
hp=record
len:integer; { length of the number }
s:array[1..maxlen] of integer
end;
var
x:array[1..2] of hp;
y:hp; { x:input ; y:output }
procedure PrintHP(const p:hp);
var i:integer;
begin
for i:= downto 1 do write([i]);
end;
pr