CARA MEMBUAT RUMUS VOLUME BALOK MENGGUNAKAN COBOL

Saya akan memberikan informasi cara membuat volume balok dengan menggunakan cobol.
1. Pertama-tama kita buka dulu program IDECOBOL
2. Masukkan codingannya
3.Jika sudah save as lalu dicompile, lalu enter lalu enter lagi
4.Setelah itu run, dan terlihat hasilnya .

Selamat mencoba :) 


 IDENTIFICATION DIVISION.
       PROGRAM-ID. VOLUME.
       AUTHOR. DINA.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 JUMLAH.
           02 PANJANG PIC 9(2).
           02 LEBAR PIC 9(2).
           02 TINGGI PIC 9(2).
           02 VOLUME PIC 9(2).
      
PROCEDURE DIVISION.
       MULAI.
           DISPLAY '----------MASUKKAN INPUTAN----------'.
           DISPLAY 'PANJANG : '.
           ACCEPT PANJANG.
           DISPLAY 'LEBAR : '.
           ACCEPT LEBAR.
           DISPLAY 'TINGGI : '.
           ACCEPT TINGGI.
           COMPUTE VOLUME= PANJANG * LEBAR * TINGGI.
           DISPLAY '******PERHITUNGAN VOLUME BALOK******'.
           DISPLAY 'PANJANG :', PANJANG.
           DISPLAY 'LEBAR :', LEBAR.
           DISPLAY 'TINGGI :', TINGGI.
           DISPLAY 'VOLUME BALOK :', VOLUME.
           ACCEPT VOLUME.
       SELESAI.
           STOP RUN.