Структура данных - массив. Часть 1 - 28 стр.

UptoLike

ВУЗ: 

ЮФУ | Ростов-на-Дону

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

Рубрика: 

28
i:=j-1; x:=a[j]; a[0]:=x;
while (a[i]>x) do
begin
a[i+1]:=a[i]; i:=i-1
end;
a[i+1]:=x;
end
end;
Метод выбора.
Идея метода выбора заключается в следующем: определяется индекс k
максимального элемента в массиве и осуществляется обмен между k−тым и
последним элементами. Индекс последнего элемента будем менять от n до 2.
Опишем алгоритм в виде процедуры Sort_Max.
const n_max=20;
type Tip = integer;
vect = array[1..n_max] of Tip;
Procedure Sort_Max( n:integer; var a:vect);
var i,j,k : integer;
x : Tip;
begin
for j:=n downto 2 do
begin
{
определение индекса максимального элемента k}
k :=1;
for i:=2 to j do
if a[i]>a[k] then k:=i;
{
обмен между a[k] и a[j] }
`x:=a[k]; a[k]:=a[j]; a[j]:=x
end
end;
Метод обмена (метод пузырька).

Страницы