| COBOL | Program Menu

in COmmon Bussiness Oriented Language ( COBOL), Pemrograman

000008 IDENTIFICATION DIVISION.
000008 PROGRAM-ID. MENU.
000008 ENVIRONMENT DIVISION.
000008 DATA DIVISION.


000008 WORKING-STORAGE SECTION.
000008 01 KUBUS.
000012     02 SISI PIC 99V99.
000012     02 ISI-KUBUS PIC 99999V99.
000012     02 JARI PIC 99V99.
000012     02 TINGGI PIC 99V99.
000012     02 VOLSILINDER PIC 99999V99.
000012     02 PANJANG PIC 99V99.
000012     02 LEBAR PIC 99V99.
000012     02 LUAS PIC 99999V99.
000008 01 PILIH PIC xx.
000008 01 HASIL.
000012     02 OUTHASIL PIC ZZZZZ.99.
000008 SCREEN SECTION.
000008 01 HAPUS-LAYAR.
000012     02 BLANK SCREEN.
000008 01 LAYAR-MENU.
000012     02 LINE 3 COLUMN 20 VALUE '      >>>>MENU<<<<      '.
000012     02 LINE 4 COLUMN 20 VALUE ' 1. ) MENGHITUNG ISI KUBUS'.
000012     02 LINE 5 COLUMN 20 VALUE ' 2. ) MENGHITUNG ISI SILINDER'.
000012     02 LINE 6 COLUMN 20 VALUE ' 3. ) MENGHITUNG LUAS P.PANJANG'.
000012     02 LINE 7 COLUMN 20 VALUE ' Esc. ) SELESAI/KELUAR'.
000012     02 LINE 10 COLUMN 20 VALUE ' PILIH YANG MANA :'.
000008 01 BDATA.
000012     02 LINE 3 COLUMN 20 VALUE 'NAMA : FIKRI MUJAHID'.
000012     02 LINE 4 COLUMN 20 VALUE 'NPM : 12110775'.
000012     02 LINE 5 COLUMN 20 VALUE 'KELAS : 2KA15'.
000008 PROCEDURE DIVISION.
000008 MENU.
000012     DISPLAY HAPUS-LAYAR.
000012     DISPLAY LAYAR-MENU.
000012     ACCEPT PILIH.
000012     DISPLAY HAPUS-LAYAR.
000008 SELEKSI.
000012     IF PILIH = 1 GO TO VOLKUBUS.
000012     IF PILIH = 2 GO TO VOLSIL.
000012     IF PILIH = 3 GO TO PERPANJANG.
000008 SELESAI.
000012     STOP RUN.
000008 VOLKUBUS.
000012     DISPLAY HAPUS-LAYAR.
000012     DISPLAY BDATA.
000012     DISPLAY (8, 13)'===MENGHITUNG VOLUME KUBUS==='.
000012     DISPLAY (9, 13) 'SISI KUBUS ='.
000012     ACCEPT SISI.
000012     COMPUTE ISI-KUBUS = SISI * SISI * SISI.
000012     MOVE ISI-KUBUS TO OUTHASIL.
000012     DISPLAY (12, 13) 'VOLUME KUBUS ADALAH = '
000012     DISPLAY (12, 35) OUTHASIL.
000012     DISPLAY (20, 12) ' '.
000012     STOP 'TEKAN ENTER UNTUK MELANJUTKAN’.
000012     GO TO MENU.
000008 VOLSIL.
000012     DISPLAY HAPUS-LAYAR.
000012     DISPLAY BDATA.
000012     DISPLAY (8, 13)'===MENGHITUNG VOLUME TABUNG==='.
000012     DISPLAY (9, 13) 'JARI-JARI : '.
000012     ACCEPT JARI.
000012     DISPLAY (10, 13) 'TINGGI : '.
000012     ACCEPT TINGGI.
000012     COMPUTE VOLSILINDER = 3.14 * JARI * JARI * 2 * TINGGI.
000012     MOVE VOLSILINDER TO OUTHASIL.
000012     DISPLAY (13, 13) 'VOLUME SILINDER = '.
000012     DISPLAY (13, 35) OUTHASIL.
000012     DISPLAY (20, 12) ' '.
000012     STOP 'TEKAN ENTER UNTUK MELANJUTKAN’.
000012     GO TO MENU.
000008 PERPANJANG.
000012     DISPLAY HAPUS-LAYAR.
000012     DISPLAY BDATA.
000012     DISPLAY (8, 13)'===MENGHITUNG VOLUME BALOK==='.
000012     DISPLAY (9, 13) 'PANJANG :'.
000012     ACCEPT PANJANG.
000012     DISPLAY (10, 13) 'LEBAR :'.
000012     ACCEPT LEBAR.
000012     DISPLAY (11, 13) 'TINGGI :'.
000012     ACCEPT TINGGI.
000012     COMPUTE LUAS = PANJANG * LEBAR * TINGGI.
000012     MOVE LUAS TO OUTHASIL.
000012     DISPLAY (13, 13) 'VOLUME BALOK = ',
000012     DISPLAY (13, 35) OUTHASIL.
000012     DISPLAY (20, 12) ' '.
000012     STOP 'TEKAN ENTER UNTUK KEMBALI KE MENU’.
000012     GO TO MENU.