program lulus gagal pada COBOL

 

 

 

LOGIKA :

-          Identification division digunakan untuk mengenali identitas program yang dibuat seperti nama program, si pembuat program, tanggal dibuat, tanggal kompilasi, dan lainnya yang berhubungan dengan informasi pada si program.

-          Program id dan author adalah bagian dari identification  division, yang menjelaskan identitas  program yang dibuat.

-          Environment division berfungsi untuk menginformasikan mengenai keadaan computer dan alat alat yang digunakan. Misalkan kita ada perintah untuk mencetak, maka printer akan dideklarasikan pada baris ini.

-          Data divison adalah informasi mengenai bentuk dan jenis data apa saja yang dipergunakan pada program yang dibuat. Pada program ini saya menggunakan WORKING STORAGE SECTION yakni penggunaan penyimpanan pada program yang dibuat.

-          Variable 01 NILAI diisi dengan aturan statement 02 MID PIC 9(2) yang artinya adalah variable MID dengan picture editing 9 (angka) berdigit 2, begitu juga dengan variable FINAL PIC.

-          Variabel RATA2 menggunakan pic 99v99 yang artinya variabel ini memiliki tipe data angka hasil aritmatika dengan koma

-          Lalu variable 01 MHS diisi dengan aturan statement 02 NAMA PIC a(20) yang artinya variable NAMA memiliki 20 digit alphabet

-          Variable NPM diberi alphanumeric karna angka yang digunakan pada NPM tidak dipergunakan untuk perhitungan

-          Berbeda dengan variable rata2, rata2 out ini memiliki tipe data angka tetapi akan digunakan untuk perhitungan aritmatika dengan 2 angka didepan koma dan 2 angka dibelakang koma

-          Lalu pada screen section kita masukan 2 variabel yang akan dipanggil pada procedure division dan berisi 01 hapus layar, 01 layar input

-          Variabel 01 HAPUS LAYAR berisi perintah blank screen yakni menghapus layar dari program sebelumnya

-          Lalu pada variable layar input kita masukan perintah yang tidak lain adalah pengeditan pada output yang kita hasilkan dari procedure yang dibuat, contoh O2 LINE 2 COLUMN 5 VALUE ‘NAMA: ‘. Yang artinya pada line 2 kolom 5 diisi dengan tercetaknya NAMA: , lalu 02 COLUMN PLUS 1 PIC A(20) to NAMA. Yang artinya kolom ditambah 1 untuk nama yang bertipe data a(20). Begitu baris dan kolom yang lain sampai pada baris 8 kolom 5

-          Procedure division adalah blok yang berisi informasi yang memuat prosedur pemrosesan data yang datanya tampak pada data division atau biasa disebut blok pendeklarasian variable atau perintah perintah yang ingin kita inginkan.

-          Masuk pada procedure division, saya mulai dengan memunculkan blank screen agar layar menjadi bersih dari program yng dibuat sebelumnya dengan memanggil variable HAPUS LAYAR

-          Lalu saya mencetak layar input dan menerima dengan perintah ACCEPT

-          Pada blok seleksi, saya hitung  dengan perintah COMPUTE dan menyaring hasil dari hitungan pada variable rata2 dengan kondisi IF.

-          Jika BAIK, maka variable rata2 akan pindah ke variable rata2 out lalu menampilkan kata SELAMAT ANDA LULUS

-          Jika KURANG variable rata2 akan dipindah ke variable rata2 out lalu menampilkan MAAF ANDA TIDAK LULUS

-          Selesai, lalu STOP RUN untuk mengakhiri program yang dibuat