Basic Pascal Tutorial/Chapter 3/REPEAT..UNTIL

From Free Pascal wiki
Jump to navigationJump to search

български (bg) English (en) français (fr) 日本語 (ja) 中文(中国大陆)‎ (zh_CN)

 ◄   ▲   ► 

REPEAT...UNTIL

The repeat .. until construct is termed a post-test loop, because the controlling condition is tested after each iteration of the loop.

It has the following syntax:

repeat
  statement1;
  // statement2;
  // further statements...
until BooleanExpression;

A repeat loop encloses its executed statements, which means they do not need to be further enclosed in a begin ... end block. Note that a repeat loop continues until its controlling Boolean expression is True; whereas the while loop continues until its Boolean expression is False.

For instance, the following repeat loop executes at least once:

repeat
  WriteLn(Node.Text);
  Node := GetNextNode;
until not Assigned(Node);

It assumes that Node is not Nil at the outset. If this assumption is incorrect, the code will fail, and the program may crash.

A while loop is more defensive, since the needed check is performed before any loop statements are executed:

while Assigned(Node) do
  begin
    WriteLn(Node.Text);
    Node := GetNextNode;
  end;

Use a repeat loop when the looping statement(s) must execute at least once, whatever the initial value of the controlling Boolean condition.

It is not difficult to inadvertently write a Boolean expression controlling a repeat loop that never becomes True. This gives rise to an infinite or endless loop, and causes the program to hang.

One programming style deliberately sets up an infinite loop, and inserts a Break or Exit instruction controlled by some condition evaluated in the middle of the loop to break out of the otherwise infinite loop:

repeat
  statement1;
  if Condition then
    Break;
  statement_that_might_affect_the_Condition;
until False;

Successful use of this style depends on Condition dependably becoming True, without exception, at some point. Otherwise you have built in an inescapable infinite loop.

 ◄   ▲   ►