Procedure Lanjutan pada Bahasa Cobol

Nama Program : COBOL

Nama File : PERT2.COB

Listing Program :

Compile :

gambar 1 ( mencompile program dalam cobol )

Output :

gambar 2 (merunning Program dalam cobol)

gambar 3 (menapilkan menu program 1. PENJUMLAHAN)

gambar 4 (menapilkan menu program 2. PENGURANGAN)

gambar 5 (menapilkan menu program 3. PERKALIAN)

gambar 6 (menapilkan menu program 4. PEMBAGIAN)

gambar 7 (menapilkan menu program 5. EXIT)

Logika Program

IDENTIFICATION DIVISION

PROGRAM-ID. HITUNG.

ENVIRONMENT DIVISION.

DATA DIVISION.

WORKING-STORAGE SECTION

v Pada bagian ini adalah bagian untuk memberi nama program, mengetahui informasi tentang program tersebut; nama pembuat, instalasi,tanggal pembuatan, dll.

v lalu dilanjutkan dengan itu sendiri.

v divisi yang berguna menyediakan peralatan yang digunakan dalam program.

v hanya berisi statement-statement yang akan digunakan untuk input/output program. Yang mana pada program ini user juga akan menggunakan statement kondisi (IF), data division selalu di ikuti dengan dimana seluruh proses/statement akan tersimpan.

77 PILIHAN PIC 9.

01 OPERAND.

02 OPR1 PIC 9(3)V9.

02 OPR2 PIC 9(3)V9.

02 HASIL PIC 9(8)V9.

v <77> adalah level number dimana level number 77 ini berdiri sendiri, pilihan pada level number ini akan meminta input yang mana karakter numeric yang disediakan hanya 1 angka.

v <01> level number ini adalah level number record/grup data item, maka OPERAND adalah nama data yang dapat dipanggil pada procedure division.

v <02> level number yang menjadi sub-program dari 01, dimana data yang akan di input didalamnya yaitu dengan karakter numeric yang disediakan 3 angka di depan koma dan 1 angka dibelakang koma, begitu juga dengan , dan hasil dengan karakter numeric yang disediakan 8 di depan koma, 1angka dibelakang koma.

01 LAGI PIC A.

88 IYA VALUE 'y' , 'Y'.

88 TIDAK VALUE 'T' , 't'.

v <01> nama data ‘lagi’ dengan level number 01 membentuk suatu grup dengan karakter alphabet yang disediakan 1 huruf. Isi data lagi disini menggunakan level number <88> dimana level number ini adalah level number untuk mengawali sebuah kondisi, atau dalam procedure division nati akan digunakan seleksi kondisi pada data ini.

SCREEN SECTION.

01 HAPUS-LAYAR.

02 BLANK SCREEN.

v bagian ini berisi perintah <01> juduldari perintahnya adalah hapus-layar diletakkan pada level number 01, isi perintahnya adalah <02> screen>, yang mana pada saat section ini dipanggil, layar akan bersih kembali.

01 MENU-PILIHAN.

02 LINE 5 COLUMN 15 VALUE 'MENU'

FOREGROUND-COLOR 3 HIGHLIGHT BLINK.

02 LINE 7 COLUMN 8 VALUE '1.PENJUMLAHAN'.

02 LINE 8 COLUMN 8 VALUE '2.PENGURANGAN'.

02 LINE 9 COLUMN 8 VALUE '3.PERKALIAN'.

02 LINE 10 COLUMN 8 VALUE '4.PEMBAGIAN'.

02 LINE 11 COLUMN 8 VALUE '5.KELUAR'.

02 LINE 13 COLUMN 8 VALUE 'PILIHAN:'.

02 COLUMN PLUS 2 PIC 9 TO PILIHAN REQUIRED.

01 INPUTAN.

02 LINE 17 COLUMN 8 VALUE 'MASUKAN BILANGAN KE 1:'.

02 COLUMN PLUS 2 PIC 9(3)V99 TO OPR1 REQUIRED.

02 LINE 18 COLUMN 8 VALUE 'MASUKAN BILANGAN KE 2:'.

02 COLUMN PLUS 2 PIC 9(3)V99 TO OPR2 REQUIRED.

01 KELUARAN.

02 LINE 20 COLUMN 8 VALUE 'HASILNYA :'.

02 COLUMN PLUS 2 PIC 9(7)V99 FROM HASIL.

v <01> data menu-pilihan dengan level number 01 membentuk sutu grup dengan isi data yang dimulai dari level number <02>, dengan mencetak MENU pada output di baris ke-5 kolom 15 dengan efek latar belakang tulisan dan tulisan terlihat lebih terang,

o mencetak 1.PENJUMLAHAN di baris ke-7 kolom 8,

o mencetak 2.PENGURANGAN di baris ke-8 kolom 8,

o mencetak 3.PERKALIAN di baris ke-9 kolom 8,

o mencetak 4.PEMBAGIAN di baris ke-10 kolom 8,

o mencetak 5.KELUAR di aris ke-11 kolom 8, mencetak PILIHAN: di baris ke-13 kolom 8 lalu maksudnya adalah saat tercetak kata PILIHAN : space 2 karakter/kolom user akan menginput pilihannya (begitu seterusnya-berulang).

v <01> data inputan dengan level number 01 membentuk data masukkan bilangan, yaitu bilangan 1 dan 2, yang mana bilangan1 sebagai opr1 dan bilangan2 sebagai opr2. Sama seperti statement sebelumnya, setelah tercetak MASUKAN BILANGAN KE 1 : space 2 karakter/kolom user akan meng-input bilangan yang di inginkan dan disimpan pada variable opr1 dan opr2 yang telah di deklarasikan sebelumnya.

v <01> data keluaran dengan level number 01, dimana memiliki isi data HASILNYA yang akan dicetak pada baris 20 kolom 8 dan hasil perhitungan pada kolom ditambah 2 space setelah tercetak kata HASILNYA : dengan banyak karakter aritmatik 7 di depan koma, 2 dibelakang koma.

PROCEDURE DIVISION.

MULAI.

DISPLAY HAPUS-LAYAR.

DISPLAY MENU-PILIHAN.

ACCEPT MENU-PILIHAN.

v isi dari instruksi-instruksi untuk menghasilkan sebuah output yang mana statement-statement telah di input pada bagian data division.

v hanya sebagai instruksi/judul tambahan untuk memulai merancang output, mana yanga akan ditampilkan terlebih dahulu.

v maka lakukan perintah yang ada pada section hapus-layar yaitu blank screen (membersihkan layar).

v tampilkan section menu pilihan dan jalankan menu yang telah dipilih/di input user.

SELEKSI.

IF PILIHAN = 1

GO TO PIL1.

IF PILIHAN = 2

GO TO PIL2.

IF PILIHAN = 3

GO TO PIL3.

IF PILIHAN = 4

GO TO PIL4.

IF PILIHAN > 4

GO TO SELESAI.

v hanya sebagai judul dari seleksi kondisi yang akan digunakan, dimana jika pilihan yang di input user adalah 1, maka lakukan perintah yang ada di pil1, begitu seterusnya.

PIL1.

DISPLAY (15, 8) '++PENJUMLAHAN++'.

DISPLAY INPUTAN.

ACCEPT INPUTAN.

COMPUTE HASIL = OPR1 + OPR2 .

DISPLAY KELUARAN.

GO TO MAU-LAGI.

v judul dari statement-statement yang akan dijalankan.

v cetak ++PENJUMLAHAN++ pada baris 15 kolom 8.

v tampilkan section inputan dan jalankan statement-statement yang ada pada section inputan tersebut. Dengan perhitungan aritmatikanya hasil sama dengan bilangan1 ditambah bilangan2.

v tampilkan yang ada pada judul section keluaran.

v berlanjut/pergi ke section mau-lagi, yang mana akan muncul/tercetak pertanyaan MAU NGITUNG LAGI?? dengan jawaban Y/T.

v Begitu juga untuk , , , . Hanya saja pada pilihan ke-2 operasi yang digunakan adalah pengurangan, pilihan ke-3 operasi perkalian, pilihan ke-4 operasi pembagian (pada operand1 dan operand2), sedangkan pilihan ke-5 hanya untuk mengakhiri proses program (selesai).

MAU-LAGI.

DISPLAY (23, 4) 'MAU NGITUNG LAGI [Y/T] ? '

ACCEPT( , ) LAGI.

IF IYA GO TO MULAI

ELSE IF TIDAK GO TO SELESAI.

SELESAI.

STOP RUN.

v section dengan judul mau-lagi yang akan mencetak pertanyaan MAU NGITUNG LAGI [Y/T]?, simpan jawaban yang di input user. jika iya berlajnut/pergi ke section berjudul mulai, tapi jika tidak pergi section berjudul selesai.

v hanya sebagai instruksi/judul tambahan untuk member tanda mengakhiri sebuah program.

v penutup program atau mengakhiri program cobol.