Добрый день! Подскажите, пожалуйста, где здесь ошибка
Надо найти для вектора zProfit статистическую моду
для этого создаю массив FindMo с частотами
В этой части кода ошибка:
Код:
SetLength(FindMo,4,ch+1); //ch=10
Step:=(zProfit[m]-zProfit[1])/ch;
Stolb:=1;
Gran:=zProfit[1]+Step;
for i:=1 to m do
begin
if zProfit[i]>Gran then
while zProfit[i]>Gran do
begin
Stolb:=Stolb+1;
Gran:=Gran+Step;
end;
FindMo[1,Stolb]:=zProfit[i];
FindMo[2,Stolb]:=i;
FindMo[3,Stolb]:=FindMo[3,Stolb]+1;
end;
Admin: Пользуемся тегами!
Выдает окно CPU и пишет access violation at 0*767e8989 write of address 0*00030fd8