Contoh Program Tabel Dimensi 1 Bahasa Cobol

Assalamualaikum Wr. Wb.

Pada kali ini saya akan membahas bagaimana contoh program table dimensi 1 bahasa Cobol. Bagi yang lagi cari tugas atau sekedar membaca dan mempelajari bahasa pemrograman Cobol. Software yang saya pakai adalah IDECobol.

•         Ketik / coppy list program berikut :

       IDENTIFICATION DIVISION.
       PROGRAM-ID. tabel1.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       77 N PIC 99.
       01 TABEL-NILAI-SISWA-SUMBER.
           02 NILAI PIC 999 OCCURS 10 TIMES.
       SCREEN SECTION.
       01 HAPUS-LAYAR.
           02 BLANK SCREEN.
       PROCEDURE DIVISION.
       MULAI.
       PROGRAM-UTAMA.
           PERFORM PEMASUKAN-NILAI-SISWA
               VARYING N FROM 1 BY 1 UNTIL N > 10.
           DISPLAY HAPUS-LAYAR.
           PERFORM TAMPILAN-NILAI-SISWA
               VARYING N FROM 1 BY 1 UNTIL N > 10.
       SELESAI.
           STOP RUN.

       PEMASUKAN-NILAI-SISWA.
           DISPLAY 'NILAI : '.
           ACCEPT NILAI (N).
           DISPLAY SPACE.

       TAMPILAN-NILAI-SISWA.
           DISPLAY 'NILAI KE ', N , ' :   ' NILAI (N).
           DISPLAY SPACE.

•         Perlu di ingat, bagaimana cara penulisan bahasa Cobol yang benar
•        Tekan F9 untuk Run

Maka hasil outputnya :

Wassalamualaikum Wr. Wb.