Pascal Program of Matrix Multiplication

program NameArray;
var
A , B, C : Array [1..5,1..5] of integer;
d, e : integer;
Begin
  for d := 1 to 5 do
   Begin
  for e := 1 to 5 do
    Begin
writeln ('input your numbers for A');
readln (A[d , e] );
end;
end;
  begin
  writeln;
   for d := 1 to 5 do
     begin
   for e := 1 to 5 do
  begin
  writeln ('enter a number for b');
  readln (B [d , e] );
  end;
  end;
  begin
for d:= 1 to 5
begin
for e:= 1 to 5
C [d , e] := C [d ,e] + A [d , e]  × B [ d, e];
end;
writeln (' The answers are');
readln;
writeln;
writeln;
for d := 1 to 5 do
begin
for e := 1 to 5 do
write ( C[ d, e], '  ' :2);
Writeln;
end;
end;
end;
readln;
End.


Subscribe to TECHLASS by Email



Do you like this post? Please link back to this article by copying one of the codes below.

URL Of Post:


HTML Link Code:

BB (forum) link code:

Share on Google Plus

About Grace Joseph

Grace Joseph is from Cross River State, Nigeria. She studied Computer Science in University of Calabar and has great passion for writing, technology and blogging.

0 comments:

Post a Comment