Сортировка вставками

[Asya7]

Разбираю сортировку вставками. Скажите, а почему не выполняется программа, когда количество символов (n) более трёх? И зачем проверять вот это условие: j>0(в каких случаях это выполняется?) Помогите, если знаете. А вот сама сортировка:

program SOrt;
type
   DataItem = char;
   DataArray = array [1..80] of DataItem;

var
   i, count: integer;
   mas: DataArray;

{ сортировка вставкой }
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;
      writeln('результирующий массив');
   for i := 1 to count do 
      write(mas[i], ', ');
end;  { конец сортировки вставкой }

begin
   writeln('введите количество символов');
   readln(count);
   i := 0;
   for i := 1 to count do 
   begin
      write(i,'i=');
      
      readln(mas[i]);
      
   end;
   
   Inser(mas, count);
   
end.

[Stilet]

зачем проверять вот это условие: j>0

Потому что j это индекс массива. А у тебя массив описано как [1..80], т.е. элемента с номером 0 или меньше быть не может.

почему не выполняется программа, когда количество символов (n) более трёх?

А как ты это проверил? Отладку конечно же не делал?

[Asya7]

Сообщение от Stilet

А как ты это проверил? Отладку конечно же не делал?

Проверка была. Когда вводишь значений >3, то выходит ошибка: SortVstavka.pas(20) : Ошибка времени выполнения: Индекс выходит за границы массива

[Stilet]

Оттрассируй программу, и посмотри хотя бы на каком операторе ошибка.
Трассировать то умеешь?

[Asya7]

Сообщение от Stilet

Трассировать то умеешь?

Наверное это очень плохо, но не умею. Сейчас буду узнавать что это такое и как делается. Спасибо!

[Smitt&Wesson]

Сообщение от Asya7

Наверное это очень плохо, но не умею. Сейчас буду узнавать что это такое и как делается. Спасибо!

Да блин, сколько можно носом тыкать как котят. Вот здесь большенство методов сортитровки. Или я так и помру, а вы будете искать и не найдёте .

[Stilet]

Нажимаешь F8 - Делфи проводит отладку построчно. Мышкой наводишь курсор на переменные и смотришь подсказки - там будут их значения.

[Smitt&Wesson]

Сообщение от Stilet

Нажимаешь F8 - Делфи проводит отладку построчно. Мышкой наводишь курсор на переменные и смотришь подсказки - там будут их значения.

Ха-ха-ха. Прикалываешься? Он вчера только мышку увидел и то в погребе .

[Asya7]

Stilet, Теперь понятно, что это пошаговое выполнение, но проблема не решилась... Там столько много всего написано, что для меня разобраться в этом вызывает некоторые трудности. Но всё равно спасибо - теперь знаю, что такое "трассировка".

[GreenWizard]

Бакнелл Джулиан - Фундаментальные алгоритмы и структуры данных в Delphi
читай, там всё доступно расписано
P. s. может того, одну тему под все вопросы по одной теме? захламляет же форум