Помогите решением.
Надо составить процедуру, которая определяет максимальный по модулю элемент в каждой строке квадратной матрицы и осуществляет его перестановку с соответствующим диагональным элементом.
-----------------------------------------------
Построчно находить максимальный элемент найти
это не проблема.
Пусть массивом будет A[i,j]
max:=0;
for i:=1 to n do
begin
for j:=1 to n do
if A[i,j]>max then max:=A[i,j];
{Сюда,по ходу,надо вписать часть процедуры которая будет это самое A[i,j](max) менять с числом A[j,i](Если я всё правильно понял)}
max:=0;
end;
-------------------------------------
Помогите кто может.
Заранее спасибо!!!
-----------------------------------------------
Построчно находить максимальный элемент найти
это не проблема.
Пусть массивом будет A[i,j]
max:=0;
for i:=1 to n do
begin
for j:=1 to n do
if A[i,j]>max then max:=A[i,j];
{Сюда,по ходу,надо вписать часть процедуры которая будет это самое A[i,j](max) менять с числом A[j,i](Если я всё правильно понял)}
max:=0;
end;
-------------------------------------
Помогите кто может.
Заранее спасибо!!!
Цитата:
Originally posted by Tetris
Надо составить процедуру, которая определяет максимальный по модулю элемент в каждой строке квадратной матрицы и осуществляет его перестановку с соответствующим диагональным элементом.
Надо составить процедуру, которая определяет максимальный по модулю элемент в каждой строке квадратной матрицы и осуществляет его перестановку с соответствующим диагональным элементом.
-----------------------------------------------
Делается так
Пусть массивом будет A[i,j]
for i:=1 to n do
max:=abs(A[i,j]);
begin
for j:=1 to n do
if abs(A[i,j])>max then begin max:=A[i,j]; g:=j end;
p:=A[i,i];
A[i,i]:=max;
A[i,g]:=p;
end;
-------------------------------------
Помогите кто может.
Заранее спасибо!!!