Contoh Program COBOL (Menghitung Nilai UAS dan UTS)

Saya akan menjelaskan program sederhana pada COBOL, yaitu menghitung nilai UAS dan UTS pada cobol. Dan langsung saja saya akan menjelaskannya di bawah ini :

MENGHITUNG NILAI UAS DAN UTS

Inilah codingan nya :

Dan selanjutnya saya akan menjelaskan logika kodingannya di bawah ini :

IDENTIFICATION DIVISION. : Yaitu sebuah divisi yang pertama, berfungsi untuk memberikan keterangan pada program yang akan kita buat,

PROGRAM-ID. FUNGSI. : yaitu sebuah judul data pada program yang akan dibuat.

AUTHOR. MSR. :  yaitu menunjukkan bahwa penulis data diatas adalah MSR.

ENVIRONTMENT DIVISION. : Yaitu divisi yang kedua, berfungsi untuk memberikan sebuah dokumentasi informasi mengenai peralatan yang akan kita digunakan.

DATA DIVISION. : Yaitu berfungsi untuk memberikan semua keterangan record dan juga memberikan bentuk format yang digunakan pada procedure division.

WORKING-STORAGE DIVISION. : Yaitu merupakan section pada data division,

01 UTS PIC 9(3). : Yaitu menunjukkan sebuah judul awal yang akan kita buat, dan 9 merupakan output program yang menampilkan pada baris ke-9.
01 UAS PIC 9(3). : Yaitu merupakan sebuah level number 1 yang digunakan, jika pemrograman membutuhkan catatan dan angka 9 tersebut merupakan output program yang akan menampilkan pada baris ke-9.

01 HASIL PIC 9(3). : Yaitu output program dari nilai UAS dan UTS, angka 9 tersebut merupakan output program yang akan menampilkan pada baris ke-9.

SCREEN SECTION. : Yaitu merupakan section pada sebuah data division,

01 HAPUS. Dan 02 BLANK SCREEN. : Yaitu level number yang berfungsi untuk  membersihkan layar pada COBOL,

PROCEDURE DIVISION. : Yaitu yang berisi semua instruksi-instruksi yang kita tulis tadi,

MULAI. : Yaitu berfungsi untuk memulai suatu divisi atau memproses data yang akan kita tampilkan,

DISPLAY HAPUS. : Yaitu Untuk membersihkan pada layar,
DISPLAY ( , ) ‘MASUKKAN NILAI UTS  : ‘. : Yaitu  berfungsi untuk data yang akan kita tampilkan pada output program nya dan memasukkan data angka nilai UTS,

ACCEPT  UTS. : Untuk menyetujui display data sebelumnya, yaitu data pada MASSUKAN NILAI UTS,
DISPLAY ( , ) ‘MASUKKAN NILAI UAS : ‘. : Yaitu  berfungsi untuk data yang akan kita tampilkan pada output program nya dan memasukkan data angka nilai UAS,

ACCEPT UAS. : Untuk menyetujui display data sebelumnya, yaitu data pada MASSUKAN NILAI UAS,

HITUNG. Dan COMPUTE HASIL = ( UTS * 70 / 100 ) + ( UAS * 30 / 100 ) : Yaitu yang akan menampilkan rumus fungsinya, dan rumus fungsi compute yang digunakan untuk menghitung hasil dari data nilai UTS dan UAS yang tadi kita masukkan.

Seleksi. Dan DISPLAY HASIL. : Yaitu untuk menampilkan hasil dari nilai UTS dan nilai UAS ketika program kita running.

IF HASIL > 70. : Yaitu Merupakan sebuah program data IF yang berfungsi untuk meng-input nilai dari UTS dan nilai UAS yang hasilnya lebih dari 70,

DISPLAY ( 8 , 6 ) ‘LULUS’. : Yaitu yang menampilkan data IF diatas (IF HASIL >70) pada running program cobol diakhir pada baris 8 kolom 6 dan akan menampilkan LULUS.

IF HASIL < 70. Yaitu Merupakan sebuah program data IF yang berfungsi untuk meng-input nilai dari UTS dan nilai UAS yang hasilnya kurang dari 70,
DISPLAY ( 8 , 6 ) ‘TIDAK LULUS’. :  Yaitu yang menampilkan data IF diatas (IF HASIL <70 6="6" 8="8" akan="akan" baris="baris" cobol="cobol" dan="dan" diakhir="diakhir" kolom="kolom" lulus.="lulus." menampilkan="menampilkan" pada="pada" program="program" running="running" span="span" tidak="tidak">

SELESAI. : Yaitu mengakhiri program.

STOP RUN. : Yaitu mengakhiri seluruh program data dari data diatas yang telah kita buat.