begin comment matrix copying; real array aa(1::100,1::100); real array bb(1::100,1::100); integer n, i, j; procedure outmatrix(integer value channel; real array a(*,*); integer value dim); begin integer i, j; write(dim); for i := 1 step 1 until dim do begin write(" "); for j := 1 step 1 until dim do writeon( a(i,j)); end; write(" "); end ; procedure matrCopy(real array a(*,*); real array b(*,*); integer value dim); begin integer i, j; for i := 1 step 1 until dim do begin for j := 1 step 1 until dim do b(i,j) := a(i,j) end end ; comment matrix generation; n := 10; for i := 1 step 1 until n do begin for j := 1 step 1 until n do begin aa(i,j) := entier ( 100000 /i/j) / 100000 end end ; outmatrix(1, aa, n); outmatrix(1, bb, n); matrCopy(aa, bb, n); outmatrix(1, bb, n) end