Belajar Cobol

Apa itu COBOL?

Pengertian COBOL (singkatan dari Common Business Oriented Language) adalah 

sebuah bahasa pemrograman generasi ketiga. Sesuai dengan namanya, maka 

bahasa COBOL mempunyai fungsi menyelesaikan masalah-masalah yang 

berhubungan dengan perdagangan, seperti sistem pengelolaan keuangan, laporan pengeluaran sebuah perusahaan dan lain-lain. karena orientasinya pada suatu 

masalah, bahasa ini sering disebut juga dengan istilah Problem Oriented Language. 

COBOL merupakan High Level Language, bahasa awam yang ditulis menggunakan

instruksi dalam bahasa inggris. COBOL hampir dapat digunakan pada semua

komputer yang tersedia kompiler COBOLnya. COBOL diciptakan pada tahun 1959. Pengembangan bahasa COBOL selanjutnya dilakukan oleh suatu group yang 
disebut CODASYL, singkatan dari COnference on DAta SYstem Language.

Diperkenalkan pertama kali secara formal pada bulan Januari 1960. COBOL 

mempunyai banyak versi, sehingga untuk mempermudah penggunanya COBOL

terus dikembangkan dan distandarisasi pada tahun 1968 dan 1974, diberi nama 

ANSI COBOL (American National Standard Institute COBOL)

Contoh Program

Berikut adalah listing code untuk program kalkulator dengan menggunakan 

Bahasa Pemrograman COBOL.

       IDENTIFICATION DIVISION.

       PROGRAM-ID. IFSTAT.
       AUTHOR. INDERA.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       77 P PIC 9.
       77 B1 PIC 9(5).
       77 B2 PIC 9(5).
       77 H PIC -Z(10).99.
       77 U PIC A.
       SCREEN SECTION.
       01 HAPUS-LAYAR.
           02 BLANK SCREEN.
       PROCEDURE DIVISION.
       MULAI.
           DISPLAY HAPUS-LAYAR.
           PERFORM MENU.
           PERFORM PILIHAN.
           IF P > 5 PERFORM PILIHAN UNTIL P < 6.
           IF P < 5 PERFORM MASUKKAN-BILANGAN.
           PERFORM KALKULATOR.
           IF P = 5 PERFORM SELESAI.
           DISPLAY 'HASIL = ', H.
           DISPLAY 'ULANGI ? (Y/T) : '.
           ACCEPT U.
           IF U = 'Y' GO TO MULAI.
           PERFORM SELESAI.
       MENU.
           DISPLAY '=====MENU====='.
           DISPLAY '1. PENJUMLAHAN'.
           DISPLAY '2. PENGURANGAN'.
           DISPLAY '3. PERKALIAN'.
           DISPLAY '4. PEMBAGIAN'.
           DISPLAY '5. EXIT'.
       PILIHAN.    
           DISPLAY 'PILIHAN : '.
           ACCEPT P.
       MASUKKAN-BILANGAN.
           DISPLAY 'BILANGAN PERTAMA : '.
           ACCEPT B1.
           DISPLAY 'BILANGAN KEDUA : '.
           ACCEPT B2.
       KALKULATOR.
           IF P = 1 PERFORM PENJUMLAHAN.
           IF P = 2 PERFORM PENGURANGAN.
           IF P = 3 PERFORM PERKALIAN.
           IF P = 4 PERFORM PEMBAGIAN.
       PENJUMLAHAN.
           COMPUTE H = B1 + B2.
       PENGURANGAN.
           COMPUTE H = B1 - B2.
       PERKALIAN.
           COMPUTE H = B1 * B2.
       PEMBAGIAN.
           COMPUTE H = B1 / B2.
       SELESAI.
           DISPLAY 'TERIMA KASIH'.
           STOP RUN.

Namun, program tersebut belumlah sempurna karena masih sangat sederhana
dan masih ada kekurangan, karna hanya dapat menghitung maksimal 5 digit 
angka saja.

terimakasih