Question

pascal高精度乘法

速度速度，在线等
网上全互相抄的我受不了了
高手速来
急死我了
别用指针和过程
那些只知道从网上抄的垃圾给我滚
还有那个用c++回答的呆子看好了，是pascal，只要pascal

Answer 1

呵呵 这是最基础的啊
主要的过程&数据结构 在下面

const
maxn=100; we=10;
type
arr=array[0..maxn]of longint;

procedure cheng(a,b:arr; var c:arr);
var
i,p,q:longint;
begin
fillchar(c,sizeof(c),0);
for p:=1 to a[0] do
for q:=1 to b[0] do
begin
i:=p+q-1;
c[i]:=c[i]+a[p]*b[q];
c[i+1]:=c[i+1]+c[i] div we;
c[i]:=c[i] mod we;
end;
while c[i+1]>0 do
begin
inc(i); c[i+1]:=c[i+1]+c[i] div we;
c[i]:=c[i] mod we;
end;
c[0]:=i;
end;

Answer 2

function mult(x,y:string):string;
var
	a,b,c:array[1..250] of shortint;
	ia,ib:integer;
	i,j,k:integer;
	m,p,q:integer;
	temp:string;
	t:string[1];
begin
	ia:=length(x);
	ib:=length(y);
	for i:=1 to 250 do begin a[i]:=0; b[i]:=0; c[i]:=0; end;
	for i:=1 to ia do a[i]:=ord(x[ia+1-i])-ord('0');
	for i:=1 to ib do b[i]:=ord(y[ib+1-i])-ord('0');
	for i:=1 to ia do begin
		p:=0;  {进位}
		for j:=1 to ib do begin
			m:=a[i]*b[j]+p+c[i+j-1];
			q:=m mod 10;
			c[i+j-1]:=q;
			p:=m div 10;
		end;
		c[i+ib]:=p;
	end;
	k:=0;                                     {**********************}
	for i:=250 downto 1 do if c[i]<>0 then 
		begin k:=i; break; end;
	temp:='';
	for i:=k downto 1 do begin str(c[i]:1,t); temp:=temp+t; end;
	mult:=temp;
end;

Answer 3

呵呵
这是最基础的啊
主要的过程&数据结构
在下面
const
maxn=100;
we=10;
type
arr=array[0..maxn]of
longint;
procedure
cheng(a,b:arr;
var
c:arr);
var
i,p,q:longint;
begin
fillchar(c,sizeof(c),0);
for
p:=1
to
a[0]
do
for
q:=1
to
b[0]
do
begin
i:=p+q-1;
c[i]:=c[i]+a[p]*b[q];
c[i+1]:=c[i+1]+c[i]
div
we;
c[i]:=c[i]
mod
we;
end;
while
c[i+1]>0
do
begin
inc(i);
c[i+1]:=c[i+1]+c[i]
div
we;
c[i]:=c[i]
mod
we;
end;
c[0]:=i;
end;

Answer 4

program aaa;
type
sz=array[1..200]of longint;
var
a,b:sz;
s,t:string;
s1,t1,i:longint;
procedure cheng(s,t:string);
var
i,j:longint;
begin
for i:=1 to s1 do
a[(s1-i)+1]:=ord(s[i])-ord('0');
for i:=1 to t1 do
b[(t1-i)+1]:=ord(t[i])-ord('0');
for i:=1 to t1 do
for j:=1 to s1 do
a[j]:=a[j]*b[i];
for i:=1 to s1-1 do
if a[i]>9 then
begin
a[i+1]:=a[i+1]+(a[i] div 10);
a[i]:=a[i] mod 10;
end;
while a[s1]>9 do
begin
a[s1+1]:=a[s1+1]+(a[s1]div 10);
a[s1]:=a[s1] mod 10;
inc(s1);
end;
end;
begin
readln(s);
readln(t);
fillchar(a,sizeof(a),0);
fillchar(b,sizeof(b),0);
s1:=length(s);
t1:=length(t);
cheng(s,t);
for i:=s1 downto 1 do
write(a[i]);
readln;
readln;
end.

Answer 5

for
i:=k3
to
max*2
do
begin
if
i=k3
then
write(c[i])
else
begin
if
c[i]<1000
then
write('0')
else
if
c[i]<100
then
write('00')
else
if
c[i]<10
then
write('000');
这地方有毛病
我一会给你发到你邮箱里