Beranda > Computer, Tugas > Program Menu pada Cobol

Program Menu pada Cobol

Berikut ini adalah contoh Program Menu pada Cobol :

  1. Ketik di kolom (8)
    IDENTIFICATION DIVISION.
    PROGRAM-ID. CONTOH-MENU.
    ENVIRONMENT DIVISION.
    DATA DIVISION.
    WORKING-STORAGE SECTION.
    01 KUBUS.
    -ketik dikolom 12
    02 SISI PIC 99V99.
    02 ISI-KUBUS PIC 99999V99.
    02 JARI PIC 99V99.
    02 TINGGI PIC 99V99.
    02 VOLSILINDER PIC 99999V99.
    02 PANJANG PIC 99V99.
    02 LEBAR PIC 99V99.
    02 LUAS PIC 99999V99.
    -ketik dikolom 8
    01 PILIH PIC 9.
    01 HASIL.
  1. Ketik di kolom (12)

02 OUTHASIL PIC ZZZZZ.99.

  1. Ketik di kolom (8)
    SCREEN SECTION.
    01 HAPUS-LAYAR.
  1. Ketik dikolom (12)
    02 BLANK SCREEN.
  1. Ketik dikolom (8)
    01 LAYAR-MENU.
  1. Ketik dikolom (12)
    02 LINE 3 COLUMN 20 VALUE ‘ MENU’.
    02 LINE 4 COLUMN 20 VALUE ‘ 1. ) MENGHITUNG ISI KUBUS’.
    02 LINE 5 COLUMN 20 VALUE ‘ 2. ) MENGHITUNG ISI SILINDER’.
    02 LINE 6 COLUMN 20 VALUE ‘ 3. ) MENGHITUNG LUAS P.PANJANG’.
    02 LINE 7 COLUMN 20 VALUE ‘ 4. ) SELESAI/KELUAR’.
    02 LINE 10 COLUMN 20 VALUE ‘ PILIH YANG MANA :’.
  1. -ketik dikolom (8)
    01 BDATA.
  1. Ketik dikolom (12)
    02 LINE 3 COLUMN 20 VALUE ‘NAMA : ADITYA SETYADI’.
    02 LINE 4 COLUMN 20 VALUE ‘NPM : 10108082′.
    02 LINE 5 COLUMN 20 VALUE ‘KELAS : 2KA02′.
  1. Ketik dikolom (8)
    PROCEDURE DIVISION.
    MENU.
  1. Ketik dikolom (12)
    DISPLAY HAPUS-LAYAR.
    DISPLAY LAYAR-MENU.
    ACCEPT PILIH.
    DISPLAY HAPUS-LAYAR.
  1. Ketik dikolom (8)
    SELEKSI.
  1. Ketik dikolom (12)
    IF PILIH = 1 GO TO VOLKUBUS.
    IF PILIH = 2 GO TO VOLSIL.
    IF PILIH = 3 GO TO PERPANJANG.
    IF PILIH = 4 GO TO SELESAI.
  1. Ketik dikolom (8)
    VOLKUBUS.
  1. Ketik dikolom (12)
    DISPLAY HAPUS-LAYAR.
    DISPLAY BDATA.
    DISPLAY (8, 10)’===MENGHITUNG VOLUME KUBUS===’.
    DISPLAY (9, 13) ‘SISI KUBUS =’.
    ACCEPT SISI.
    COMPUTE ISI-KUBUS = SISI * SISI * SISI.
    MOVE ISI-KUBUS TO OUTHASIL.
    DISPLAY (12, 14) ‘VOLUME KUBUS ADALAH = ‘
    DISPLAY (12, 30) OUTHASIL.
    DISPLAY (20, 12) ‘ ‘.
    STOP ‘TEKAN ENTER UNTUK MELANJUTKAN’.
    GO TO MENU.
  1. Ketik dikolom (8)
    VOLSIL.
  1. Ketik dikolom (12)
    DISPLAY HAPUS-LAYAR.
    DISPLAY BDATA.
    DISPLAY (8, 10)’===MENGHITUNG VOLUME TABUNG===’.
    DISPLAY (9, 13) ‘JARI-JARI : ‘.
    ACCEPT JARI.
    DISPLAY (10, 13) ‘TINGGI : ‘.
    ACCEPT TINGGI.
    COMPUTE VOLSILINDER = 3.14 * JARI * JARI * 2 * TINGGI.
    MOVE VOLSILINDER TO OUTHASIL.
    DISPLAY (13, 15) ‘VOLUME SILINDER = ‘.
    DISPLAY (13, 30) OUTHASIL.
    DISPLAY (20, 12) ‘ ‘.
    STOP ‘TEKAN ENTER UNTUK MELANJUTKAN’.
    GO TO MENU.
  1. Ketik dikolom (8)
    PERPANJANG.
  1. Ketik dikolom (12)
    DISPLAY HAPUS-LAYAR.
    DISPLAY BDATA.
    DISPLAY (8, 10)’===MENGHITUNG VOLUME BALOK===’.
    DISPLAY (9, 13) ‘PANJANG :’.
    ACCEPT PANJANG.
    DISPLAY (10, 13) ‘LEBAR :’.
    ACCEPT LEBAR.
    DISPLAY (11, 13) ‘TINGGI :’.
    ACCEPT TINGGI.
    COMPUTE LUAS = PANJANG * LEBAR * TINGGI.
    MOVE LUAS TO OUTHASIL.
    DISPLAY (13, 15) ‘VOLUME BALOK = ‘,
    DISPLAY (13, 35) OUTHASIL.
    DISPLAY (20, 12) ‘ ‘.
    STOP ‘TEKAN ENTER UNTUK MELANJUTKAN’.
    GO TO MENU.
  1. Ketik dikolom (8)
    SELESAI.
  1. Ketik dikolom (12)
    STOP RUN.
Kategori:Computer, Tugas
  1. Belum ada komentar.
  1. No trackbacks yet.

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: