Алгоритмы и программы. Афанасьева Т. В - 156 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

156
if a[j,l]>a[j,l+1] then {перестановка элементов}
begin
q:=a[j,l];
a[j,l]:=a[j,l+1];
a[j,l+1]:=q;
k:=k+1;
end;
until k=0; {конец сортировки}
end;
writeln('Конечный массив');
for j:=1 to 4 do {распечатка результата}
begin
for l:=1 to 4 do write(a[j,l],' ');
writeln;
end;
readln;
end.
Пример 8.10. Сортировка двумерных массивов. Расположить
элементы в столбцах в порядке убывания методом парных перестановок.
program sortm6;
type
arr=array[1..4,1..4] of integer;
var
a:arr;
i,k,q,j:integer;
begin
randomize; {ввод исходного массива с помощью}
for i:=1 to 4 do {датчика случайных чисел}
for j:=1 to 4 do
a[i,j]:=random(10);
writeln;
writeln('Исходный массив');
for i:=1 to 4 do
begin
for j:=1 to 4 do
write(a[i,j]:4);
writeln;
end;
for j:=1 to 4 do
begin {начало сортировки по столбцам}
repeat
k:=0;

Страницы