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.
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.
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
Comments : Ada 0 komentar untuk Belajar Cobol
Posting Komentar