[Torres]

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

[Kapitoshka438]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

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]

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

Код:

1 2 3 4 5

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