testMatrice0.1, Pascal

Language: Layout:

var A,B,C:array[1..7,1..7] of integer;
    mA,mB,nA,nB,iA,iB,jA,jB,i,j,cx,k,x,y:integer;

procedure citireA;
begin
writeln('Introduceti primul tabel');
jA:=1; iB:=1;
 while jA<=mA do begin
     while iA<=nA do begin
       read(A[jA,iA]);
       iA:=iA+1;
     end;
     jA:=jA+1; iA:=1;
end;
end;

procedure citireB;
begin
writeln('Introduceti al doilea tabel');
jB:=1; iB:=1;
 while jB<=mB do begin
     while iB<=nB do begin
       read(B[jB,iB]);
       iB:=iB+1;
     end;
     jB:=jB+1; iB:=1;
 end; end;

{procedure calc;
begin
for k:=1 to nA do begin
 for i:=1 to nB do begin
  for j:=1 to mB do begin
   C[y,x]:=C[y,x]+A[iA,jA]*B[iB,jB];
   jA:=jA+1; iB:=iB+1;
  end;
  jA:=1; iB:=1; jB:=jB+1; x:=x+1;
  end;
  iA:=iA+1; write(C[y,x]); x:=1; y:=y+1;
 end;
end;

procedure calculare;
begin
 for i:=1 to nA do begin
  for j:=1 to mB do begin
   C[i,j]:=A[iA,jA]*B[iB,jB];
   jA:=jA+1; iB:=iB+1;
  end;
  iA:=iA+1; jA:=1; jB:=jB+1; iB:=1;
 end;
end;

procedure afishare;
begin
 {for i:=1 to (mA-1) do begin
  for j:=1 to (nB-1) do begin
   write(C[i,j],' ');
  end;
  writeln(C[mA,nB]);
 end;}
  for i:=1 to mA do begin
  for j:=1 to nB do begin
   write(C[i,j],' ');
  end;
  {writeln(C[mA,nB]);}
 end

end;
}
procedure calc;
begin
 for k:=1 to nA do begin
   for i:=1 to nB do begin
     for j:=1 to mB do begin
      CX:=CX+(A[iA,jA]*B[iB,jB]);
      {C[y,x]:=cx;}
      jA:=jA+1; iB:=iB+1;
     end;
     jA:=1; iB:=1; jB:=jB+1; write(cx,' '); x:=x+1; cx:=0;
   end;
   iA:=iA+1; x:=1; y:=y+1;
 end;
end;

procedure afishare;
begin
  for i:=1 to mA do begin
  for j:=1 to nB do begin
   write(C[i,j],' ');
  end;
 end

end;

begin
    write('Introduceti din cate linii shi colane va fi alcatuita prima matrice '); readln(mA,nA);
    write('Introduceti din cate linii shi colane va fi alcatuita a doua matrice '); readln(mB,nB);
    citireA;
    citireB;
    jA:=1;jB:=1;iA:=1;iB:=1;{linii o sa avem ca in A, iar coloane cat in B}
    i:=1; j:=1; y:=0; x:=0;
    calc{ulare;
    afishare;};
    read;
end.

Show compiler warnings [ - ] Show input
Compilation time: 0.23 sec, absolute running time: 0.25 sec, cpu time: 0.18 sec, memory peak: 3 Mb, absolute service time: 0,56 sec