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

UptoLike

ВУЗ: 

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

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

Рубрика: 

151
begin
m:=a[n];
k:=n;
end;
end;
a[k]:=a[q];
a[q]:=m;
end;
end; {конец сортировки}
q:=1;
for j:=1 to 4 do
begin
c[i,j]:=a[q]; {переписываем каждый одномерный массив}
q:=q+1; {в столбец двумерного}
end;
end;
writeln('Полученный массив');
for j:=1 to 4 do {вывод результата}
begin
for i:=1 to 4 do
write(c[i,j],' ');
writeln;
end;
readln;
end.
8.2. Метод парных перестановок
Самый простой вариант этого метода основан на принципе срав-
нения и обмена пары соседних элементов.
Процесс перестановок пар повторяется просмотром массива с начала
до тех пор, пока не будут отсортированы все элементы, т. е. во время
очередного просмотра не произойдет ни одной перестановки.
Пример 8.6. Сортировка одномерного массива методом парных
перестановок
.
var
a:array[1..10] of real;
i,k,n:integer;
q:real;
begin
writeln('Сортировка массива методом парных перестановок');

Страницы