Classical algorithm


for i:=1 to m do for j:=1 to n do begin c[i,j] := 0; for k:=1 to p do c[i,j] := c[i,j] + a[i,k]*b[k,j] end;

Pascal source (63.classic.p)



© Addison-Wesley Publishing Co. Inc.