| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Работа с Вложенными циклами [D7, XP]

Petr ©   (2010-02-08 13:51:00) 

Привет!!!! ПОдскажите, как прервать циклы вложенные
Вот мой код

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;

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


---

12   (2010-02-08 14:58:00) [1]

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

---

Jeer   (2010-02-08 14:53:00) [2]

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


:)

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

---

Юрий Зотов   (2010-02-08 14:37:00) [3]

> Petr   (08.02.10 13:51)  

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

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

---

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

goto

---

anonims   (2010-02-08 14:04:00) [5]

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

---

Mike Kouzmine   (2010-02-08 14:02:00) [6]

Если для функции или процедуры, то 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));

---

Сергей М.   (2010-02-08 13:55:00) [7]

Exit

---

Наверх