Pascal Program of Matrix Multiplication andrey пятница, 21 февраля 2014 г. No Comment

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.

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.

Tweet

by Jillur Rahman

Jillur Rahman is a Web designers. He enjoys to make blogger templates. He always try to make modern and 3D looking Templates. You can by his templates from Themeforest.

Follow him @ Twitter | Facebook | Google Plus

Tags: Без рубрики