2004 ИС (Илюшечкин) / ВМИП / Labs / laba3(moduls)var24 / ArrangeMatrix

unit ArrangeMatrix;

interface
uses
GLOBAL ;
procedure prArrangeMatrix(var CurrentMatrix:matrix;MatrixName:string);




implementation

procedure prArrangeMatrix(var CurrentMatrix:matrix;MatrixName:string);
var
total,i1,j1,i,j:byte;
MaxValue,CurrentValue:real;
begin
for total:=1 to 46 do
begin
MaxValue:=CurrentMatrix[1,1];
i1:=1;
j1:=1;
for i:=1 to MatrixDimI do
for j :=1 to MatrixDimJ do
if abs(MaxValue) < abs(CurrentMatrix[i,j]) then
begin
CurrentValue:=CurrentMatrix[i,j];
CurrentMatrix[i,j]:=CurrentMatrix[i1,j1];
CurrentMatrix[i1,j1]:= CurrentValue;
MaxValue:=CurrentMatrix[i,j];
i1:=i;
j1:=j;
end
else
begin
MaxValue:=CurrentMatrix[i,j];
i1:=i;
j1:=j;
end;
end;
end;

end.