люди, как выйти из цикла?

← →
tester1 (2002-12-24 11:09) [0]

допустим у меня есть цикл. Как только сработало какое-то условие, в котором стоит инкремент, нужно сразу выйти из цикла.
for j:=0 to 10 do begin m:=0; n:=0; m:=j; n:=-j; if aaa3[i+m,e+h]<>0 then begin h:=h+1; end; if aaa3[i+n,e+h]=0 then begin h:=h-1; end; end;

как это реализовать?

thanks!

← →
MXA (2002-12-24 11:13) [1]

break;

← →
tester1 (2002-12-24 11:34) [2]

спасибо! я в дельфях начинающий...

← →
Внук © (2002-12-24 11:34) [3]

Операторы break, continue, равно как и goto и процедуру exit можно без ущерба убрать из программы при грамотном формулировании алгоритма :)

← →
Novice (2002-12-24 11:39) [4]

Внук © (24.12.02 11:34)

Как можно эффективно выйти из группы вложенных циклов без goto?

← →
Snap © (2002-12-24 11:40) [5]

Флаг поставить. А ещё можно каждый цикл в отдельную процедуру, и оттуда по exit :)

← →
Smithson © (2002-12-24 11:41) [6]

Это если интересует красота кода паскаль, а не быстрота и эффективность...

← →
Snap © (2002-12-24 11:42) [7]

А какже быстро?

← →
Внук © (2002-12-24 11:53) [8]

Не хочу спорить, тема стара как мир. Скажу только, что всегда обходился без них. И скорость непричем. А борцам за скорость советую тогда все рекурсии сводить в циклам :))

Борцам за скорость лучше учить ассемблер. И все рекурсии сводить к циклам :))))

>спасибо! я в дельфях начинающий...

это паскаль!

>А какже быстро?

for j:=0 to 10 do
begin
m:=0; // зачем, если дальше идет присвоение
n:=0; //
m:=j;
n:=-j;
if aaa3[i+m,e+h]<>0
then
begin
...
h:=h+1;// inc(h)
...
break; // выход после инкремента
end;
if aaa3[i+n,e+h]=0
then
begin // если у тебя одно действие (только декремент),
// зачем begin...end
h:=h-1; // dec(h)
end;
end;

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

2 tester> используй while или repeat грамотнее будет :)))

люди, как выйти из цикла? Найти похожие ветки