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
EmoticonEmoticon