
operator *(x:yiwei;y:longint)z:yiwei;
var i:longint;
begin
fillchar(z,sizeof(z),0);
z[0]:=x[0];
for i:=1 to x[0] do z[i]:=x[i]*y;
for i:=1 to z[0]-1 do
begin
inc(z[i+1],z[i] div jz);
z[i]:=z[i] mod jz;
end;
if z[z[0]]>=jz then
begin
z[z[0]+1]:=z[z[0]] div jz;
z[z[0]]:=z[z[0]] mod jz;
inc(z[0]);
end;
end;
这个是定义了一种新的运算符 高精乘么
var i:longint;
begin
fillchar(z,sizeof(z),0);
z[0]:=x[0];
for i:=1 to x[0] do z[i]:=x[i]*y;
for i:=1 to z[0]-1 do
begin
inc(z[i+1],z[i] div jz);
z[i]:=z[i] mod jz;
end;
if z[z[0]]>=jz then
begin
z[z[0]+1]:=z[z[0]] div jz;
z[z[0]]:=z[z[0]] mod jz;
inc(z[0]);
end;
end;
这个是定义了一种新的运算符 高精乘么
