bx.pas

来自「关于课件 好多种结构的算法 等等 大家自己看吧」· PAS 代码 · 共 33 行

program bx(input,output);
var
a,b,c,d:array[1..4,1..4] of real;
i,j:integer;

PROCEDURE sm(VAR a,b,c,d:ARRAY[l1..u1:integer;l2..u2:integer] OF real);
 VAR 
  i,j,k:integer;
 BEGIN 
  for i:=l1 to u1 do
   for j:=l2 to u2 do
      begin 
       c[i,j]:= a[i,j]+b[i,j];
       d[I,j]:=0;
       for k:=l1 to u1 do
       d[i,j]:=d[i,j]+a[i,k]*b[k,j];
      end;
   end;
begin
 for i:=1 to 4 do
  begin
  for j:=1 to 4 do
   read(a[i,j]);
  readln;
  end;
 for i:=1 to 4 do
  begin
  for j:=1 to 4 do
   read(b[i,j]);
  readln;
  end;
sm(a,b,c,d);
end.