Паскаль програма сортування рядків матриці
27.12.2013Сортування рядків матриці по зростанню
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.