"Табличные величины", урок №5

Алгоритмы сортировки линейного массива (часть 2)

Из этого урока вы узнаете:

• как работают алгоритмы прямого выбора
• как работают алгоритмы прямой вставки

ЛИСТИНГ ПРОГРАММЫ
Метод прямого выбора
Program vybor;
uses crt;
Var i,j,K,min: integer;
    A: array[1..10] of integer;
Begin
clrscr;
{заполняем таблицу и печатаем её}
for i:=1 to 10 do
begin
A[i]:=random(10)-5;
writeln('A[',i:2,']=',A[i]:3);
end;
for i:=1 to 9 do
begin
min:=A[i]; k:=i;
for j:=i+1 to 10 do
if A[j]<min then
begin
min:=A[j];  k:=j
end;
A[k]:=A[i]; A[i]:=min;
end;
writeln('РЕЗУЛЬТАТ:');
for i:=1 to 10 do
writeln('A[',i:2,']=',A[i]:3);
End.

Метод прямой вставки

Program vstavka; 
uses crt; 
Var i,j,c: integer; 
       A: array[1..10] of integer; 
Begin 
clrscr; 
{заполняем таблицу и печатаем её} 
for i:=1 to 10 do 
begin 
A[i]:=random(10)-5; 
writeln('A[',i:2,']=',A[i]:3); 
end;
 for i:=2 to 10 do 
begin
 j:=i; 
while (j>1) and (A[j]<A[j-1]) do
begin
c:=A[j]; A[j]:=A[j-1]; A[j-1]:=c;
j:=j-1
end;
end;
writeln('РЕЗУЛЬТАТ:');
for i:=1 to 10 do
writeln('A[',i:2,']=',A[i]:3);

End.