Bahasa Pemrograman COBOL
COBOL adalah bahasa pemrograman komputer, digunakan oleh orang yang akan memberikan instruksi-instruksi kepada komputer untuk menyelesaikan persoalan bisnis. 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.
Bahasa COBOL pertama kali diperkenalkan secara resmi atau formal pada bulan Januari 1960. Versi dari bahasa COBOL ini disebut dengan COBOL-60. Dan diperbaharui pada tahun 1965 .
Program bahasa COBOL merupakan program terstruktur , yaitu program yang strukturnya jelas, mudah dibaca, dan mudah dipelajari, dan baik untuk dokumentasi.
Dalam program bahasa Cobol terdiri 4 Divisi di dalam nya ,Antar lain :
1.IDENTIFICATION DIVISION.
2.Environtment DIVISION.
3.DATA DIVISION.
4.PROCEDURE DIVISION.
penjelasan :
@. IDENTIFICATION DIVISION : untuk pengidentifikasian pembuat program ,tanggal pembuatan,dllHarus ada didalam program, tetapi isinya tidak mempengaruhi jalannya/ proses dari program.
Terdiri dari : Judul divisi
Paragraph
Paragraph mengandung entry
@ENVIRONNENT DIVISION : untuk informasi keadaan komputeryang dipakai.
Terdiri dari 2 section yaitu : - Configuration section = Berisi informasi mengenai komputer yang digunakan.
- Input - Output section =Berisi mengenai peralatan - peralatan yg digunakan untuk memproses file yang Terdiri dari : Judul divisi
2 section
Section yg terdiri dari paragraph
Paragraph yang berisi entry
Entry yang berisi clause
@DATA DIVISION : untuk informasi mengenai bentuk dan jenis data yang digunakan.
DATA DIVISION Terdiri dari : - File Section
- Working-Storage Section
- Screen Section
- Linkage Section
- Report Section
* FILE SECTION
Berisi mengenai file yg akan digunkan.Yaitu data mengenai: -nama file
-nama record dalam file
-jenjang dari data item didalam record
-ukuran panjang dan tipe dari masing - masing file
* STORAGE SECTION (optional)
Ada bilamana diperlukan pemesanan tempat untuk data proses &
output. Data yang ada disini BUKAN data external. ( Data external =
data dari luar program, misalnya data dari disket, atau tape )
* SECTION (optional)
Yaitu untuk mendefinisikan bentuk dari layar input / output
* SECTION (optional)
Yaitu untuk menerangkan bahwa suatu file mempunyai hubungan
dengan file lain.Atau suatu program berhubungan dgn program yg lain.
* REPORT SECTION (optional)
Untuk menggambarkan bentuk laporan yg akan dicetak. Digunakan
apabila ada file "Report-writer"nya.
DATA DIVISION terdiri dari : - Judul divisi
- Beberapa section
- Paragraph
- Entry
- Clause
- Phrase
* PROCEDURE DIVISION : untuk memuat procedure pemrosesan data. Berisi paragraph - paragraph yang terdiri dari instruksi untuk pelaksanaan program.
contoh program COBOL :
IDENTIFICATION DIVISION.
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.
Bahasa COBOL pertama kali diperkenalkan secara resmi atau formal pada bulan Januari 1960. Versi dari bahasa COBOL ini disebut dengan COBOL-60. Dan diperbaharui pada tahun 1965 .
Program bahasa COBOL merupakan program terstruktur , yaitu program yang strukturnya jelas, mudah dibaca, dan mudah dipelajari, dan baik untuk dokumentasi.
Dalam program bahasa Cobol terdiri 4 Divisi di dalam nya ,Antar lain :
1.IDENTIFICATION DIVISION.
2.Environtment DIVISION.
3.DATA DIVISION.
4.PROCEDURE DIVISION.
penjelasan :
@. IDENTIFICATION DIVISION : untuk pengidentifikasian pembuat program ,tanggal pembuatan,dllHarus ada didalam program, tetapi isinya tidak mempengaruhi jalannya/ proses dari program.
Terdiri dari : Judul divisi
Paragraph
Paragraph mengandung entry
@ENVIRONNENT DIVISION : untuk informasi keadaan komputeryang dipakai.
Terdiri dari 2 section yaitu : - Configuration section = Berisi informasi mengenai komputer yang digunakan.
- Input - Output section =Berisi mengenai peralatan - peralatan yg digunakan untuk memproses file yang Terdiri dari : Judul divisi
2 section
Section yg terdiri dari paragraph
Paragraph yang berisi entry
Entry yang berisi clause
@DATA DIVISION : untuk informasi mengenai bentuk dan jenis data yang digunakan.
DATA DIVISION Terdiri dari : - File Section
- Working-Storage Section
- Screen Section
- Linkage Section
- Report Section
* FILE SECTION
Berisi mengenai file yg akan digunkan.Yaitu data mengenai: -nama file
-nama record dalam file
-jenjang dari data item didalam record
-ukuran panjang dan tipe dari masing - masing file
* STORAGE SECTION (optional)
Ada bilamana diperlukan pemesanan tempat untuk data proses &
output. Data yang ada disini BUKAN data external. ( Data external =
data dari luar program, misalnya data dari disket, atau tape )
* SECTION (optional)
Yaitu untuk mendefinisikan bentuk dari layar input / output
* SECTION (optional)
Yaitu untuk menerangkan bahwa suatu file mempunyai hubungan
dengan file lain.Atau suatu program berhubungan dgn program yg lain.
* REPORT SECTION (optional)
Untuk menggambarkan bentuk laporan yg akan dicetak. Digunakan
apabila ada file "Report-writer"nya.
DATA DIVISION terdiri dari : - Judul divisi
- Beberapa section
- Paragraph
- Entry
- Clause
- Phrase
* PROCEDURE DIVISION : untuk memuat procedure pemrosesan data. Berisi paragraph - paragraph yang terdiri dari instruksi untuk pelaksanaan program.
contoh program COBOL :
IDENTIFICATION DIVISION.
PROGRAM-ID. T2202.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 NAMA PIC X(30).
01 NPM PIC X(8)
01 KELAS PIC X(5).
01 KAMPUS PIC X(30).
01 ISIMENU.
02 JARI PIC 99V99.
02 LLINGKARAN PIC 99999V99.
02 ALAS PIC 99V99.
02 TINGGI PIC 99V99.
02 LSEGITIGA PIC 99V99.
02 PANJANG PIC 99V99.
02 LEBAR PIC 99V99.
02 LPERPANJANG PIC 99999V99.
01 PILIH PIC 9.
01 HASIL.
02 OHASIL PIC ZZZZZ.99.
SCREEN SECTION.
01 HAPUS-LAYAR.
02 BLANK SCREEN.
01 LAYAR-MENU.
02 LINE 3 COLUMN 20 VALUE 'MENU'.
02 LINE 4 COLUMN 20 VALUE '1). MENGHITUNG LUAS LINGKARAN'.
02 LINE 5 COLUMN 20 VALUE '2). MENGHITUNG LUAS SEGITIGA'.
02 LINE 6 COLUMN 20 VALUE '3). MENGHITUNG LUAS P.PANJANG'.
02 LINE 7 COLUMN 20 VALUE '4). SELESAI/KELUAR'.
02 LINE 10 COLUMN 20 VALUE 'PILIH = '.
01 BDATA.
02 LINE 3 COLUMN 20 VALUE 'PERHITUNGAN '.
02 LINE 4 COLUMN 20 VALUE 'MATEMATIKA'.
PROCEDURE DIVISION.
MULAI.
DISPLAY (2,3) "NAMA : ".
ACCEPT NAMA.
DISPLAY (3,3) "NPM : ".
ACCEPT NPM.
DISPLAY (4,3) "KELAS : ".
ACCEPT KELAS.
DISPLAY (5,3) "KAMPUS : ".
ACCEPT KAMPUS.
MENU.
DISPLAY HAPUS-LAYAR.
DISPLAY LAYAR-MENU.
ACCEPT PILIH.
DISPLAY HAPUS-LAYAR.
SELEKSI.
IF PILIH = 1 GO TO LINGKARAN.
IF PILIH = 2 GO TO SEGITIGA.
IF PILIH = 3 GO TO PERPANJANG.
IF PILIH = 4 GO TO SELESAI.
SEGITIGA.
DISPLAY HAPUS-LAYAR.
DISPLAY BDATA.
DISPLAY (5,20) 'NAMA :', NAMA.
DISPLAY (6,20) 'KELAS :', KELAS.
DISPLAY (8, 10)'===MENGHITUNG LUAS SGITIGA==='.
DISPLAY (9, 13) 'ALAS ='.
ACCEPT ALAS.
DISPLAY (10, 13) 'TINGGI ='.
ACCEPT TINGGI.
COMPUTE LSEGITIGA = ALAS * TINGGI / 2.
MOVE LSEGITIGA TO OHASIL.
DISPLAY (12, 14) 'LUAS SEGITIGA = '
DISPLAY (12, 30) OHASIL.
DISPLAY (20, 12) ' '.
STOP 'TEKAN ENTER UNTUK MELANJUTKAN'.
GO TO MENU.
LINGKARAN.
DISPLAY HAPUS-LAYAR.
DISPLAY BDATA.
DISPLAY (5,20) 'NAMA :', NAMA.
DISPLAY (6,20) 'KELAS :', KELAS.
DISPLAY (8, 10)'===MENGHITUNG LUAS LINGKARAN==='.
DISPLAY (9, 13) 'JARI-JARI : '.
ACCEPT JARI.
COMPUTE LLINGKARAN = 3.14 * JARI * JARI.
MOVE LLINGKARAN TO OHASIL.
DISPLAY (13, 15) 'LUAS LINGKARAN = '.
DISPLAY (13, 30) OHASIL.
DISPLAY (20, 12) ' '.
STOP 'TEKAN ENTER UNTUK MELANJUTKAN'.
GO TO MENU.
PERPANJANG.
DISPLAY HAPUS-LAYAR.
DISPLAY BDATA.
DISPLAY (5,20) 'NAMA :', NAMA.
DISPLAY (6,20) 'KELAS :', KELAS.
DISPLAY (8, 10)'===MENGHITUNG LUAS PERSEGI PANJANG==='.
DISPLAY (9, 13) 'PANJANG :'.
ACCEPT PANJANG.
DISPLAY (10, 13) 'LEBAR :'.
ACCEPT LEBAR.
COMPUTE LPERPANJANG = PANJANG * LEBAR.
MOVE LPERPANJANG TO OHASIL.
DISPLAY (13, 15) 'LUAS PERSEGI PANJANG = ',
DISPLAY (13, 35) OHASIL.
DISPLAY (20, 12) ' '.
STOP 'TEKAN ENTER UNTUK MELANJUTKAN'.
GO TO MENU.
SELESAI.
STOP RUN.
OUTPUT :
