倒裝來倒裝去
說句話前後顛倒，
這是一本我很喜歡的美國小說
這是一本美國小說我很喜歡
蠢不蠢啊
腦子有問題呵
$ SET SOURCEFORMAT"FREE"
IDENTIFICATION DIVISION.
PROGRAM-ID. PerformFormat2.
AUTHOR. Michael Coughlan.
* Demonstrates the second format of the PERFORM.
* The PERFORM..TIMES format executes a block of code x
* number of times.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 NumofTimes PIC 9 VALUE 5.
PROCEDURE DIVISION.
Begin.
DISPLAY "Starting to run program"
PERFORM 3 TIMES
DISPLAY ">>>>This is an in line Perform"
END-PERFORM
DISPLAY "Finished in line Perform"
PERFORM OutOfLineEG NumOfTimes TIMES
DISPLAY "Back in Begin. About to Stop".
STOP RUN.
OutOfLineEG.
DISPLAY ">>>> This is an out of line Perform".
ycweng wrote:
樓主拿錯書了，你拿的...(恕刪)
Starting to run program
">>>>This is an in line Perform"
">>>>This is an in line Perform"
">>>>This is an in line Perform"
"Finished in line Perform"
">>>> This is an out of line Perform".
">>>> This is an out of line Perform".
">>>> This is an out of line Perform".
">>>> This is an out of line Perform".
">>>> This is an out of line Perform".
"Back in Begin. About to Stop".
內文搜尋
從 APP 打開
X