Программа:

program lab91; (* УПОРЯДОЧЕНИЕ МЕТОДОМ ВЫБОРА *)

var a:array[1..50] of integer;

i,j,n,amax,k:integer; f:text;

begin

assign(f,'lab91.dat');rewrite(f); writeln;

write('ВВЕДИТЕ КОЛ-ВО ЭЛЕМЕНТОВ МАССИВА n=');read(n);

writeln('ВВЕДИТЕ ',n,' ЭЛЕМЕНТОВ МАССИВА');

for i:= 1 to n do read(a[i]);

writeln(f,' ИСХОДНЫЙ МАССИВ ');

writeln(' ИСХОДНЫЙ МАССИВ ');

for i:=1 to n do

begin

write(f,' A[',i:2,']=',a[i]:3); write(' A[',i:2,']=',a[i]:3);

if i mod 5=0 then

begin (* ВЫВОД ПО 5 ЭЛ-ОВ В СТРОКЕ *)

writeln(f);writeln

end

end;

for i:=1 to n-1 do

begin

amax:=a[i];k:=i;

for j:=i to n do

begin

if a[j]<=amax then

begin

amax:=a[j];k:=j

end;

end;

a[k]:=a[i];a[i]:=amax

end;

writeln; writeln(f);

writeln(' МАССИВ ПОСЛЕ СОРТИРОВКИ ');

writeln(f,' МАССИВ ПОСЛЕ СОРТИРОВКИ ');

for i:=1 to n do

begin

write(' A[',i:2,']=',a[i]:3);

write(f,' A[',i:2,']=',a[i]:3);

if (i mod 5=0)or(i=n) then

begin

writeln;writeln(f)

end

end;

writeln(f);writeln(f);

writeln(f, 'ПРОГРАММУ СОСТАВИЛ ИВАНОВ И.И.');close(f)

end.

результаты работы программы

ИСХОДНЫЙ МАССИВ

A[ 1]= 56 A[ 2]= 74 A[ 3]= 23 A[ 4]= 10 A[ 5]= 6

A[ 6]= 45 A[ 7]= 73 A[ 8]= 4 A[ 9]= 62 A[10]= 6

A[11]= 1 A[12]= 50

МАССИВ ПОСЛЕ СОРТИРОВКИ

A[ 1]= 1 A[ 2]= 4 A[ 3]= 6 A[ 4]= 6 A[ 5]= 10

A[ 6]= 23 A[ 7]= 45 A[ 8]= 50 A[ 9]= 56 A[10]= 62

A[11]= 73 A[12]= 74

ПРОГРАММУ СОСТАВИЛ ИВАНОВ И.И.

Пример программы упорядочения массива по не возрастанию (убыванию) методом обмена.

Программа:

program lab92; (* УПОРЯДОЧЕНИЕ МЕТОДОМ ОБМЕНА *)

var a:array[1..50] of integer;

i,r,n,k:integer; f:text;

begin

assign(f,'lab92.dat');rewrite(f);writeln;

write('ВВЕДИТЕ КОЛ-ВО ЭЛЕМЕНТОВ МАССИВА n=');read(n);

writeln('ВВЕДИТЕ ',n,' ЭЛЕМЕНТОВ МАССИВА');

for i:= 1 to n do read(a[i]);

writeln(f,' ИСХОДНЫЙ МАССИВ ');

writeln(' ИСХОДНЫЙ МАССИВ ');

for i:=1 to n do

begin

write(f,' A[',i:2,']=',a[i]:6);

write(' A[',i:2,']=',a[i]:6);

if i mod 5=0 then { ВЫВОД ПО 5 ЭЛ-ОВ В СТРОКЕ }

begin

writeln(f);writeln

end

end;

repeat

k:=0;

for i:=1 to n-1 do if a[i]<a[i+1] then

begin

r:=a[i];a[i]:=a[i+1];a[i+1]:=r;k:=k+1

end;

until k=0;

writeln; writeln(f);

writeln(' МАССИВ ПОСЛЕ СОРТИРОВКИ ');

writeln(f,' МАССИВ ПОСЛЕ СОРТИРОВКИ ');

for i:=1 to n do

begin

write(' A[',i:2,']=',a[i]:6);

write(f,' A[',i:2,']=',a[i]:6);

if (i mod 5=0)or(i=n) then

begin

writeln;writeln(f)

end

end;

writeln(f);writeln(f);

writeln(f,'ПРОГРАММУ СОСТАВИЛ ИВАНОВ И.И.');close(f)

end.

результаты работы программы

ИСХОДНЫЙ МАССИВ

A[ 1]= 34 A[ 2]= 5 A[ 3]= 67 A[ 4]= 2 A[ 5]= 9

A[ 6]= 0 A[ 7]= 56 A[ 8]= 32 A[ 9]= 17 A[10]= 56

A[11]= 48 A[12]= 3 A[13]= 66 A[14]= 5

МАССИВ ПОСЛЕ СОРТИРОВКИ

A[ 1]= 67 A[ 2]= 66 A[ 3]= 56 A[ 4]= 56 A[ 5]= 48

A[ 6]= 34 A[ 7]= 32 A[ 8]= 17 A[ 9]= 9 A[10]= 5

A[11]= 5 A[12]= 3 A[13]= 2 A[14]= 0

ПРОГРАММУ СОСТАВИЛ ИВАНОВ И.И.

Контрольные вопросы:

1. Какие Вы знаете методы сортировки массивов?

2. В чем отличительная особенность каждого метода?