eller #6132(2008/04/02 14:10 GMT) [ COBOL ] Rating0/0=0.00
特に工夫はありません。COBOL向きのお題かもしれませんね。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
* 九九の表示 - YCobol 0.19にて動作確認 IDENTIFICATION DIVISION. PROGRAM-ID. DOUKAKU-62. * ENVIRONMENT DIVISION. * DATA DIVISION. WORKING-STORAGE SECTION. 01 I PIC 9 VALUE 0. 01 J PIC 9. 01 K PIC Z9. * PROCEDURE DIVISION. MAIN. PERFORM UNTIL I >= 9 MOVE 0 TO J ADD 1 TO I PERFORM UNTIL J >= 9 ADD 1 TO J COMPUTE K = I * J DISPLAY I " * " J " = " K END-PERFORM END-PERFORM STOP RUN.
Rating0/0=0.00-0+
1 reply [ reply ]
eller
#6132()
[
COBOL
]
Rating0/0=0.00
特に工夫はありません。COBOL向きのお題かもしれませんね。
* 九九の表示 - YCobol 0.19にて動作確認 IDENTIFICATION DIVISION. PROGRAM-ID. DOUKAKU-62. * ENVIRONMENT DIVISION. * DATA DIVISION. WORKING-STORAGE SECTION. 01 I PIC 9 VALUE 0. 01 J PIC 9. 01 K PIC Z9. * PROCEDURE DIVISION. MAIN. PERFORM UNTIL I >= 9 MOVE 0 TO J ADD 1 TO I PERFORM UNTIL J >= 9 ADD 1 TO J COMPUTE K = I * J DISPLAY I " * " J " = " K END-PERFORM END-PERFORM STOP RUN.Rating0/0=0.00-0+
1 reply [ reply ]