Menu Matematika (V. Kerucut, V. Tabung, V. Limas Persegi Panjang) Pada COBOL

Hallo Readers, welcome back at my site. Today I wanna show you about COBOL, Ini merupakan tugas Teknik Pemrograman Terstruktur, sekalian mau share-share, kebetulan setiap kali admin searching pemrograman cobol, rata-rata yang keluar adalah pengertian atau pengenalan cobol, bukan contoh programnya.

Admin membuat program ini dengan menggunakan menu yang di buat di seleksi, di menu ini terdapat 3 pilihan untuk melakukan perhitungan matematika, yaitu Volume Kerucut, VolumeTabung, serta Volume Limas Persegi Panjang, selamat mempelajari~




IDENTIFICATION DIVISION.
PROGRAM-ID. MENU-MATEMATIKA.
AUTHOR. HANA.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 VAR.
   02 JARI PIC 9(3).
   02 TINGGI PIC 9(3).
   02 PANJANG PIC 9(3).
   02 LEBAR PIC 9(3).
   02 DIAMETER PIC 9(3).
   02 VOLUME PIC Z9(4).
01 WAKTU.
   02 TANGGAL PIC 99/99/99.
77 PILIH PIC X(2).
SCREEN SECTION.
01 HAPUS-LAYAR.
   02 BLANK SCREEN.
01 LAYAR-MENU.
   02 LINE 4 COLUMN 25 VALUE '-------------------------------'.
   02 LINE 5 COLUMN 33 VALUE 'Menu Matematika' HIGHLIGHT.
   02 LINE 6 COLUMN 25 VALUE '-------------------------------'.
   02 LINE 7 COLUMN 25 VALUE 'F1. Menghitung Volume Kerucut'.
   02 LINE 8 COLUMN 25 VALUE 'F2. Menghitung Volume Tabung'.
   02 LINE 9 COLUMN 25 VALUE 'F3. Menghitung Volume Limas P.P'.
   02 LINE 10 COLUMN 25 VALUE 'ESC. Selesai'.
   02 LINE 23 COLUMN 1 VALUE 'Created By Hana Chan - 2KA09'.
   02 LINE 19 COLUMN 25 VALUE 'Pilih Menu?' BLINK.
   02 COLUMN PLUS 2 PIC X(2) TO PILIH.
PROCEDURE DIVISION.
MULAI.
   DISPLAY HAPUS-LAYAR.
   ACCEPT TANGGAL FROM DATE.
   DISPLAY 'TANGGAL ', TANGGAL.
   DISPLAY LAYAR-MENU.
   ACCEPT PILIH.
   DISPLAY HAPUS-LAYAR.
SELEKSI.
   IF PILIH = 1 GO TO KERUCUT.
   IF PILIH = 2 GO TO TABUNG.
   IF PILIH = 3 GO TO LIMASPP.
   IF PILIH = 4 GO TO SELESAI.
KERUCUT.
   DISPLAY HAPUS-LAYAR.
   DISPLAY (5, 27)'>>>>>VOLUME KERUCUT<<<<<'.
   DISPLAY (7, 31)'Jari-jari =', ACCEPT JARI.
   DISPLAY (8, 31)'Tinggi =', ACCEPT TINGGI.
   DISPLAY (10, 29)'Maka hasilnya adalah..'.
   COMPUTE VOLUME = (3.14 * JARI ** 2 * TINGGI)/3.
   DISPLAY (11, 35)VOLUME.
   DISPLAY SPACE.
   DISPLAY SPACE.
   DISPLAY SPACE.
   DISPLAY SPACE.
   STOP 'TEKAN ENTER UNTUK MELANJUTKAN'.
   DISPLAY HAPUS-LAYAR.
   GO TO MULAI.
TABUNG.
   DISPLAY HAPUS-LAYAR.
   DISPLAY (5, 27)'>>>>>VOLUME TABUNG<<<<<'.
   DISPLAY (7, 31)'Diameter =', ACCEPT DIAMETER.
   DISPLAY (8, 31)'Tinggi =', ACCEPT TINGGI.
   DISPLAY (10, 29)'Maka hasilnya adalah...'.
   COMPUTE VOLUME = (3.14 * DIAMETER ** 2 * TINGGI)/4.
   DISPLAY (11, 35)VOLUME.
   DISPLAY SPACE.
   DISPLAY SPACE.
   DISPLAY SPACE.
   DISPLAY SPACE.
   STOP 'TEKAN ENTER UNTUK MELANJUTKAN'.
   DISPLAY HAPUS-LAYAR.
   GO TO MULAI.
LIMASPP.
   DISPLAY HAPUS-LAYAR.
   DISPLAY (5, 27) '>>>>>VOLUME LIMAS PERSEGI PANJANG<<<<<'.
   DISPLAY (7, 31)'Panjang =', ACCEPT PANJANG.
   DISPLAY (8, 31)'Lebar =', ACCEPT LEBAR.
   DISPLAY (9, 31)'Tinggi =', ACCEPT TINGGI.
   DISPLAY (11, 29)'Maka hasilnya adalah...'.
   COMPUTE VOLUME = (PANJANG * LEBAR * TINGGI)/3.
   DISPLAY (12, 35) VOLUME.
   DISPLAY SPACE.
   DISPLAY SPACE.
   DISPLAY SPACE.
   DISPLAY SPACE.
   STOP 'TEKAN ENTER UNTUK MELANJUTKAN'.
   DISPLAY HAPUS-LAYAR.
   GO TO MULAI.
SELESAI.

   STOP RUN.