Kali ini saya akan memberikan cara atau tutorian untuk
membuat program uts uas pada cobol, cobol 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.
perhatikan ss berikut yang berikan listing program untuk
membuat program uts uas :
tulis listing program tersebut pada program cobol, kompile lalu run maka akan keluar output seperti di bawah :
Maksud dari statmen diatas yaitu :
- · Pada listing program biodata diatas terdapat perintah IDENTIFICATION DIVISION statement diatas berfungsi untuk mengidentifikasikan dan memberi suatu informasi tentang program tersebut.
- · PROGRAM-ID OUTPUT. Berfungsi untuk sebuah penamaan pada suatu program,
- · ENVIRONMENT DIVISION. Berfungsi untuk memberi suatu informasi tentang peralatan yang akan di pergunakan dalam suatu program.
- · DATA DIVISION yang berfungsi untuk memberikan variabel variabel dan tipe data yang di pergunankan pada program, pada data division terdiri dari , file section – working-storage section-report section – screen section linkage section dilakukan pengartian pada identification division.
- · WORKING-STORAGE SECTION memiliki arti perintah mendeklarasikan variabel data
- · 77 nama pic A(20) 77 NPM pic 9(8) 77 kelas pic x(5 ) 77 uts pic 9(3) 77 uas pic 9(3) 77 hasil pic 9(3)
- arti dari statmen “nama” yang memiliki alphabet (a) dengan panjang karakter 20. NPM memiliki nilai numeric(9) dengan panjang 3 angka. Begitu pula kelas uts,uas dan hasil.
- · SCREEN SECTION Berguna untuk membuat format layer baik untuk input maupun output serta juga berhubungan dengan perintah DISPLAY dan ACCEPT pada PROCEDURE DIVISION.
- · 01 CLS. 02 BLANK SCREEN. Perintah agar saat program diajalankan maka layar akan menjadi kosong/blank.
- · INPUTAN Menyatakan array MASUKAN yang menampung 1 data Alphanumeric dan 2 data numeric.
- · 02 LINE 4 COLUMN 8 VALUE ‘MASUKAN NAMA :’. Perintah untuk menampilkan ‘NAMA :’ pada baris ke-4 dan kolom ke-8.
- 02 COLUMN PLUS 1 PIC A(20) TO NAMA. Perintah untuk menambahkan 1 kolom dengan karakter A(Alphabet) dengan panjang 20 karakter pada variabel NAMA. NPM,UTS UAS sama caranya dengan ini.
.jpg){kind=link}