Алгоритм сортировки
массива по возрастанию методом прямого выбора может быть представлен так:
1. Просматривая массив
от первого элемента, найти минимальный элемент и поместить его на место первого
элемента, а первый — на место минимального.
2. Просматривая массив
от второго элемента, найти минимальный элемент и поместить его на место второго
элемента, а второй — на место минимального.
3. И так далее до предпоследнего
элемента.
Ниже представлена программа
сортировки массива целых чисел по возрастанию, диалоговое окно которой изображено
на рис. 5.15.
Рис. 5.15.
Диалоговое окно программы сортировки массива простым выбором
Процедура сортировки,
текст которой приведен в листинге 5.9, запускается нажатием кнопки Сортировка
(Button1). Значения элементов массива вводятся из ячеек компонента StringGrid1.
После выполнения очередного цикла поиска минимального элемента в части массива
процедура выводит массив в поле метки (Label2).
Листинг 5.9.
Сортировка массива простым выбором
procedure
TForm1.ButtonlClick(Sender:
TObject);
const
SIZE=10;
var
a:array[1..SIZE]
of integer;
min:integer;
{ номер минимального элемента в части
массива от i до верхней границы массива }
j:integer;
{ номер элемента, сравниваемого с минимальным }
buf:integer;
{ буфер, используемый при обмене элементов массива }
На рис. 5.16 приведено
диалоговое окно программы после завершения процесса сортировки.
Рис. 5.16.
Диалоговое окно программы Сортировка массива
Знаете ли Вы, что cогласно релятивистской мифологии "гравитационное линзирование - это физическое явление, связанное с отклонением лучей света в поле тяжести. Гравитационные линзы обясняют образование кратных изображений одного и того же астрономического объекта (квазаров, галактик), когда на луч зрения от источника к наблюдателю попадает другая галактика или скопление галактик (собственно линза). В некоторых изображениях происходит усиление яркости оригинального источника." (Релятивисты приводят примеры искажения изображений галактик в качестве подтверждения ОТО - воздействия гравитации на свет) При этом они забывают, что поле действия эффекта ОТО - это малые углы вблизи поверхности звезд, где на самом деле этот эффект не наблюдается (затменные двойные). Разница в шкалах явлений реального искажения изображений галактик и мифического отклонения вблизи звезд - 1011 раз. Приведу аналогию. Можно говорить о воздействии поверхностного натяжения на форму капель, но нельзя серьезно говорить о силе поверхностного натяжения, как о причине океанских приливов. Эфирная физика находит ответ на наблюдаемое явление искажения изображений галактик. Это результат нагрева эфира вблизи галактик, изменения его плотности и, следовательно, изменения скорости света на галактических расстояниях вследствие преломления света в эфире различной плотности. Подтверждением термической природы искажения изображений галактик является прямая связь этого искажения с радиоизлучением пространства, то есть эфира в этом месте, смещение спектра CMB (космическое микроволновое излучение) в данном направлении в высокочастотную область. Подробнее читайте в FAQ по эфирной физике.