Язык программирования Pascal. Регулярные типы данных. Васильев В.В - 8 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

8
Program Sort_select;
Uses crt;
Label 1;
Type mas1=array[1..100] of integer;
Var i,j,n,g1,g2:integer;
max,m:integer; a:mas1;Begin
{Генерация одномерного массива и вывод массива}
. . . {Сортировка выбором }
for i:=n downto 2 do
begin max:=a[1]; m:=1;
for j:=1 to i do
if a[j]>max
then
begin max:=a[j]; m:=j
end;
a[m]:=a[i]; a[i]:=max
end;
{Вывод упорядоченного массива}
writeln; writeln('Вектор после сортировки выбором :');
for i:=1 to n do
begin
write(a[i]:7,' ');
if i mod 10 = 0
then writeln
end;
readkey
End.{Sort_select}
Задача 3. С помощью сортировки об -
меном (пузырьковой сортировки) упорядочи -
те массив А из N (
≤
100
) случайных чисел по
неубыванию .
♣ Алгоритм сортировки обменом
или пузырьковой сортировки заключа-
ется в последовательном сравнении пар со-
седних элементов
a
i
и
a
i + 1
, при
i
N
=
−
1
1
,
.
.
.
,
. Если
aa
ii
+1
, то элементы
переставляются. При этом наибольший эле-
мент (как пузырек ) всплывает в конце масси-
ва.
Затем этот метод применяется ко всем элементам, кроме последнего, и т.д.
Назначение переменных такое же, как в задаче 2. Вспомогательная пере-
менная r используется для хранения значения при перестановке двух элементов
массива.
Program Sort_exchange;

Страницы