Node:repeat, Next:, Previous:Rename, Up:Reference



repeat

Synopsis


repeat
  statement;
  ...
  statement;
until boolean_expression;

Description

The repeat ... until statement declares a loop. For further description see repeat Statement.

Conforming to

repeat is defined in ISO 7185 Pascal and supported by all known Pascal variants.

Example


program RepeatDemo;
var
  Number, Sum: Integer;
begin
  WriteLn ('Black Jack for beginners.');
  WriteLn ('You can choose your cards yourself. :-)');
  Sum := 0;
  repeat
    Write ('Your card (number)? ');
    ReadLn (Number);
    Inc (Sum, Number);
    WriteLn ('You have ', Sum, '.')
  until Sum >= 21;
  if Sum = 21 then
    WriteLn ('You win!')
  else
    WriteLn ('You lose.')
end.

See also

Keywords, while Statement, for Statement.