Question

How to create an infinite loop in Pascal

Answer 1

// Infinite while True do Loop

program InfiniteWhileLoop;

var
  count: Integer;

begin
  count := 0;

  while True do // infinite loop
  begin
    WriteLn('Iteration: ', count);

    if count = 3 then
    begin
      WriteLn('Breaking out of loop...');
      Break;
    end;

    Inc(count);
  end;

  WriteLn('Loop finished.');
end.

 
 
(*
run:
 
Iteration: 0
Iteration: 1
Iteration: 2
Iteration: 3
Breaking out of loop...
Loop finished.
 
*)

 

70+ SQL courses for beginners and professionals

Answer 2

// Infinite repeat … until False Loop

program InfiniteRepeatLoop;

var
  count: Integer;

begin
  count := 0;

  repeat // infinite loop
    WriteLn('Step: ', count);

    if count = 3 then
    begin
      WriteLn('Breaking out of loop...');
      Break;
    end;

    Inc(count);
  until False; // infinite loop

  WriteLn('Done.');
end.

 
 
(*
run:
 
Step: 0
Step: 1
Step: 2
Step: 3
Breaking out of loop...
Done.
 
*)

 

70+ SQL courses for beginners and professionals