Laporan Akhir Cobol 2

Cobol

COBOL (Common Business Oriented Language) adalah bahasa komputer tingkat tinggi/high level language. Dimana program tersebut dapat mudah dipelajari karena sudah berbahasa sama dengan programmer.

Pada pertemuan kedua kali ini saya akan membuat sebuah Laporan Akhir tentang INPUTAN langsung pada WORKING-STORAGE SECTION adalah tempat untuk mendeklarasikan sebuah variabel dan tipe data yang diperlukan dalam program yang akan dibuat.

Langkah pertama saya akan buka program NotePad++ untuk membuat rangkaian Program COBOL terlebih dahulu . Setelah itu masukkan IDENTIFICATION DIVISION untuk memulai Programnya. Kemudian Masukkan PROGRAM-ID untuk memberikan nama pada Program yang dibuat dengan Title Author nama Pembuat program. Masukkan struktur ENVIRONMENT DIVISION untuk memberikan informasi peralatan yang akan digunakan program. Lalu berikutnya struktur DATA DIVISION untuk mendeskripsikan variabel-variabel yang akan digunakan. Barulah Masukkan Struktur WORKING-STORAGE yang akan saya buat disini saya memerlukan dengan Variabel 77 untuk menandakan variabel tersebut Independent ;

NAMA tipe data Alfabet 20 char

NPM tipe data Numerik 8 char

Kelas tipe data AlfaNumerik 5 char

UTS tipe data Numerik 3 char

UAS tipe data Numerik 3char

HASIL tipe data Numerik 3 char

Seperti Gambar Berikut ;

Berikutnya saya setelah kita buat rangkaian pada Gambar pertama. Saya akan membuat INPUTAN dari tipe data yang telah saya buat sebelumnya yang harus diperlukan pertama SCREEN SECTION lalu Variabel 01 sebagai awal dari Record “CLS” Variabel 02 Perintah dengan “Blank Screen” untuk Membersihkan Layar. Berikutnya kita buat Record Baru 01 INPUTAN, setelah itu saya membuat isi record 02 LINE 4 COLUMN 8’NAMA :’. Dengan ditambah kan isi record tersebut sebagai tipedata Alfanumerik 20 char dimasukkan kedalam Variabel NAMA yang telah saya buat didalem WORKING STORAGE, begitu juga dengan NPM pada line 5 ,KELAS pada line 6, UTS pada line 7 dan UAS pada line 8 . Perhatikan Gambar Berikut ;

Setelah saya buat semua INPUTAN yang diperlukan , berikutnya saya akan membuat sebuah HASIL nilai dari Inputan UAS dan UTS yang akan dijumlahkan menjadi HASIL dengan Rumusan UTS*0.7 + UAS*0.3.

Buat sebuah PROCEDURE DIVISION untuk inti dari program yang akan kita buat dengan berbagi Instruksi statement. Pertama saya akan menampilkan record CLS dan INPUTAN yang telah dibuat kemudian Accept INPUTAN untuk menerima record INPUTAN , lalu saya akan menghitung nilai HASIL dengan COMPUTE statement perintah untuk menghitung kemudian saya akan menampilkan HASIL pada baris ke 9 kolom ke 8.

Untuk Tambahan saya membuat dimana jika nilai HASIL lebih dari 60 maka tampil pada baris ke 10 kolom 8 akan LULUS jika tidak lebih dari 60 maka TIDAK LULUS. Seperti Gambar Berikut ;