multi.p

pascal-s编译器

   //这是两个数组相乘的程序 
type ktyp=array [0:20,0:20] of real;
var a,b,c:ktyp;i,j,n:integer;
procedure multi(a,b:ktyp;n:integer);
var i,j,k:integer;              
begin
                 for i:=0 to n-1 do begin
                           for j:=0 to n-1 do begin
                                       c[i][j]:=0;
                                       for k:=0 to n-1 do begin
                                              c[i][j]:=a[i][k]*b[k][j]+c[i][j];
                                        end;
                           end;
                  end;
end;
begin
                writeln("请输入矩阵的维数：");
                read(n);
                writeln("请输入第一个矩阵：");
                for i:=0 to n-1 do begin
                      for j:=0 to n-1 do begin
                               read(a[i][j]);
                       end;
                end;
                writeln("请输入第二个矩阵：");
                for i:=0 to n-1 do begin
                      for j:=0 to n-1 do begin
                               read(b[i][j]);
                       end;
                end;
               multi(a,b,n);
               writeln("相乘后的结果为：");
                for i:=0 to n-1 do begin
                      for j:=0 to n-1 do begin
                               write(c[i][j]);write("  ");
                      end;
                      writeln("");
               end;

end.