[ertyuo]

Здравствуйте, я на странице http://www.mir-koda.ru/full_leson.php?id=3 нашел сортировку вставками, написанную на языке С++. Вот код примера:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

int main(int argc, char* argv[]) {     int arr[8] = {35, 698, 74, 81, 67, 11, 184, 89},i,j;       for (j=1;j<8;j++){         if (arr[j]< arr[j-1]) {                     i=j;                     do{                 swap(arr[i],arr[i-1]);                 i--;                               if (i == 0) break;             }             while (arr[i]< arr[i-1]) ;         }           }     getch(); return 0; }

Трудность заключается в том, что я вообще без понятия как писать пользовательские функции на дельфи. Просто практически весь код данной сортировки уже перенёс в дельфи, а вот как создать функцию swap не представляю. Она должна менять значения смежных элементов.

[lmikle]

Что-то не похоже это на сортировку вставкой. Скорее, это какой-то извращенный метод сортировки пузырьком. Если память меня не подводит, то сортировка вставкой (внимательно читаем название) есть создание нового выходного сортированного массива из данных входного путем вставки в него в нужные места элемнтов.
Но это лирика.

Собственно, тебе нужно почитавть на ключевое слово procedure.

Код:

1 2 3 4 5 6

procedure SortArray(var A : Array Of Integer); var   // Здесь описание локальных переменных begin   // Здесь код end;

ЗЫ. Если ты думал, что тебе заодно код напишут, то фих тебе. Ну если не думал так, то извини

[ertyuo]

Да мне главное именно как получается результат по итерациям, а вот как именно выполняется сама сортировка - не очень-то и важно. Т.е. нужные мне числа становятся в правильное место в нужной итерации.

За шаблон спасибо, думаю теперь не составит проблем дописать в него пару строчек.