[Torres]

Помогите, пожалуйста, даны квадратные матрицы A и B порядка n. Нужно получить произведение B*AT, где T-транспонированная матрице A.

[Kapitoshka438]

Результатом будет матрица порядка nxn, в которой элемент i-й строки j-го столбца будет равен скалярному произведению i-й строки матрицы B и j-й строки матрицы A.

Код:

var
  A, B, C: array [1..N, 1..N] of Double;
  I, J, K: Integer;

begin
  ...
  for I := 1 to N do
    for J := 1 to N do
    begin
      C[I, J] := 0;
      for K := 1 to N do
        C[I, J] := C[I, J] + B[I, K] * A[J, K];
    end;
  ...
end.

Что-то типа этого.

[Torres]

а чем здесь является матрица C?

[SerginhoLD]

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

а чем здесь является матрица C?

ну логично что произведение B*AT

[Torres]

а как транспонированную получить

[SerginhoLD]

http://ru.wikipedia.org/wiki/Транспонированная_матрица

ща скоро таблицу умножения спрашивать будут

[Kapitoshka438]

Когда прочитаешь про транспонированные матрицы, может быть, поймешь, что для работы программы ни к чему транспонировать матрицу A. Достаточно просто пробегаться не по столбцам, а по строкам. Вообще, я надеюсь на то, что ты знаешь формулу перемножения матриц.

[Torres]

я знаю что такое транспонированная матрица, но мне её нужно получить отдельно

[SerginhoLD]

ну и в чем проблема? незнаешь как элементы переставлять местами чтоль?

Код:

procedure swap(var a,b: integer);
var t:integer;
begin
  t:=a; a:=b; b:=t;
end;