Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.08.27;
Скачать: 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 вся ветка

Текущий архив: 2010.08.27;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.206 c
2-1274166166
pro_xaoc
2010-05-18 11:02
2010.08.27
Загружать изображение при наведении и кликании мышью


15-1269254185
TpaTaTa
2010-03-22 13:36
2010.08.27
RichEdit


4-1237347702
Дмитрий
2009-03-18 06:41
2010.08.27
Стиль окна


11-1215697287
KOLBOSS
2008-07-10 17:41
2010.08.27
как добавить страницу в RichEdit


15-1271357566
Burst
2010-04-15 22:52
2010.08.27
Использование БД