18.05.04.03 Instrução repeat

 

Exemplo

 

 

repeat

  incr(minimum);

  maximum := maximum - stepValue;

until 2 * minimum > maximum;

 

 

 

 

Semântica:

As instruções entre repeat e until são executadas.

Em seguida, após a execução das instruções a condição em until é avaliada.

Quando essa avaliação produz TRUE, a repetição é finalizada.

Quando essa avaliação produz FALSE as instruções são executadas novamente.

 

Sintaxe:

 

 

repeat_statement ::=

'repeat'

  statement

'until' expression .

 

 

 

A expressão deve retornar um resultado do tipo "boolean".

 

Declaration:

 

 

$ syntax expr: .repeat.().until.() is             -> 25;

 

const proc: repeat (in proc: statement) until (ref func boolean: condition) is action "PRC_REPEAT";

const proc: repeat (in proc: statement) until (in boolean: condition)       is action "PRC_REPEAT";

 

 

 

"Declaration" alternativa:

 

 

const proc: repeat (in proc: statement) until (ref func boolean: condition) is func

  begin

    statement;

    if not condition then

      repeat

        statement;

      until condition;

    end if;

  end func;