ParaEnquantoRepita

[fdantas]

/*Mostrar os números de 1 até 10 (usar para, enquanto e repetir).*/

DEF VAR vetor AS INT NO-UNDO EXTENT 10.
DEF VAR i AS INT NO-UNDO.
DEF VAR para AS INT NO-UNDO.
DEF VAR enquanto AS INT NO-UNDO.
DEF VAR repita AS INT NO-UNDO.

ASSIGN para = 0
enquanto = 0
repita = 0.

DO i = 1 TO 10:

DISP para COLUMN-LABEL 'Do' WITH FRAME a DOWN.
DOWN WITH FRAME a.

para = para + 1.

END.

ASSIGN i = 1.

DO WHILE (i <= 10):
DISP enquanto COLUMN-LABEL 'While' WITH FRAME a DOWN.
DOWN WITH FRAME a.

enquanto = enquanto + 1.
i = i + 1.
END.

ASSIGN i = 1.

REPEAT WHILE (i <= 10):

DISP repita COLUMN-LABEL 'Repeat' WITH FRAME a DOWN.
DOWN WITH FRAME a.

repita = repita + 1.

i = i + 1.

END.