Question

How to break the outer loop in Pascal

Answer 1

program BreakOuterLoop;

var
  i, j: Integer;
  breakOuter: Boolean;

begin
  breakOuter := False;
  for i := 1 to 6 do
  begin
    writeln('Outer loop: ', i);
    for j := 1 to 3 do
    begin
      writeln('  Inner loop: ', j);
      if (i = 3) then
      begin
        breakOuter := True;
        break; // Exit the inner loop
      end;
    end;
    if breakOuter then
    begin
      writeln('Breaking out of the outer loop.');
      break; // Exit the outer loop
    end;
  end;
  writeln('Program finished.');
end.



(*
run:

Outer loop: 1
  Inner loop: 1
  Inner loop: 2
  Inner loop: 3
Outer loop: 2
  Inner loop: 1
  Inner loop: 2
  Inner loop: 3
Outer loop: 3
  Inner loop: 1
Breaking out of the outer loop.
Program finished.

*)

 

Learn SQL from A to Z at LearnSQL.com