Работа с Вложенными циклами

← →
Petr (2010-02-08 13:51) [0]

Привет!!!! ПОдскажите, как прервать циклы вложенные
Вот мой код
for x:=100 to 0 do for y:=0 to 256 do begin if x+y=300 then begin Showmessage("x+y="+IntToStr(x+y)); break; end; end; Как полностью остановить цикл по х и по у? подскажите

← →
Сергей М. © (2010-02-08 13:55) [1]

Exit

← →
Mike Kouzmine (2010-02-08 14:02) [2]

Если для функции или процедуры, то Exit? а так

for x:=100 to 44 do
for y:=200 to 256 do
begin
b := (x+y) = 300;
if b then
begin
Showmessage("x+y="+IntToStr(x+y));
break;
end;
if b then break
end;

а проще

x:=100
y:=200
Showmessage("x+y="+IntToStr(x+y));

← →
anonims (2010-02-08 14:04) [3]

stop:=x+y=300;
и
if stop then break;

← →
Игорь Шевченко © (2010-02-08 14:07) [4]

goto

← →
Юрий Зотов © (2010-02-08 14:37) [5]

> Petr (08.02.10 13:51)

> Как полностью остановить цикл по х и по у? подскажите

Можно никак не останавливать, потому что ни один цикл и так не будет выполнен ни разу.

> Можно никак не останавливать, потому что ни один цикл и
> так не будет выполнен ни разу.

:)

А казалось бы - сколько "голубых" значков трудились над сверхсложной задачей.
Один Зотов не прошел ниже первой строчки :)

x:=101;
repeat
dec(x);
y:=-1;
repeat
inc(y);
if x+y=300 then Showmessagefmt("%d + %d = %d",[x,y,x+y]);
until (x+y=300) or (y>255);
until (x+y=300) or (x < 1);

Работа с Вложенными циклами Найти похожие ветки