Contoh Program COBOL (Menghitung Nilai UAS dan UTS)

Contoh Program COBOL (Menghitung Nilai UAS dan UTS)

Diposting oleh Rizky Rachmad F     

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.