Версия для печати темы

Автор: NEFFboy 22.05.2007 10:31

Нужно, составить программу для умножения многозначных чисел.
Заранее спасибо!

Автор: Lapp 22.05.2007 10:40

Каким образом заданы эти числа? Как массив цифр?
Реализуй алгоритм умножения "в столбик".

Автор: Bard 22.05.2007 10:56

вот тебе прога для умножения 2 многозначных чисел ...

type
 long=array[1..100] of real;

var c,d,x,y,z:long;
    i,j,l,n,m,nz,nx,ny,k,w:integer;
    f,g,h:text;
{***********************************************************}
Procedure Multiple(var x,y,z:long; var nx,ny,nz:integer);

var
 k,i:integer;

Begin
 
 for k:=1 to ny+1 do
 For i:=1 to nx+1 do
  z[i+k-1]:=z[i+k-1]+x[i]*y[k];

end;
{***********************************************************}
begin
 
 assign(f,'in1.txt');
 reset(f);
 readln(f,n);
 for k:=1 to n+1 do readln(f,x[k]);
 close(f);
 
 l:=0;
 for i:=1 to n+1 do d[i]:=x[i];
 for i:=1 to n+1 do x[i]:=d[(n+1)-i+1];
 
 assign(g,'in2.txt');
 reset(g);
 readln(g,m);
 for i:=1 to m+1 do readln(g,y[i]);
 close(g);

 j:=0;
 for i:=1 to m+1 do c[i]:=y[i];
 for i:=1 to m+1 do y[i]:=c[(m+1)-i+1];

 nx:=n; 
 ny:=m;
 nz:=nx+ny;

 assign(h,'out.txt');
 rewrite(h);
 Multiple(x,y,z,nx,ny,nz); 
 writeln(h,nz);
 For k:=nz+1 downto 1 do Write(h,z[k]:0:0,' ');
 close(h);

end.

Автор: volvo 22.05.2007 12:57

Тысячу раз проверенные способы из FAQ: http://forum.pascal.net.ru/index.php?showtopic=2428
надо проигнорировать, но написать свой (оттестированный вообще или нет - это я в БОЛЬШИХ сомнениях, но уж НИКАК не прошедший столько тестов, как способ, приведенный в FAQ-е за 3(!!!) года) метод, да?