Comando REPEAT

O comando REPEAT tem semelhança com o comando DO/WHILE do C.

Sintaxe:

REPEAT 
comandos 
UNTIL teste;

Repete a sequência de comandos até o teste ser verdadeiro (não 0).

EXPORT Repeticao1()
BEGIN
    LOCAL A:=5;
    PRINT();
    REPEAT
        PRINT(A);
        A:= A-1;
    UNTIL A<1;
END;

E a tela resultante:

Exemplo - Aproximando o valor de PI:

EXPORT Saida()
BEGIN
    LOCAL sign;
    K:=2;
    A:=4;
    sign:=−1;
    RECT();
    TEXTOUT_P("N=",0,0);
    TEXTOUT_P("PI APPROX=",0,30);
    REPEAT
        A:=A+sign*4/(2*K-1);
        TEXTOUT_P(K ,35,0,2,#FFFFFF,100,#333399);
        TEXTOUT_P(A ,90,30,2,#000000,100,#99CC33);
        sign:=sign*-1;
        K:=K+1K;
        WAIT(1);
    UNTIL K > 100;
END;

E a tela resultante: