Форум «Всё о Паскале» _ Задачи _ Посмотрите задачу (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.