[Guneska]

Сообщение от nixel

Вот моя старая реализация умножений матриц на VB. Отрыл в архивах. По идее рабочая, но на всякий случай 1 раз стоит пересчитать на бумажке.

Код:

For p = 1 To mA
  For k = 1 To nB
    For j = 1 To nA
      C(p, k) = C(p, k) + A(p, j) * B(j, k)
    Next j
  Next k
Next p

Ну, поменять имена переменных надо будет. nA - количество строк в матрице А, mA - количество столбцов.

Так как Вы предлаете не получается, видимо я полная идиотка, но разбираться с этим приходится, и я вышла до дакого кода, но почему выводятся только нули и только по нажатию Enter?
program Project2;

Код:

{$APPTYPE CONSOLE}

uses
  SysUtils;
const
n=2;
m=2;
p=2;
var
//Matrica А(n,m)
//Matrica B(m,p)
//Matrica C(n,p)
A : array [1..n, 1..m] of Integer;
B : array [1..m, 1..p] of Integer;
C : array [1..n, 1..p] of Integer;
k,j,v : Integer;
begin
  for k := 1 to n do
begin
  for j := 1 to m do
begin
  for v := 1 to p do
begin
  C[k,j] := A[k,v]*B[v,j];
  write (C[k,j]);
end;
writeln;
readln;
end;
end;
end.