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

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Посмотрите задачу (Pascal)

Автор: NEFFboy 13.06.2007 0:45

 ! 
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


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