想起大學時印象很深的的一條循環語句
for (i=0,i<=∞,i++)
......
現在,繼續這樣調動自己的學習興趣,不知道這樣寫出來能否運行呢?
......
DATA DIVISION.
WORKONG-STORAGE SECTION.
01 LOVE PIC 99.
01 Y PIC 99.
PROCEDURE DIVISION.
MOVE 1 TO LOVE.
PERFORM 100-OUTER-LOOP
UNTIL LOVE > 99.
DISPLAY 'COMPLETE!'.
STOP RUN.
*
100-OUTER-LOOP.
MOVE 0 TO Y.
PERFORM
UNTIL Y > LOVE
COMPUTE LOVE = Y + LOVE
ADD 1 TO Y
END-PERFORM.
DISPLAY 'Y:'Y 'LOVE:' LOVE.
ADD 1 TO LOVE.