Cara Membuat Program Perhitungan Pada Cobol

Sebelum mulai membuat contoh program perhitungan kalian harus mengetahui dulu yaitu pada cobol terdapat 4 divis yang penting yaitu,

Indentification division adalah divisi pertama yang paling sederhana dan di gunakan untuk memberi nama program, nama pembuat,instalasi, tanggal pembuatan. 

Environment divison adalah divisi kedua yang digunakan informasi peralatan yang di gunakan dalam  program salah satu nya input dan output division. 

Data divison adalah divisi ketiga yang digunakan untuk Memberikan penjelasan tentang input data dan output yang dipergunakan, atau berisisemua keterangan tentang file, record, nama-data serta bentuk / format yang akan dipergunakan.

Procedure division adalah divisi keempat yang digunakna untuk penulisan dari tiap-tiap baris pernintah yang nantinya akan diproses sesuai dengan perintah yang dituliskan.

Setelah itu kalian juga harus tau statement yang digunakan untuk menuliskan oprasi aritmatika pada cobol yaitu,

ADD, digunakan untuk menambah 2 atau lebih operand numerik.
SUBTRACT, digunakan untuk operasi pengurangan pada numerik.
MULTIPLY, digunakan untuk operasi perkalian pada numerik.
DIVIDE, digunakan untuk operasi pembagian pada numerik.
COMPUTE, digunakan untuk 4 perhitungan aritmatika tunggal maupun sederhana.

Contoh program yang dibuat adalah untuk menghitung sebuah luas segitiga,

       IDENTIFICATION DIVISION.
       PROGRAM-ID. SEGITIGA.
       ENVIRONMENT DIVISION.
       WORKING-STORAGE SECTION.
       01 DATA-MASUK.
           02 ALAS PIC 9(4).
           02 TINGGI PIC 9(4).
           02 LUAS PIC Z(10).
       PROCEDURE DIVISION.
       MASUKAN-DATA.
           DISPLAY(3 , 2) "MASUKIN ALAS   :", ACCEPT ( , ) ALAS.
           DISPLAY(4 , 2) "MASUKIN TINGGI :", ACCEPT ( , ) TINGGI.
       HITUNG.
           COMPUTE LUAS = (ALAS * TINGGI) / 2.
       TAMPILKAN.
           DISPLAY(7 , 2) "LUASNYA ADALAH :" LUAS.
       SELESAI-PROSES.
           STOP RUN.

Perintah tersebut adalah untuk mencari luas pada sebuah segitiga, tinggal copy dan pastekan saja apabila masih ada kesalahan sihlahkan diteliti kembali agar bisa compile.
perhatikan juga level number ketika mencopy dan pastekanya.

Perintah diatas menggunakan oprasi aritmatika yang compute karena untuk mencari luas segitiga harus menggunakan lebih dari 1 operasi aritmatika maka dari itu menggunakan perintah compute untuk mencari luasnya.

Nama : Benny Dwi Admoko

Kelas : 2KA37

NPM : 11112422