Question

How to continue outer loop in Pascal

Answer 1

program ContinueOuterLoop;

var
  outer, inner: Integer;
  skip: Boolean;

begin
  for outer := 0 to 4 do
  begin
    skip := False; // Reset the flag for each iteration of the outer loop
    for inner := 0 to 3 do
    begin
      if inner = 2 then
      begin
        skip := True; // Set the flag to skip the outer loop
        Break;        // Exit the inner loop
      end;
      WriteLn('Outer: ', outer, ', Inner: ', inner);
    end;

    if skip then
      Continue; // Skip the rest of the outer loop iteration
      
    WriteLn('Continue for Outer: ', outer);
  end;
end.




(*
run:

Outer: 0, Inner: 0
Outer: 0, Inner: 1
Outer: 1, Inner: 0
Outer: 1, Inner: 1
Outer: 2, Inner: 0
Outer: 2, Inner: 1
Outer: 3, Inner: 0
Outer: 3, Inner: 1
Outer: 4, Inner: 0
Outer: 4, Inner: 1

*)

 

70+ SQL courses for beginners and professionals

Answer 2

program ContinueOuterLoop;

var
  arr1: array[1..11] of Integer = (4, 5, 1, 1, 6, 7, 0, 1, 1, 1, 8);
  arr2: array[1..4] of Integer = (9, 1, 2, 7);
  nval2: Integer;
  val1, val2: Integer;

begin
  nval2 := 0;

  for val1 in arr1 do
  begin
    for val2 in arr2 do
    begin
      nval2 := val2;
      if val2 = val1 then
        Break; // Exit inner loop if values match
    end;

    if nval2 = val1 then
      Continue; // Skip the rest of the outer loop iteration

    Write(val1, ' ');
  end;
end.




(*
run:

4 5 6 0 8 

*)

 

70+ SQL courses for beginners and professionals