cobol

COBOL (COmmon Business Oriented Language) itu bahasa pemrograman generasi ketiga. Ia dibina oleh Jabatan Pertahanan Amerika Syarikat tapi di gunakan dalam bidang perniagaan, keuangan untuk masyarakat daan kerajaan

1. sejarah cobol

COBOL dibina pada 1959 oleh satu badan yang dikenali sebagai The Short Range Committee di Pentagon pada 28 dan 29 Mei 1959. Idea untuk COBOL dipelopori oleh En Charles Phillips dari Jabatan Pertahanan Amerika Syarikat.
Jawatan kuasa ini disertai oleh 6 syarikat komputer pada masa itu iaitu Burroughs Corporation, IBM, Minneapolis-Honeywell (Honeywell Labs), RCA, Sperry Rand, dan Sylvania Electric Products dan 3 badan kerajaan iaitu Tentera Udara Amerika Syarikat, David Taylor Model Basin, dan National Bureau of Standards yang dikenali pada masa ini sebagai NIST.
(wikipedia)

2. keuntungan bahasa cobol

1.Program COBOL dibuat dalam instruksi bahasa Inggris, jadi mudah dipelajari dan dibuat.
2.Program COBOL sesuai untuk pengolahan data, yang banyak diterapkan pada permasalahan bisnis.
3.Program COBOL sifatnya standard, jadi dapat digunakan pada komputer yg berbeda - beda, tanpa banyak mengalami perubahan.
4.COBOL juga menyediakan fasilitas listing program, jika perlu diperiksa oleh orang lain selain programmernya.
5.Mudah didokumentasikan dan mudah dikembangkan bilamana perlu


3.contoh program sederhana bahasa cobol

a. contoh 1

IDENTIFICATION DIVISION.
AUTHOR. IKA_INTAN.
ENVIRONMENT DIVISION.
DATA DIVISION.
01 NAMA PIC A(20).
01 KELAS PIC B(5).
PROCEDURE DIVISION.
MULAI.
DISPLAY "NAMA :".
ACCEPT NAMA.
DISPLAY "KELAS :".
ACCEPT KELAS.
SCREEN SECTION.
01 ACCEPT NAMA.
01 ACCEPT KELAS.
SELESAI.
STOP RUN.

b. contoh 2

IDENTIFICATION DIVISION.
AUTHOR. IKAINTAN.
PROGRAM-ID. LUAS SEGITIGA.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 MASUKAN-DATA.
02 NAMA PIC A(25).
02 NPM PIC 9(8).
02 KELAS PIC X(5).
02 AS PIC 9(3).
02 TS PIC 9(3).
02 LS PIC 9(9).
02 LUAS PIC Z(5).
SCREEN SECTION.
01 HAPUS-LAYAR.
02 BLANK SCREEN.
01 LAYAR-PEMBUKA.
02 LINE 5 COLUMN 5 VALUE ' NAMA :'.
02 COLUMN PLUS 1 PIC A(25) TO NAMA.
02 LINE 7 COLUMN 5 VALUE ' NPM :'.
02 COLUMN PLUS 1 PIC 9(8) TO NPM.
02 LINE 9 COLUMN 5 VALUE ' KELAS :'.
02 COLUMN PLUS 1 PIC X(5) TO KELAS.
01 PERHITUNGAN-SEGITIGA.
02 LINE 3 COLUMN 5 VALUE 'PROGRAM 3'.
02 LINE 5 COLUMN 5 VALUE ' ALAS SEGITIGA :'.
02 COLUMN PLUS 1 PIC 9(3) TO AS.
02 LINE 7 COLUMN 5 VALUE ' TINGGI SEGITIGA :'.
02 COLUMN PLUS 1 PIC 9(3) TO TS.
PROCEDURE DIVISION.
MULAI.
DISPLAY LAYAR-PEMBUKA.
ACCEPT LAYAR-PEMBUKA.
DISPLAY HAPUS-LAYAR.
DISPLAY PERHITUNGAN-SEGITIGA.
ACCEPT PERHITUNGAN-SEGITIGA.
COMPUTE LS = AS * TS / 2.
MOVE LS TO LUAS.
DISPLAY ( 20 , 5 )'LUAS-SEGITIGA :'.
DISPLAY LUAS.
SELESAI.
STOP RUN.