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

UptoLike

ВУЗ: 

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

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

Рубрика: 

27
const n_max=20;
type Tip = integer;
vect = array[1..n_max] of Tip;
Procedure Sort_Ins( n:integer; var a:vect);
var i,j : integer;
x : Tip;
begin
for j:=2 to n do
begin
i:=j-1;
x:=a[j];
while (i>0 ) and (a[i]>x) do
begin
a[i+1]:=a[i]; i:=i-1
end;
a[i+1]:=x;
end
end;
Уменьшим количество операций, выполняющихся во внутреннем цик-
ле. Для этого воспользуемся методом барьера, а именно: элемент
x , который
ищется в массиве, установим в нулевую позицию:
a[0]:=x, тогда опреде-
ление типа
vect нужно изменить:
vect =array[0..n_max] of Tip;
Опишем алгоритм в виде процедуры Sort_Ins_0.
const n_max=20;
type Tip = integer;
vect = array[0..n_max] of Tip;
Procedure Sort_Ins_0( n:integer; var a:vect);
var i,j : integer;
x : Tip;
begin
for j:=2 to n do
begin

Страницы