Здравствуйте, уважаемые Профи. Помогите пожалуйста решить такую задачку:
задана матрица 15*15. Необходимо:
1) Взять одну строку из этой матрицы и перемножить на остальные строчки;
2) Вычислить сумму каждой строки новой матрицы;
3) Сдвинуть строки исходной матрицы так, чтобы последний столбец стал 1-м, 1-й - вторым и т.д.;
4) Перемножить "сдвинутую" на ту же самую строчку исходной матрицы, что и в 1);
5) Повторить все операции до тех пор, пока сдвигаемая матрица не станет исходной (15 сдвигов);
6) Из сумм строк всех полученных матриц выбрать наибольшую по модулю.
Задавать и перемножать матрицы я научился, хотя препод объясняет из рук вон плохо, с циклами вроде тоже разобрался кое-как, не могу понять как осуществить сдвиг строк матрицы и как выбрать потом максимальное значение. Подскажите пожалуйста.
Заранее спасибо!
Ну во первых покажи что уже есть ... По поводу сдвига все просто :
Запоминаешь первый столбец, далее сдвигаешь
for i := 1 to n - 1 do begin
// i-й столбец = i+1 - й столбец
end;
// после цикла присваеваешь n-му столбцу значения первого, которые ты запомнил ...
Function Sum(m : TMatrix, col : integer) : integer;
begin
// ...
end;
col := 1;
max := abs(Sum(m , col));
for col := 2 to n do
if abs(sum(m, col)) > max then max := abs(sum(m, col));