Теперь можно записать полностью алгоритм сортировки простым выбором.

const m = 10;

type mass = array [l..m] of real;

procedure selec(n: integer; var a: mass);

var i, j, k: integer; x: real;

begin

for i: = 1 to n-1 do

begin

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

for j: = i+l to n do

if a[j] < x

then begin x: = a[j]; k: = j

end;

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

end

end;

Лабораторная работа

ЗАДАНИЕ 1.

Создать приложение, состоящее из 1 формы, на которой расположены компоненты: Edit1, Button1, Button2, Button3, Label1, ListBox1

Рисунок 1- Форма программы для ввода и вывода массива

С кнопкой Button1 связан метод procedure Button1Click - (Ввод). Метод edit1.SetFocus устанавливает фокусна строке ввода Edit1.

Можно вводить элементы в окне по одному. В этом случае при однократном нажатии кнопки ввода в обработчике событий должны выполниться следующие операторы:

i: =i+1;

a[i]: =StrToInt(Edit1.Text);

Это означает, что нажатие кнопки приводит к добавлению одного элемента из окна Edit в массив. При выполнении последующих действий по обработке массива значение переменной i определит количество элементов массива. Начальное значение i=0 можно задать в разделе описания типизированных констант или в методе OnCreate для формы (см. ниже) и сбрасывать его каждый раз при вводе нового массива. В массив запишется столько элементов, сколько раз будет нажата кнопка ввода. Если не сбрасывать значение i, то даже после обработки массива можно продолжить ввод элементов в массив.

Вывод результатов осуществляется в цикле и записывается в строчки компоненты ListBox1, при помощи свойства «Добавить».

Например, listBox1.Items.Add(IntToStr(a[j]));

Рисунок 2- Результат работы программы ввода и вывода массива