Все правильно
Цитата:
Причем когда прохожу по Ф8 (пошагово), то почему-то в начале procedure TMainForm.Button2Click рядом с 4мя строчками кода не появляются синие точки и Watcher подтверждает, что эти операции присвоения не выполняются
|
Оптимизатор их просто убрал из исходного кода, так как в начале процедуры у тебя написано:
Код:
cpx:=0;
cpy:=0;
for i:=1 to 7 do
begin
cpx:=cpx+arx[i];
cpy:=cpy+ary[i];
end;
а далее
Код:
cpx:=round(cx/7);
cpy:=round(cy/7);
поэтому первое присвоение и накопление сумыы в цикле роли никакой не играет. И еще, переменные cx, cy у тебя неопределены никак в последнем присвоении тоже непонятно что будет
по поводу вот этого:
Цитата:
|
,но при нажатии на кнопку посчитать выводит Invalid floating point operation
|
скажу следующее, в коде:
Код:
cx:=cpx/scale;
cy:=cpy/scale;
если предварительно не отрисовать фигуру (а значение переменной scale присваевается именно там) то падать программа будет одназначно, в противном случае работает без проблем
Ну там еще много багов, но думаю ты найдешь их сам
Учись, студент