Сортировка массива методом простых вставок

[Маришка:=нуб]

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

[Риндера]

procedure Inser(var item: DataArray; count:integer);
var
i, j: integer;
x: DataItem;
begin
   for i := 2 to count do
   begin
      x := item[i];
      j := i-1;
      while (x<item[j]) and (j>0) do
      begin
         item[j+1] := item[j];
         j := j-1;
      end;
      item[j+1] := x;
   end;
end;

Тебе остается лишь задать массив, как там сказано, из файла или с клавиатуры.
И эту процедуру можно прикрутить как к делфи, так и к паскалю.

П.С. Я даю только часть решения людям потому, что хочу, чтобы они сами тоже думали головой хоть немножко.

[Маришка:=нуб]

Спасибо! Каким компонентом лучше всего пользоваться для иллюстрации сортировки?

[Utkin]

Сообщение от Риндера

П.С. Я даю только часть решения людям потому, что хочу, чтобы они сами тоже думали головой хоть немножко.

За это уважаю .

Каким компонентом лучше всего пользоваться для иллюстрации сортировки?

Ну можно два Мемо или один StringGrid... если на Дельфи конечно.

[Маришка:=нуб]

такие очевидные компоненты точно не прокатят у моего препода(( подскажите, пожалуйста, что-нить оригинальное

[Naive]

Сообщение от Маришка:=нуб

такие очевидные компоненты точно не прокатят у моего препода(( подскажите, пожалуйста, что-нить оригинальное

я бы предложил динамически создающаяся едиты для задания массива, а для демонстрации работы программы - 2 диаграммы с заданным массивом и результирующим=)
по-моему очень оригинально

[Риндера]

Сообщение от Маришка:=нуб

такие очевидные компоненты точно не прокатят у моего препода(( подскажите, пожалуйста, что-нить оригинальное

Очевидные?! А вы скажите своему преподу, что в результате главное не оригинальность и извращенность подхода - а четкое и как можно более простое решение. Потому что чем оно сложнее, тем больше может быт багов и меньше скорость работы.