Program Kalkulator dengan COBOL

COBOL adalah kepanjangan dari Common Bussiness Oriented Language. Bahasa COBOL digolongkan sebagai High Level Language (bahasa pemrograman tingkat tinggi) yang berorientasi pada masalah bisnis. Diciptakan pada tahun 1959. COBOL pertama kali diperkenalkan secara formal bulan Januari 1960 dan disebut dengan COBOL-60. Dan diperbaharui tahun 1965. Pada tahun 1968 dan 1974, bahasa COBOL dikembangkan dan distandarisasikan dengan nama ANSI COBOL (American National Standarts Institute).
Karena orientasinya pada suatu masalah, bahasa ini disebut juga dengan istilah Problem Oriented Language. Bahasa pemrograman COBOL sangat terstruktur, karena mudah dibaca dan memiliki struktur yang jelas. COBOL dibuat untuk operasi pengolahan data, yaitu membaca data, memproses data dan menghasilkan output berupa informasi.


Ini contoh program kalkulator dengan menggunakan bahasa pemrograman COBOL :


        IDENTIFICATION DIVISION.
        PROGRAM-ID. CALCULATOR.
        ENVIRONMENT DIVISION.
        DATA DIVISION.
        WORKING-STORAGE SECTION.
        01 MASUKAN.
        02 N1 PIC 9(5).
02 N2 PIC 9(5).
01 KELUARAN.
02 NIL1 PIC Z(5).
02 NIL2 PIC Z(5).
01 NILAI-HASIL.
02 HASIL PIC Z(15).
77 PIL PIC 9.
01 LAGI PIC A.
88 YA VALUE 'Y' , 'y'.
88 TIDAK VALUE 'T' , 't'.
SCREEN SECTION.
01 CLS.
02 BLANK SCREEN.
01 TAMPILAN-MASUK.
                02 LINE 2 COLUMN 2 VALUE 'Program Kalkulator Sederhana'.
02 LINE 4 COLUMN 3 VALUE 'Input Nilai 1 = '.
02 COLUMN PLUS 1 PIC Z(5) TO N1.
02 LINE 5 COLUMN 3 VALUE 'Input Nilai 2 = '.
02 COLUMN PLUS 1 PIC Z(5) TO N2.
01 TAMPILAN-PILIHAN.
02 LINE 2 COLUMN 2 VALUE 'Pilih Operasi Aritmatika :'.
02 LINE 3 COLUMN 3 VALUE '1. Penjumlahan'.
02 LINE 4 COLUMN 3 VALUE '2. Pengurangan'.
02 LINE 5 COLUMN 3 VALUE '3. Perkalian'.
02 LINE 6 COLUMN 3 VALUE '4. Pembagian'.
02 LINE 9 COLUMN 2 VALUE 'Pilihan Anda = '.
02 COLUMN PLUS 1 PIC 9 TO PIL.
01 ULANG.
02 LINE 6 COLUMN 2 VALUE 'Ulangi (Y/T) : '.
02 COLUMN PLUS 1 PIC A TO LAGI.
PROCEDURE DIVISION.
MULAI.
DISPLAY CLS.
DISPLAY TAMPILAN-MASUK.
ACCEPT TAMPILAN-MASUK.
DISPLAY CLS.
DISPLAY TAMPILAN-PILIHAN.
ACCEPT TAMPILAN-PILIHAN.
IF PIL = 1 GO TO PENJUMLAHAN.
IF PIL = 2 GO TO PENGURANGAN.
IF PIL = 3 GO TO PERKALIAN.
IF PIL = 4 GO TO PEMBAGIAN.
PENJUMLAHAN.
DISPLAY CLS.
COMPUTE HASIL = N1 + N2.
MOVE N1 TO NIL1.
MOVE N2 TO NIL2.
DISPLAY (2, 2) 'Operasi Aritmatika :'
DISPLAY (4, 2) NIL1 , ' + ' , NIL2 , ' = ' , HASIL.
DISPLAY ULANG.
ACCEPT ULANG.
IF YA GO TO MULAI.
GO TO SELESAI.
PENGURANGAN.
DISPLAY CLS.
COMPUTE HASIL = N1 - N2.
MOVE N1 TO NIL1.
MOVE N2 TO NIL2.
DISPLAY (2, 2) 'Operasi Aritmatika :'
DISPLAY (4, 2) NIL1 , ' - ' , NIL2 , ' = ' , HASIL.
DISPLAY ULANG.
ACCEPT ULANG.
IF YA GO TO MULAI.
GO TO SELESAI.
PERKALIAN.
DISPLAY CLS.
COMPUTE HASIL = N1 * N2.
MOVE N1 TO NIL1.
MOVE N2 TO NIL2.
DISPLAY (2, 2) 'Operasi Aritmatika :'
DISPLAY (4, 2) NIL1 , ' * ' , NIL2 , ' = ' , HASIL.
DISPLAY ULANG.
ACCEPT ULANG.
IF YA GO TO MULAI.
GO TO SELESAI.
PEMBAGIAN.
DISPLAY CLS.
COMPUTE HASIL = N1 / N2.
MOVE N1 TO NIL1.
MOVE N2 TO NIL2.
DISPLAY (2, 2) 'Operasi Aritmatika :'
DISPLAY (4, 2) NIL1 , ' / ' , NIL2 , ' = ' , HASIL.
DISPLAY ULANG.
ACCEPT ULANG.
IF YA GO TO MULAI.
GO TO SELESAI.
SELESAI.
STOP RUN.


Tampilan output programnya :

disini kita diminta untuk memasukkan nilai-nilai yang akan di hitung.

pilih operasi yang diinginkan, seperti penjumlahan, pengurangan, perkalian atau pembagian.

ini tampilan hasil dari penjumlahan kedua angka tadi.












Program ini memang belum sempurna karena masih sangat sederhana dan masih ada  kekurang karena hanya bisa menghitung paling banyak 5 digit angka saja. Tapi semoga bisa membantu dan bermanfaat bagi anda.

Penulis : Charley Christerico Corputty (Triple-C) ~ Sebuah blog yang menyediakan berbagai macam informasi

Artikel Program Kalkulator dengan COBOL ini dipublish oleh Charley Christerico Corputty (Triple-C) pada hari Jumat, 11 Januari 2013. Semoga artikel ini dapat bermanfaat.Terimakasih atas kunjungan Anda silahkan tinggalkan komentar.sudah ada 3 komentar: di postingan Program Kalkulator dengan COBOL