Здравствуйте, Khimik, Вы писали:

K>Здравствуйте, swame, Вы писали:

S>>1. Твой алгоритм не сортирует.
S>>Поставь после сортировки
S>>for w := 0 to 999998 do
S>> Assert (curarray.fitems[w]<=curarray.fitems[w+1],
S>> w.ToString + ' ' + FloatToStr(curarray.fitems[w]) + ' ' + FloatToStr(curarray.fitems[w+1]));

K>А что это? У вас конец массива 999998 а надо 99998, по размеру массива.

я увеличивал у себя размер массива, можешь у себя поставить свое число.

K>Если выставить 99998 — срабатывания не будет.

Должны срабатывать, проверь что ассерты в проекте включены.

K>p.s. Влад спрашивает, забанить ли меня, просьба всем неравнодушным заглянуть в тему и поставить либо минус либо плюс:

Я равнодушный

K>https://rsdn.org/forum/flame.politics/8791571.1

Автор: VladD2
Дата: 01.08.24

Здравствуйте, Khimik, Вы писали:

K>Здравствуйте, swame, Вы писали:

S>>1. Твой алгоритм не сортирует.
S>>Поставь после сортировки
S>>for w := 0 to 999998 do
S>> Assert (curarray.fitems[w]<=curarray.fitems[w+1],
S>> w.ToString + ' ' + FloatToStr(curarray.fitems[w]) + ' ' + FloatToStr(curarray.fitems[w+1]));

K>А что это? У вас конец массива 999998 а надо 99998, по размеру массива.

я увеличивал у себя размер массива, можешь у себя поставить свое число.

K>Если выставить 99998 — срабатывания не будет.

Должны срабатывать, проверь что ассерты в проекте включены.
Срабатывает Assert а не Range Check

---------------------------
Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class EAssertionFailed with message '1 5,53084537386894E-5 2,90726311504841E-5 (C:\M_Src\test\Khimik\Unit1.pas, line 230)'.
---------------------------
Break Continue Copy Help
---------------------------



K>p.s. Влад спрашивает, забанить ли меня, просьба всем неравнодушным заглянуть в тему и поставить либо минус либо плюс:

Я равнодушный

K>https://rsdn.org/forum/flame.politics/8791571.1

Автор: VladD2
Дата: 01.08.24