Консультация № 69282
02.01.2007, 11:12
0.00 руб.
0 1 1
Надо решить задачку Срочно!!!!:
X(M,N). Упорядочить строки вещественной матрицы X
по возрастанию их наибольших элементов. M=10, N=15.

Обсуждение

Неизвестный
03.01.2007, 14:46
общий
это ответ
Здравствуйте, Lumen!
Решение задачи в приложении. Для хранения максимальных эл-тов строк используется дополнительный массив, а потом матрица сортируется вместе с массивом. В принципе, задание такое же, как и в вопросе 69332, только тип матрицы другой.

Приложение:
program Project2;const m = 10; n = 15;var x: array[1..m, 1..n] of real; b: array[1..m] of real; i, j, k : integer; max,c :real;begin writeln(‘Vvedite matritsu‘); for i := 1 to m do for j := 1 to n do readln(x[i, j]); for i := 1 to m do begin max := x[i, 1]; for j := 2 to m do if x[i, j] > max then max := x[i, j]; b[i] := max; end; for k := 1 to m do for i := 1 to m - k do if b[i] > b[i + 1] then begin c := b[i]; b[i] := b[i + 1]; b[i + 1] := c; for j := 1 to n do begin c := x[i, j]; x[i, j] := x[i + 1, j]; x[i + 1, j] := c; end; end; writeln(‘Poluchennaya matritsa‘); for i := 1 to m do begin for j := 1 to n do write(x[i, j]:2:2,‘ ‘); writeln; end; for i := 1 to m do writeln(b[i]:2:2); readln;end.
Форма ответа