Паскаль програма сортування рядків матриці

27.12.2013 0 By svvas

Сортування рядків матриці по зростанню

program matrica_sort;

 

var
C: array[ 0..9, 0..10 ] of integer;
Row, Column, Temp, I, J: integer;

 

begin

 

{  Ввід матриці через random}
for Row := 0 to 9 do
for Column := 0 to 10 do
C[ Row, Column ] := Random( 255 );

 

{  Вивід матриці }

Writeln(‘вхідна матриця’);
for Row := 0 to 9 do
begin
for Column := 0 to 10 do
Write( C[ Row, Column ] : 4 );
WriteLn;
end;
WriteLn;

 

{  Сортуєм бульбашкою по зростанню }
for Row := 0 to 9 do
begin
for I := 1 to 10 do
begin
for J := 10 downto I do
begin
if C[ Row, J – 1 ] > C[ Row, J ] then
begin
Temp := C[ Row, J – 1 ];
C[ Row, J – 1 ] := C[ Row, J ];
C[ Row, J ] := Temp;
end;
end;
end;
end;

 

{  Показуємо відсортовану матрицю }

Writeln(‘матриця відсортована по рядках’);
for Row := 0 to 9 do
begin
for Column := 0 to 10 do
Write( C[ Row, Column ] : 4 );
WriteLn;
end;

end.

Comments

comments