MEMBUAT BIODATA DAN GABUNGAN NILAI UAS DAN UTS MENGGUNAKAN PROGRAM COBOL

-IDENTIFICATION DIVISION.

merupakan divisi yang pertama dalam program COBOL dan yang paling sederhana. Pada divisi ini berisi keterangan mengenai program yang dibuat.

-PROGRAM-ID. A.

Untuk memberitahu bahwa pogram di namakan A.

-ENVIRONMENT DIVISION.

Berisi dokumentasi informasi mengenai peralatan yang dipergunakan didalam program.

 -DATA DIVISION.

Divisi dalam program yang berisi data-data

-WORKING-STORAGE SECTION

Bagian atau penyimpanan data pada bagian ini

-77 NAMA PIC A(20).

77 yaitu special number yang berdiri sendiri/independent , NAMA yaitu nama variabelnya  pic a yaitu variabel yang berbasis alphabet dengan maksimal 20 data

-77 NPM PIC X(8).

77 yaitu special number yang berdiri sendiri/independent , NPM yaitu nama variabelnya  pic X yaitu variabel yang berbasis alphanumeric dengan maksimal 8 data

-77 KELAS PIC X(5).

77 yaitu special number yang berdiri sendiri/independent , KELAS yaitu nama variabelnya  pic X yaitu variabel yang berbasis alphanumeric dengan maksimal 5 data

-77 UTS PIC 9(2).

77 yaitu special number yang berdiri sendiri/independent , UTS yaitu nama variabelnya m pic 9 yaitu variabel yang berbasis numeric dengan maksimal 2 data

-77 UAS PIC 9(2).

77 yaitu special number yang berdiri sendiri/independent , UAS yaitu nama variabelnya m pic 9 yaitu variabel yang berbasis numeric dengan maksimal 2 data

-77 HASIL PIC 9(2).

77 yaitu special number yang berdiri sendiri/independent , HASIL yaitu nama variabelnya m pic 9 yaitu variabel yang berbasis numeric dengan maksimal 2 data

-SCREEN SECTION

Bagian dari layar pada saat program di jalankan

-01 CLS.

01 yaitu special number dan cls tersebut yaitu clear screen digunakan untuk membersihkan layar

-02 BLANK SCREEN.

02 yaitu special number dan blank screen tersebut akan di gunakan untuk blank atau kosong pada layar

-01 INPUTAN.

01 yaitu special number dan inputan yaitu nama statement yang di gunakan.

-02 LINE 4 COLUMN 8 VALUE 'MASUKAN NAMA  : '.

02 yaitu special number , pada baris 4 kolom 8 yang berisi , cetak ‘masukan nama :’

-02 COLUMN PLUS 1 PIC A(20) TO NAMA.

02 spesial number , kolom di tambah satu dan pic a to variabel nama

-02 LINE 5 COLUMN 8 VALUE 'MASUKAN NPM   : '.

02 yaitu special number , pada baris 5 kolom 8 yang berisi , cetak ‘masukan npm :’

-02 COLUMN PLUS 1 PIC X(8) TO NPM.

02 spesial number , kolom di tambah satu dan pic x to variabel npm

-02 LINE 6 COLUMN 8 VALUE 'MASUKAN KELAS : '.

02 yaitu special number , pada baris 5 kolom 8 yang berisi , cetak ‘masukan kelas :’

-02 COLUMN PLUS 1 PIC X(5) TO KELAS.

02 spesial number , kolom di tambah satu dan pic x to variabel kelas

-02 LINE 7 COLUMN 8 VALUE 'NILAI UTS     : '.

02 yaitu special number , pada baris 7 kolom 8 yang berisi , cetak ‘nilai uts :’

-02 COLUMN PLUS 1 PIC 9(2) TO UTS.

02 spesial number , kolom di tambah satu dan pic 9 to variabel uts

-02 LINE 8 COLUMN 8 VALUE 'NILAI UAS     : '.

02 yaitu special number , pada baris 8 kolom 8 yang berisi , cetak ‘nilai uas :’

-02 COLUMN PLUS 1 PIC 9(2) TO UAS.    

02 spesial number , kolom di tambah satu dan pic 9 to variabel uas                          

-PROCEDURE DIVISION.

Bagian atau jalannya program satu persatu secara terurut

-DISPLAY CLS

Tampilkan cls

DISPLAY INPUTAN.

-tampilkan inputan

ACCEPT INPUTAN.

Terima/masukan inputan

COMPUTE HASIL = (UTS * 0.7) + (UAS * 0.3).

-compute di gunakan untuk proses peritungan

DISPLAY (13, 8) 'HASIL = ' HASIL.

-tampilkan pada bari 13 kolom 8 “hasil yaitu variabel hasil’

-IF HASIL > 80

Jika hasil lebih besar dari 80 maka

-DISPLAY (14, 8) 'LULUS'

Tampilkan pada baris 14 kolom 8 cetak ‘LULUS’.

-ELSE

Jika tidak maka

DISPLAY (14, 8) 'TIDAK LULUS'.

Tampilkan pada baris 14 kolom 8 cetak ‘ TIDAK LULUS’.

-STOP RUN.

Berhenti program

Jika programnya sudah dio buat , sekarang kita compiler dengan masuk kedalam folder cobol .

Dengan compile cobol hello.cob. hello.,cob yaitu nama file yang akan kita compile

Pada saat ini kita hanya enter enter saja

Jika selesai enter nanti terlihat program yang kita tulis tadi ada yang eror pada line berapa dan apa saja yang eror. Tetepi terkadang eror terjadi karna ada bug pada program

 Setelah di compile baru kita run file hello.cob dengan runcob hello.cob

Hasil ouputnya akan seperti gambar di atas