Program Nilai Pada COBOL

MEMBUAT PROGRAM NILAI PADA COBOL

Pada laporan kali ini, kita akan membuat program dengan menampilkan nilai uts, uas, dan hasilnya. Berikut kodingan yang akan kita buat:

IDENTIFICATION DIVISION, untuk mengidentifikasi program yang kita buat.

PROGRAM-ID,  untuk pemberian nama program yang kita buat, disini kita memberi nama/judul OUTPUT.

AUTHOR, penulisnya yaitu Sintia

ENVIRONMENT DIVISION,  yaitu informasi peralatan apa yang digunakan pada program.

DATA DIVISION, pendeskripsian variabel-variabel dan jenis tipe data apa yang kita gunakan dalam program.

WORKING-STORAGE SECTION, untuk mendeklarasikan variable dan tipe data yang digunakan dalam program. Untuk pendeklarasiannya disini menggunakan level number 77, yaitu untuk mengawali data item yang berdiri sendiri, level number ini hanya boleh terdapat di working-storage section saja.

Pendeklarasian Nama menggunakan tipe data karakter, untuk NPM, UTS, UAS, dan Hasil menggunakan tipe data numeric, dan untuk Kelas menggunakan tipe data alphanumeric. Isi pada tanda “( )” adalah panjang karakter masing masing

SCREEN SECTION, berguna untuk mengatur tampilan di layar outputnya,

CLS dan BLANK SCREEN untuk membersihkan layar pada program.

INPUTAN ini untuk memberikan awalan pada record yang akan dibuat.

Line 3 Column 8 Value ‘MASUKKAN NAMA : ‘, yaitu pada layar output  kita akan memasukkan nama dengan outputnya berada di baris ke 3 kolom ke 8.

Column Plus 1 PIC A(20) to Nama, yaitu kita akan menginput nama di kolom +1 di baris yang sama.

PROCEDURE DIVISION, tempat untuk memulai statement yang akan kita buat.

Display INPUTAN, yaitu untuk menampilkan isi atau record dari “INPUTAN” pada output.

Accept INPUTAN, yaitu untuk menginput data pada isi atau record “INPUTAN”.

COMPUTE HASIL = (UTS * 0.7) + (UAS * 0.3), yaitu rumus untuk menentukan nilai hasil dari jumlah uts dan  uas.

Display (9.8) ‘HASIL :’,HASIL, yaitu mencetak hasil pada baris ke 9 kolom ke 8 pada output.

If Hasil > 60 Display (11,8) ‘Anda Lulus’. Yaitu jika hasil yang diperoleh lebih besar dari 60, maka akan mencetak ‘Anda Lulus’ pada baris ke 11 kolom ke 8.

If Hasil <50 Display (11,8) ‘Anda Gagal’. Yaitu jika hasil yang diperoleh lebih kecil dari 50, maka akan mencetak ‘Anda Gagal’ pada baris ke 11 kolom ke 8.

STOP RUN untuk menghentikan programnya

Jika sudah, buka Dosbox untuk menjalankan programnya. Ketik “cobol (nama_file).cob” yaitu nama file yang telah disimpan. Jika tidak ada yang error kita ketik “runcobol (nama_file).cob” untuk menjalankannya. Maka outputnya adalah seperti ini: