COBOL : Menghitung Volume Bola

IDENTIFICATION DIVISION

Divisi ini merupakan divisi yang pertama dalam program cobol dan yang paling sederhana. Kita bisa menulis apa saja disini

PROGRAM-ID. ZASBOLA

Menjelaskan nama program apa yang sedang di jalankan. Pada kali ini saya akan menjelaskan contoh.

AUTHOR. ADAM.

Merupakan nama dari pemebuat program tersebut, dan dalam contoh ini saya adalah yang membuat program tersebut.

ENVIRONMENT DIVISION.

Pada divisi ini berisikan dokumentasi informasi mengenai peralatan yang digunakan .

DATA DIVISION.

Divisi ini menjelaskan tentang input & output data yang digunakan serta semua keterangan tentang file, record, nama data serta format yang akan digunakan dalam PROCEDURE DIVISION.

WORKING-STORAGE SECTION.

       01 INI.

           02 JARI PIC 99.

Inputan data yang berisi 2 numerik contoh XX yang di simpan d variabel JARI

           02 VOLUME PIC 99.

Inputan data yang berisi 2 numerik contoh XX yang di simpan d variabel VOLUME

WORKING-STORAGE SECTION.

Adalah divisi yang berguna untuk mendeklarasikan data input maupun data output, tentang bagaimana jenis data yang digunakan dan sifat dari data tersebut. Dalam hal ini, dibagi menjadi 2 section yaitu WORKING-STORAGE SECTION yang berguna untuk tempat mendeklarasikan variable-variable yang akan digunakan nanti, yang kedua SCREEN SECTION berguna untuk mengatur bentuk format dari layar input maupun output.

Pada WORKING-STORAGE SECTION, dideklarasikan 2 buah variable yakni NPM dengan tipe data character yang mempunyai max length = 8, dan NAMA dengan tipe data character yang mempunyai max length = 50.

PROCEDURE DIVISION.

Merupakan gambaran logika yang digunakan untuk menyelesaikan masalah, sehingga divisi ini merupakan inti dari program COBOL. Didalam PROCEDURE DIVISION dalam program diatas terdapat keterangan:

DISPLAY 'MASUKAN JARI JARI BOLA : ', ACCEPT JARI.

Menuliskan 'MASUKAN JARI JARI BOLA : ' lalu di simpan di varibel JARI

              COMPUTE VOLUME = 1.33 * 3.14 * (JARI ** 3).

Yang berfungsi untung melakukan perhitungan  volume bola

RUMUS VOLUME BOLA :

V = 4/3 x π x r³

Keterangan :
V = volume bola.
r  = jari-jari bola.
π = 22/7 atau 3,14

4/3 di ganti menjadi 1.33

              DISPLAY 'VOLUME BOLA ADALAH : ', VOLUME.

Untuk menampilkan hasil perhitungan volume bola

Outpuntnya :