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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

9
Uses crt;
Label 1;
Type mas1=array[1..100] of integer;
Var i,j,n,g1,g2,m,r:integer; a:mas1;
Begin
{Генерация одномерного массива и вывод массива}
. . . {Сортировка обменом}
for i:=1 to n-1 do
for j:=1 to n-i do
if a[j]>a[j+1]
then
begin
r:=a[j]; a[j]:=a[j+1]; a[j+1]:=r
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_exchange}
Задача 4. С помощью сортировки
вставками упорядочите массив Х из
N (
≤
100
) случайных чисел по неубыва-
нию .
♣ Алгоритм сортировки вставками
заключается в следующем. Массив делится на
отсортированную и неотсортированную части.
Из неотсортированной части последовательно
выбираются элементы и вставляются в отсор -
тированую часть так, чтобы не нарушалась
упорядоченность элементов в ней .
На первом шаге отсортированная часть состоит из одного первого элемента.
Переменные i, j, m используются как параметры циклов. n – количество
элементов в массиве . g1,g2 – границы диапазона значений элементов массива.
b – вспомогательная переменная для хранения очередного элемента, выбран -
ного из неотсортированной части. ♣
Program Sort_insert;
Uses crt;
Label 1;

Страницы