Berbagi ilmu : Contoh Program Menu Pada Bahasa Pemrograman COBOL

Berbagi ilmu : Contoh Program Menu Pada Bahasa Pemrograman COBOL

LISTING PROGRAM 

       IDENTIFICATION DIVISION.
       PROGRAM-ID. LA_KUCING.
       DATA DIVISION.
       FILE SECTION.
       WORKING-STORAGE SECTION.
       01 MASUKKAN.
           02 JUM PIC 9(3).
           02 PIL PIC 9.
           02 HASIL PIC Z(15).
       01 HITUNG-LAGI PIC X.
           88 LAGI VALUE 'Y', 'y'.
           88 TIDAK VALUE 'T', 't'.
       SCREEN SECTION.
       01 MENU.
           02 LINE 2 COLUMN 30 VALUE 'MENU PEMBELIAN KUCING'.
           02 LINE 4 COLUMN 30 VALUE '1. ANGGORA'.
           02 LINE 5 COLUMN 30 VALUE '2. PERSIA'.
           02 LINE 6 COLUMN 30 VALUE '3. EXIT'.
           02 LINE 7 COLUMN 30 VALUE '====================='.
           02 LINE 8 COLUMN 30 VALUE 'PILIHAN: '.
           02 LINE 8 COLUMN 40 PIC 9 TO PIL.
       01 HAPUS-LAYAR.
           02 BLANK SCREEN.
       PROCEDURE DIVISION.
       MULAI.
           DISPLAY HAPUS-LAYAR.
           DISPLAY MENU.
           ACCEPT MENU.
           IF PIL=1
               PERFORM ANGGORA
               GO TO TANYA.
           IF PIL=2
               PERFORM PERSIA
               GO TO TANYA.
           IF PIL=3
               GO TO SELESAI
           ELSE
               GO TO MULAI.
           SELESAI.
               STOP RUN.
           ANGGORA.
               DISPLAY HAPUS-LAYAR.
               DISPLAY 'PEMBELIAN KUCING ANGGORA'
               DISPLAY (4, 2) 'JUMLAH KUCING YANG DIBELI: '.
               ACCEPT ( , )  JUM.
               COMPUTE HASIL = JUM * 1000000.
               DISPLAY (5, 2) 'TOTAL PEMBELIAN: ', HASIL.
           PERSIA.
               DISPLAY HAPUS-LAYAR.
               DISPLAY 'PEMBELIAN KUCING PERSIA'
               DISPLAY (4, 2) 'JUMLAH KUCING YANG DIBELI: '.
               ACCEPT ( , )  JUM.
               COMPUTE HASIL = JUM * 700000.
               DISPLAY (5, 2) 'TOTAL PEMBELIAN: ', HASIL.
           TANYA.
               DISPLAY (7, 2) 'INPUT LAGI? (Y/T) '
               ACCEPT HITUNG-LAGI.
               IF LAGI GO TO MULAI.
               IF TIDAK GO TO SELESAI.
               IF NOT LAGI AND NOT TIDAK
                   DISPLAY HAPUS-LAYAR.
                   DISPLAY (6, 2) 'Y/y ATAU T/t'.
                   GO TO TANYA.

 OUTPUT PROGRAM

 
 

Previous
Next Post »