Посмотрите задачу (Pascal) Опции

[NEFFboy]

!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...

Задание: Составить программу для умножения многозначных чисел.
У меня получилось:

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;

begin
 assign(f,'input1.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,'input2.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);
 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];
 writeln(h,nz);
 For k:=nz+1 downto 1 do Write(h,z[k]:0:0,' ');
 close(h);
end.

если в inpu1.txt написать:

13

в input2.txt написать:

2

то в out.txt ролучаем:

15
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0

разве такой должен быть ответ??

Сообщение отредактировано: klem4 - 12.06.2007 22:36