Выход из тройного цикла

[Iron Monk]

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

Помогите, пожалуйста, народ.
Допустим у меня цикл, в нем еще один цикл, а в нем еще один цикл.Мне нужно прервать третий цикл, и второй, чтобы попасть в первый. Как это сделать?
Например:

for i:=1 to n do begin
 a:=b+c;
 v:=a-b;
 for j:=1 to n do begin
  if (a<b) and(a>c)
  then
  for b:=1 to n do begin
   if (a<c) then begin
   a:=c;
   b:=c;
   break; \\Вот здесь выход из третьего цикла. Мы попадаем во второй. А как сразу же попасть в первый?
   end;
  end;
  a:=c;
  v:=b;
 end;
 Inc(b);
end;

В код не вчитывайтесь, только что бред сочинил.

for i:=1 to n do begin
 a:=b+c;
 v:=a-b;
 for j:=1 to n do begin
  if (a<b) and(a>c)
  then
  for b:=1 to n do begin
   if (a<c) then begin
   a:=c;
   b:=c;
   break; \\Вот здесь выход из третьего цикла. Мы попадаем во второй. А как сразу же попасть в первый?
   end;
   break;
  end;
  a:=c;
  v:=b;
 end;
 Inc(b);
end;

[Dvoishnik]

Сообщение от Iron Monk

for i:=1 to n do begin
 a:=b+c;
 v:=a-b;
 for j:=1 to n do begin
  if (a<b) and(a>c)
  then
  for b:=1 to n do begin
   if (a<c) then begin
   a:=c;
   b:=c;
   break; \\Вот здесь выход из третьего цикла. Мы попадаем во второй. А как сразу же попасть в первый?
   end;
   break;
  end;
  a:=c;
  v:=b;
 end;
 Inc(b);
end;

Тоже самое что и у вас только без лишнего цикла

for i:=1 to n do begin
 a:=b+c;
 v:=a-b;
 j:=1;
  if (a<b) and(a>c)
  then
  for b:=1 to n do begin
   if (a<c) then begin
   a:=c;
   b:=c;
   break; \\Вот здесь выход из третьего цикла. Мы попадаем во второй. А как сразу же попасть в первый?
   end;
  end;
  a:=c;
  v:=b;
 end;
 Inc(b);
end;

[Iron Monk]

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

Тоже самое что и у вас только без лишнего цикла

for i:=1 to n do begin
 a:=b+c;
 v:=a-b;
 j:=1;
  if (a<b) and(a>c)
  then
  for b:=1 to n do begin
   if (a<c) then begin
   a:=c;
   b:=c;
   break; \\Вот здесь выход из третьего цикла. Мы попадаем во второй. А как сразу же попасть в первый?
   end;
  end;
  a:=c;
  v:=b;
 end;
 Inc(b);
end;

Это не мои))) Это циклы ТС с поста #1

[Dvoishnik]

Сообщение от Iron Monk

Это не мои))) Это циклы ТС с поста #1

я к тому что вы задание не правильно поняли/реализовали.
вы своим break; можно сказать убрали 2 цикл он просто выполняет функцию присваивания J:=1;

[Iron Monk]

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

я к тому что вы задание не правильно поняли/реализовали.
вы своим break; можно сказать убрали 2 цикл он просто выполняет функцию присваивания J:=1;

var
  a,b,c: Integer;
begin
   for a:= 0 to 10 do               //1 цикл
     if a = 2 then                  // a = 2
     begin
      for b:= 0 to 10 do            //2 цикл
        if b = 4 then               //b = 4
         begin
             begin
             for c:= 0 to 10 do    //3 цикл
             if c = 5 then         //c = 5
             Break;
             end;
          Break;
         end;
     end;                         //a= 10+1
   ShowMessage(IntToStr(a)+'  '+IntToStr(b)+'  '+IntToStr(c));
end;