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

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

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

[Aleksandr H.]

вспомогательная переменная Boolean? например в начале первого цикла bHelp:=False

b:=c;
bHelp := true;
break;\\ bla bla bla
end;
if bHelp = true then break;

или извращения через Goto Label?

[dimon_snake]

Сообщение от Aleksandr H.

вспомогательная переменная Boolean? например в начале первого цикла bHelp:=False

b:=c;
bHelp := true;
break;\\ bla bla bla
end;
if bHelp = true then break;

Да, как вариант, спасибо.

[dimon_snake]

Сообщение от Aleksandr H.

или извращения через Goto Label?

Сразу пробовал, бред получился

[Pavia]

Ещё можно оформить два вложенных цикла функцией и сделать exit.

[Aleksandr H.]

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

Сразу пробовал, бред получился

Program HelloWorld(output);
label l;
var i,j,z:byte;
begin
  for i:=1 to 10 do
    begin
        for j:=1 to 5 do
            begin
                for z:=1 to 5 do
                    begin
                            writeln('3');
                            if z = 3 then goto l;
                    end;
                writeln('2')
            end;
l:  
        writeln('1');
    end;
end.

Вроде перескакивает 2 цикл

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

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

Ещё можно оформить два вложенных цикла функцией и сделать exit.

ИМХО, exit завершит работу всей программы/подпрограммы.

[Dvoishnik]

Сообщение от Вадим Мошев

ИМХО, exit завершит работу всей программы/подпрограммы.

так в это и прикол. 2 цикла в проще дуре которая вызывается в 3 цикле при определенном условии в процедуре вызывается Exitж

prosedure iterDab(param);
.............
begin
for i:=1 to n do
 begin 
  ............
  for j:=1 to m do 
   begin
    ..............
    if true then Exit 
   end;
  .............
 end;
end;
............
begin 
.........
for g:=1 to d do
 begin
  ..........
  iterDab(param);
  ..........
 end;
........
end;

мне нравиться такая идея.

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

Всё понял. Спасибо.

[min@y™]

А на delphi можно? Я примерно вот так делал:

try
  for idx1:= 0 to 100499 do
  begin
    idx2:= 0;
    
    while idx2 <> 100500 do
      begin
        idx3:= 100500;
        repeat
          if not Ping('63.246.128.64', 1000, 1)
            then raise EPingFailed.Create('Server is unreachable.');
          
          if Terminated
            then raise ETerminatedByUser.Create();
              
          dec(idx3);
        until idx3 = 0;
        inc(idx2);
      end;
  end;  
except
  on EPingFailed do ... ;
  on ETerminatedByUser do...;
  else ... ;
end;