прекращение работы цикла

[ms.yur]

у меня есть цикл

for q1:=1 to 10 do
for q2:=1 to 10 do
for q3:=1 to 10 do

как сделать чтобы он прекратил работу (конечно если это возможно) если условие

if w1=q1 and w2=q2 and w3=q3

выполнится
помогите плиз

[Serge_Bliznykov]

у меня есть цикл

1) у Вас их целых три. Какой именно интересует?

2) для прерывания текущего цикла используйте break
если это внутренний цикл, то остальные циклы тоже можно прервать по break

3) возможно переписать цикл на условные циклы (while ... ) и добавить туда нужное условие.

4) самый "дубовый" вариант - это использовать метку за последним циклом и переход goto на неё.
(последний способ НЕ РЕКОМЕНДУЮ!)

[ms.yur]

программа должна перебрать все комбинации трех чисел от 1 до 10 когда подбирет нужное должна полностью остановится

[ms.yur]

а вообще спасибо

[Вадим Мошев]

4) самый "дубовый" вариант - это использовать метку за последним циклом и переход goto на неё.
(последний способ НЕ РЕКОМЕНДУЮ!)

А что если у нас имеется один цикл, но с большой степенью вложенности?
Например

Цикл1
   Цикл2
      цикл3
         цикл4

И необходимо остановить ВСЕ эти циклы при выполнении некоторого условия?
Разве здесь Goto - не самый лучший способ?

[Сtrl]

Разве здесь Goto - не самый лучший способ?

А что, если в одном из циклов создается или удаляется объект?

[Вадим Мошев]

Сообщение от Сtrl

А что, если в одном из циклов создается или удаляется объект?

И что? Мы же выходим толкьо в том случае, когда это нам надо

[OCTAGRAM]

Сообщение от Serge_Bliznykov

2) для прерывания текущего цикла используйте break
если это внутренний цикл, то остальные циклы тоже можно прервать по break

Кстати, сравнение Break и goto:

Лекция №3.3: Ветвления. Массивы. Циклы

Write('Матрица ');
for i := 1 to n do
begin
  flag := False;
 for j := 1 to m do
   if a[i, j] > a[i, i] then
   begin
      flag := True;
     Write('не ');
     Break;
   end;
 if flag then Break;
end;
WriteLn('обладает свойством' +
 ' диагонального преобладания.');

Write('Матрица ');
for i := 1 to n do
 for j := 1 to m do
   if a[i, j] > a[i, i] then
   begin
     Write('не ');
     goto 1;
   end;
1: WriteLn('обладает свойством' +
 ' диагонального преобладания.');

[New man]

Сообщение от Serge_Bliznykov

1)
4) самый "дубовый" вариант - это использовать метку за последним циклом и переход goto на неё.
(последний способ НЕ РЕКОМЕНДУЮ!)

Однажды мне надо было найти нужное положение в восьми вложеных циклах
В этом случае goto вполне оправдано

[Serge_Bliznykov]

1) Да что ж Вы меня убеждаете, что "ГОТО" удобнее?!!
Удобнее - пользуйтесь на здоровье!
я лично просто не люблю этот оператор (ну, скажем, это личная неприязнь к нему! )

2) Соглашусь. выход из вложенных циклов (особенно сложных и большой вложенности!) - это, пожалуй, единственный оправданный способ применения GOTO (IMHO, разумеется).

Правда, в этом случае я бы не рекомендовал использовать значения переменных, которые использовались для органиции цикла FOR (ну, если они нужны, разумеется!) - согласно документации, после выхода из цикла, из значение может быть неопределённым... Хотя, возможно, что при использовании Goto это и не так критично..

3) задача TC мне, честно говоря, до конца не ясна - ибо зачем перебирать в трёх циклах, если результирующие значения уже известны?!

Но, я бы лично решал примерно так:

function IsFound( w1, w2, w3 : integer; var q1, q2, q3 : integer ) : boolean;
var i1, i2, i3 : integer;
begin
  IsFound := false;
  for i1:=1 to 10 do
   for i2:=1 to 10 do
    for i3:=1 to 10 do
      if (w1=i1) and (w2=i2) and (w3=i3) then
        begin
          q1 := i1;
          q2 := i2;
          q3 := i3;
          isFound := true;
          exit
        end;
end;        
var k1,k2,k3 : integer;
begin
  if IsFound(1,5,7,k1,k2,k3) then 
    WriteLn('Найдено. Позиции: ',k1,' ',k2,' ',k3)
  else
    WriteLn('Поиск закончился безрезультатно!')
end.