freepascal.ru

конечно тебе

zub писал(а):конечно тебе

А с чего мне-то? То есть предлагается так?

Код: Выделить всё

while I>=0 Do begin
  For J
    ХочуВыйтиПоБольшому:=False;
    For K
      If жопа Then Begin
        "Грохнуть объект"
        "прекратить проверять его потроха"; ХочуВыйтиПоБольшому:=True;Break;
      End;
    End;
    If ХочуВыйтиПоБольшому Then Break;
  End;
  Dec(I);
End;


А если ещё большая вложенность?
(кусок кода занимается проверкой корректности структуры данных и её возможной починкой, там кругом пробежки по всем связанным узлам, их портам, соседям связанных узлов, их портам и связям между ними)