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
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
:
0 komentar:
Posting Komentar