Pascal

← →
Seldon (2002-12-01 17:35) [0]

Здрасьте. Есть такой код:
var
B:array[-50..50,-50..50] of Integer;
w,z:Integer;
begin
{...}
for z:=-50 to 50 do
for w:=-50 to 50 do
Plus:=B[w,z]>0 and not Plus;{1}
{...}
end.
Ну дык вот, при первом проходе циклов в точе 1 z=101 и w=101!!! B[w,z] проходит без проблем, хотя 101 выходит за рамки массива! И по мере прохождения циклов z и w уменьшаются! Что Вы думаете по этому поводу?

← →
TTCustomDelphiMaster © (2002-12-01 18:12) [1]

Все нормально это работа оптимизатора.

← →
Anatoly Podgoretsky © (2002-12-01 20:42) [2]

Хорошо думаем, а что?

← →
Seldon (2002-12-01 21:20) [3]

>>TTCustomDelphiMaster ©
А не подскажете, как это выключить? А то ведь отлаживать неудобно.

>>Anatoly Podgoretsky ©
Спасибо!

{$O-}
var
B:array[-50..50,-50..50] of Integer;
w,z:Integer;
begin
{...}
for z:=-50 to 50 do
for w:=-50 to 50 do
Plus:=B[w,z]>0 and not Plus;{1}
{...}
{$O+}

Или снять галочку Project - Options - Compiler - Optimization

Pascal Найти похожие ветки