Logo Design by FlamingText.com

Kamis, 11 Oktober 2012

Browse » Home » » Belajar Cobol

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


Advertisement below...!

Comments : Ada 0 komentar untuk Belajar Cobol

Posting Komentar

 
© Copyright 2011 : Punya Cerita