Disini saya akan membuat program menu pilihan menggunakan cobol. Saya hanya membuat 5 menu pilihan.
Berikut Listing kode yang saya buat :
Berikut Listing kode yang saya buat :
IDENTIFICATION DIVISION.PROGRAM-ID. GOTO1.ENVIRONMENT DIVISION.DATA DIVISION.WORKING-STORAGE SECTION.77 JAWAB PIC X.PROCEDURE DIVISION.TANYAKAN.DISPLAY ‘=====================’.DISPLAY ‘1. MAKANAN PEMBUKA’.DISPLAY ‘2. MAKANAN UTAMA’.DISPLAY ‘3. MAKANAN PENUTUP’.DISPLAY ‘4. MINUMAN’.DISPLAY ‘5. EXIT’.DISPLAY ‘=====================’.DISPLAY ‘PILIH KATEGORI YANG KAMU INGINKAN ? ‘.ACCEPT JAWAB.SELEKSI.IF JAWAB = ‘1’ GO TO MAKANP.IF JAWAB = ‘2’ GO TO MAKANU.IF JAWAB = ‘3’ GO TO MAKANPE.IF JAWAB = ‘4’ GO TO MINUM.IF JAWAB = ‘5’ GO TO SELESAI.MAKANP.DISPLAY ‘ ‘.DISPLAY ‘-ROTI COKELAT’.DISPLAY ‘-LEMPER’.GO TO SELESAI.MAKANU.DISPLAY ‘ ‘.DISPLAY ‘-NASI GORENG’.DISPLAY ‘-AYAM BAKAR + NASI’.DISPLAY ‘-SOTO AYAM + NASI’.DISPLAY ‘-NASI PADANG’.GO TO SELESAI.MAKANPE.DISPLAY ‘ ‘.DISPLAY ‘-PUDING COKELAT’.DISPLAY ‘-BUAH-BUAHAN’GO TO SELESAI.MINUM.DISPLAY ‘ ‘.DISPLAY ‘-AIR PUTIH’.DISPLAY ‘-ES TEH MANIS’.DISPLAY ‘-JUS’.GO TO SELESAI.SELESAI.STOP RUN.
Outputt yang dihasilkan :
