Скачать: CL | DM;

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

← →
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)  

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

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

---

← →
Jeer ©   (2010-02-08 14:53) [6]

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


:)

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

---

← →
12 ©   (2010-02-08 14:58) [7]

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);

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.044 c