COBOL(1959)

OpenCOBOLの実行

MinGW Shellを実行
viエディタで hello.cob を作成
```
vim hello.cob
```

hello.cobのプログラムを入力(空白の数に注意)

000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID. hello.
000300 ENVIRONMENT DIVISION.
000400 DATA DIVISION.
000500 PROCEDURE DIVISION.
000600 MAIN.
000700     DISPLAY "Hello World!" UPON CONSOLE.
000800     STOP RUN.
000900 END PROGRAM hello.

COBOLプログラムをコンパイル
```
cobc -x hello.cob
```
hello.exeの実行
```
./hello
Hello World!
```

COBOL プログラム例

ユーザ入力 (ACCEPT ... FROM CONSOLE)

000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID. sample1.
000300 DATA DIVISION.
000400 WORKING-STORAGE SECTION.
000600 01 USR PIC 99 VALUE ZEROS.
000800 PROCEDURE DIVISION.
000900 MAIN.
001200     DISPLAY "GUESS(0-99)?" UPON CONSOLE.
001300     ACCEPT USR FROM CONSOLE.
001500     DISPLAY "USR=" USR UPON CONSOLE.
002500     STOP RUN.
003000 END PROGRAM sample1.

繰り返し (PERFORM ... TIMES)

000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID. sample2.
000300 DATA DIVISION.
000400 WORKING-STORAGE SECTION.
000800 PROCEDURE DIVISION.
000900 MAIN.
001100     PERFORM 10 TIMES
001200      DISPLAY "HELLO WORLD!" UPON CONSOLE
002300     END-PERFORM.
002500     STOP RUN.
003000 END PROGRAM sample2.

繰り返し (PERFORM UNTIL ...)

000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID. sample3.
000300 DATA DIVISION.
000400 WORKING-STORAGE   SECTION.
000500 01 COUNTER PIC 99.
000800 PROCEDURE DIVISION.
000900 MAIN.
001000     MOVE 1 TO COUNTER.
001100     PERFORM UNTIL COUNTER > 10
001200      DISPLAY "COUNTER=" COUNTER UPON CONSOLE
001300      ADD 1 TO COUNTER
002300     END-PERFORM.
002500     STOP RUN.
003000 END PROGRAM sample3.

条件分岐 (IF END-IF)

000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID. sample4.
000300 DATA DIVISION.
000400 WORKING-STORAGE SECTION.
000600 01 USR PIC 99 VALUE ZEROS.
000800 PROCEDURE DIVISION.
000900 MAIN.
001200     DISPLAY "GUESS(0-99)?" UPON CONSOLE
001300     ACCEPT USR FROM CONSOLE
001400     IF USR = 50 THEN
001500      DISPLAY "=50" UPON CONSOLE
001600      STOP RUN
001700     END-IF
002400     DISPLAY "NOT 50" UPON CONSOLE.
002500     STOP RUN.
003000 END PROGRAM sample4.

条件分岐 (IF ELSE END-IF)

000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID. sample5.
000300 DATA DIVISION.
000400 WORKING-STORAGE SECTION.
000600 01 USR PIC 99 VALUE ZEROS.
000800 PROCEDURE DIVISION.
000900 MAIN.
001200     DISPLAY "GUESS(0-99)?" UPON CONSOLE
001300     ACCEPT USR FROM CONSOLE
001800     IF USR > 50 THEN
001900      DISPLAY "> 50" UPON CONSOLE
002000     ELSE
002100      DISPLAY "<= 50" UPON CONSOLE
002200     END-IF
002500     STOP RUN.
003000 END PROGRAM sample5.

時計で乱数もどき (ACCEPT ... FROM TIME)

000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID. guess.
000300 DATA DIVISION.
000400 WORKING-STORAGE SECTION.
000500 01 RND PIC 99 VALUE ZEROS.
000800 PROCEDURE DIVISION.
000900 MAIN.
001000     ACCEPT RND FROM TIME.
002400     DISPLAY "ANSWER WAS " RND UPON CONSOLE.
002500     STOP RUN.
003000 END PROGRAM guess.

課題

数当てゲームをCOBOLで作る
プログラム流れ
1. 0-99の間の乱数を作る
2. ユーザが数値を入力
3. 入力が乱数と同じの場合、当たり。終了
4. 入力が乱数より大きいか小さいかヒントを表示
5. ユーザ入力から繰り返し。10回で当たらない場合、終了

実行例 (ユーザ入力は青で表示)

$ ./guess
GUESS(0-99)?
50
TOO SMALL.
GUESS(0-99)?
75
TOO BIG.
GUESS(0-99)?
60
TOO SMALL.
GUESS(0-99)?
70
TOO SMALL.
GUESS(0-99)?
73
TOO BIG.
GUESS(0-99)?
71
CORRECT!

$

COBOLソースコード提出先メール表題: COBOL