[Black_Bear]

Алгоритм пузырьковой сортировки и функция вывода элементов в поле Мемо.
код компилируется но вылетает ошибка
смотрел в Watch List зн-я переменных, индекс j
оказался недоступным как и элемент A[j].
Но массив в конце оказался отсортирован(тот же Watch List, да и после компиляции при наведении на 'А' показывается отсортированный массив)
А вот в Мемо ни в какую не хочет выводиться! Подскажите в чем подвох.

Код:

//объявление ф-ции
function TForm1.OutMemo(X:array of integer):integer;


//реализация метода вывода в Мемо
function TForm1.OutMemo(X:array of integer):integer;
var i,N:word;

begin

  N:=High(X);
  for i:=0 to N do
  Form1.Memo1.Lines.Add(IntToStr(X[i]));

   Result:=1;
end;



var A:array[0..4] of integer=(5,2,3,4,1);
    i,j,N,M:integer;
    begin

N:=High(A);
{A[0]:=5;
A[1]:=3;
A[2]:=2;
A[3]:=1;
A[4]:=4;}
//алгоритм пузырьковой сортировки
for i:=0 to N do
 for j:=0 to N do
   if A[j]>A[j+1]
   then begin
   M:=A[j];
   A[j]:=A[j+1];
   A[j+1]:=M;

end;

//вызов метода
OutMemo(A);

[Bargest]

Код:

for i:=0 to N do
 for j:=0 to N do
   if A[j]>A[j+1]
   then begin
   M:=A[j];
   A[j]:=A[j+1];
   A[j+1]:=M;
 
end;

При j = 4 A[j+1] = A[5], а такого элемента не существует. Странно что вообще сортируется.

[Black_Bear]

я уже по всякому менял параметры окончания цикла и N-1 ставил и менял порядок сортировки(в данном случаеначинается со сравнения первой пары элементов и перемещается к концу, можно и с конца начинать только надо задать цикл так...

Код:

for i:=0 to N do
for j:=N-1 downto i do

) Во всех случаях одно и тоже, он пытается залезть в какой то раздел реестра процессора и естественно вылетает ошибка.

[Bargest]

Во всех случаях одно и тоже, он пытается залезть в какой то раздел реестра процессора и естественно вылетает ошибка.

"Шо вы сказали?"(с) аноним

З.Ы. давно бы уже написали, что за ошибка "вылетает"... Скриншот там или текст...

[Alegun]

Скопировал в новый проект (форма,мемо,баттон) код, почти ничего не трогал - работает без ошибок:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var A:array[0..4] of integer;
      i, j, N, M: integer;
begin
memo1.Clear;

A[0]:=5;
A[1]:=3;
A[2]:=4;
A[3]:=1;
A[4]:=2;

N:= High(A);
for i:= 0 to N do
 for j:= 0 to N do
   if A[j] > A[j+1] then 
 begin
   M:= A[j];
   A[j]:= A[j+1];
   A[j+1]:= M;
  end;
   for i:=0 to N do Memo1.Lines.Add(IntToStr(A[i]));
end;

[Black_Bear]

project sort.exe raised exception class EAccessViolation with message 'Accesse
violation at adress 0044EC91 in module "Sort.exe". Read of adress 000002F8' Process stoped. Use Step or Run To continue.


Вот такое уведомление при запуске появляется. Я так понял это ошибка времени выполнения.

[Alegun]

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

'Accesse violation at adress 0044EC91 in module "Sort.exe". Read of adress 000002F8' Process stoped. Use Step or Run To continue.

Это попытка доступа к пустому месту в памяти, проблема в массиве.

[Bargest]

Эта ошибка в 99% случаев значит, что используется неинициализированный указатель или несозданный объект. Переводится как "нарушение доступа при чтении адреса такого-то", адрес явно в районе нулей. По всей видимости при передаче массива в функцию.

[lmikle]

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

project sort.exe raised exception class EAccessViolation with message 'Accesse
violation at adress 0044EC91 in module "Sort.exe". Read of adress 000002F8' Process stoped. Use Step or Run To continue.


Вот такое уведомление при запуске появляется. Я так понял это ошибка времени выполнения.

Вывод в Memo правильный. Неправильно написана сама сортировка. Нужно так:

Код:

for i:= 0 to N-1 do 
  for j:= i+1 to N do   
    if A[j] < A[i] then 
      begin   
        M:= A[j];   
        A[j]:= A[i];   
        A[i]:= M;  
      end;

[Black_Bear]

Alegun, ваша версия действительно работает, спасибо! но хотелось бы разобраться что не так с моей.

[Alegun]

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

...хотелось бы разобраться что не так с моей.

Определитесь с обёрткой функции: какая она должна быть - что получает и что возвращает. Массив фиксированный или динамический?