LA COBOL 3

PROGRAM WARNA I : “WARNA FOREGROUND AND BACKGROUND”

IDENTIFICATION DIVISION.

(Merupakan divisi pertama dari COBOL yang paling sederhana. Penulisan statement ini berada pada Line 1, Colom 8.)

        PROGRAM-ID. WARNA1.

(Merupakan identifikasi nama program. Penulisan statement ini berada pada Line 2, Colom 8.)

        ENVIRONMENT DIVISION.

(Merupakan divisi untuk menunjukkan suatu alat tertentu yang digunakan programmer. Penulisan statement ini berada pada Line 3, Colom 8.)

        DATA DIVISION.

(Menggambarkan bentuk dan jenis dari data input serta data outputnya. Penulisan statement ini   berada pada Line 4, Colom 8.)

SCREEN SECTION.

(Berguna untuk membuat format layer baik untuk input maupun output serta juga berhubungan dengan perintah DISPLAY dan ACCEPT pada PROCEDURE DIVISION. Penulisan statement ini berada pada Line 5, Colom 8.)

 01 CLS.

           02 BLANK SCREEN.

(Perintah agar saat program diajalankan maka layar akan menjadi kosong/blank. Penulisan statement ini berada pada Line 6, Colom 8 untuk 01 CLS. dan berada pada line 7, colom 12 untuk 02 BLANK SCREEN.)

01 WARNA-FOREGROUND.

(Menyatakan array WARNA-FOREGROUND. Penulisan statement ini berada pada Line 8, Colom 8.) 

        02 LINE 1 COLUMN 5

        FOREGROUND-COLOR 10

        'WARNA FOREGROUND'.

(Perintah untuk menampilkan ‘WARNA FOREGROUND’ pada baris ke-1 dan kolom ke-5, dengan foreground warna 10 (warna hijau, yang bisa dilihat pada hasil output.) Penulisan statement ini berada pada Line 9, Colom 12 untuk 02 LINE 1 COLUMN 5, Line 10, Colom 12 untuk FOREGROUND-COLOR10, dan Line 11, Colom 12 untuk 'WARNA FOREGROUND'.)

01 WARNA-BACKGROUND.

(Menyatakan array WARNA-BACKGROUND. Penulisan statement ini berada pada Line 12, Colom 8.)

02 LINE 3 COLUMN 5

FOREGROUND-COLOR 3 BACKGROUND-COLOR 9

'WARNA FOREGROUND DAN BACKGROUND'.

(Perintah untuk menampilkan ‘WARNA FOREGROUND DAN BACKGROUND’ pada baris ke-3 dan kolom ke-5, dengan foreground warna 3 dan background warna 9 (warna biru untuk kode 3 pada foreground dan warna hijau tua untuk kode 9 warna background, yang bisa dilihat pada hasil output.) Penulisan statement ini berada pada Line 13, Colom 12 untuk 02 LINE 3 COLUMN 5, Line 14, Colom 12 untuk FOREGROUND-COLOR 3 BACKGROUND-COLOR 9, dan Line 15, Colom 12 untuk 'WARNA FOREGROUND DAN BACKGROUND'.)

PROCEDURE DIVISION.

(Menggambarkan prosedur yang digunakan untuk menyelesaikkan permasalahan dalam bentuk dan jenis data yang ada pada DATA DIVISION. Penulisan statement ini berada pada Line 16, Colom 8.)

AWAL.

(Perintah untuk memulai program. Penulisan statement ini berada pada Line 17, Colom 8)

DISPLAY WARNA-FOREGROUND.

(Perintah untuk menampilkan dari WARNA-FOREGROUND. Penulisan statement ini berada pada Line 18, Colom 12.)

DISPLAY WARNA-BACKGROUND.

(Perintah untuk menampilkan dari WARNA-FOREGROUND. Penulisan statement ini berada pada Line 19, Colom 12)

STOP RUN.

         (Perintah untuk menghentikan program. Penulisan statement ini berada pada Line 20, Colom 8.)

EDIT COBOL :

COMPILE COBOL :

Jika pada saat di compile tidak terjadi errors maka langkah selanjutnya adalah run program tersebut sehingga menghasilkan output seperti pada gambar dibawah ini :

OUTPUT :

PROGRAM PERFORM I : “NILAI UTS DAN NILAI UAS”

IDENTIFICATION DIVISION.

(Merupakan divisi pertama dari COBOL yang paling sederhana. Penulisan statement ini berada pada Line 1, Colom 8.)

PROGRAM-ID. PERFORM1.

(Merupakan identifikasi nama program. Penulisan statement ini berada pada Line 2, Colom 8.)

ENVIRONMENT DIVISION.

(Merupakan divisi untuk menunjukkan suatu alat tertentu yang digunakan programmer. Penulisan statement ini berada pada Line 3, Colom 8.)

DATA DIVISION.

(Menggambarkan bentuk dan jenis dari data input serta data outputnya. Penulisan statement ini   berada pada Line 4, Colom 8.)

WORKING-STORAGE SECTION.

(Merupakan section yang digunakan untuk mendeklarasikan variabel dan tipe data yang digunakan dalam program COBOL. Penulisan statement ini berada pada Line 5, Colom 8.)

77 UTS PIC 9(3).

(Digunakan untuk menjelaskan bentuk data yang di masukkan, dan juga untuk menampilkan bentuk data output dari variabel UTS yang memiliki nilai Numeric (9) dengan panjang 3 angka. Penulisan statement ini berada pada Line 6, Colom 8.)

77 UAS PIC 9(3).

(Digunakan untuk menjelaskan bentuk data yang di masukkan, dan juga untuk menampilkan bentuk data output dari variabel UAS yang memiliki nilai Numeric (9) dengan panjang 3 angka. Penulisan statement ini berada pada Line 7, Colom 8.)

77 HASIL PIC 9(3).

(Digunakan untuk menjelaskan bentuk data yang di masukkan, dan juga untuk menampilkan bentuk data output dari variabel HASIL yang memiliki nilai Numeric (9) dengan panjang 3 angka. Penulisan statement ini berada pada Line 8, Colom 8.)

SCREEN SECTION.

(Berguna untuk membuat format layer baik untuk input maupun output serta juga berhubungan dengan perintah DISPLAY dan ACCEPT pada PROCEDURE DIVISION. Penulisan statement ini berada pada Line 9, Colom 8.)

01 CLS.

           02 BLANK SCREEN.

(Perintah agar saat program diajalankan maka layar akan menjadi kosong/blank. Penulisan statement ini berada pada Line 10, Colom 8 untuk 01 CLS. dan berada pada line 11, colom 12 untuk 02 BLANK SCREEN.)

01 INPUTAN.

(Menyatakan array INPUTAN yang menampung 2 data Numeric. Penulisan statement ini berada pada Line 12, Colom 8.)

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

(Perintah untuk menampilkan ‘NILAI UTS :’ pada baris ke-8 dan kolom ke-8. Penulisan statement ini berada pada Line 13, Colom 12.)

           02 COLUMN PLUS 1 PIC 9(3) TO UTS.

(Perintah untuk menambahkan 1 kolom dengan karakter 9(Numeric) dengan panjang 3 angka pada variabel UTS. Penulisan statement ini berada pada Line 14, Colom 12.)

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

(Perintah untuk menampilkan ‘NILAI UAS :’ pada baris ke-9 dan kolom ke-8. Penulisan statement ini berada pada Line 15, Colom 12.)

           02 COLUMN PLUS 1 PIC 9(3) TO UAS.

(Perintah untuk menambahkan 1 kolom dengan karakter 9(Numeric) dengan panjang 3 angka pada variabel UAS. Penulisan statement ini berada pada Line 16, Colom 12.)

PROCEDURE DIVISION.

(Menggambarkan prosedur yang digunakan untuk menyelesaikkan permasalahan dalam bentuk dan jenis data yang ada pada DATA DIVISION. Penulisan statement ini berada pada Line 17, Colom 8.)

MULAI.

(Perintah untuk memulai program. Penulisan statement ini berada pada Line 18, Colom 8)

           DISPLAY CLS.

(Perintah untuk menampilkan perintah CLS (kosongkan layar). Penulisan statement ini berada pada Line 19, Colom 12.)

           DISPLAY INPUTAN.

(Perintah untuk menampilkan data-data yang ada pada 01 INPUTAN. Penulisan statement ini berada pada Line 20, Colom 12.)

           ACCEPT INPUTAN.

(Perintah untuk menyimpan data yang telah di input pada 01 INPUTAN. Penulisan statement ini berada pada Line 21, Colom 12.)

           COMPUTE HASIL = (UTS * 0.5) + (UAS * 0.5).

(Perintah untuk menghitung HASIL data yang telah di input dan di simpan pada 01 INPUTAN. Penulisan statement ini berada pada Line 22, Colom 12.)

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

(Perintah untuk menampilkan ‘HASIL = ‘ pada baris ke-13 dan kolom 8 dengan membaca bentuk data HASIL yang telah di compute pada data yang telah di masukkan di 01 INPUTAN. Penulisan statement ini berada pada Line 23, Colom 12.)

           IF HASIL = 60

           DISPLAY (14, 8) 'CUKUP'.

(Merupakan bentuk kondisi yang jika hasil dari compute pada HASIL sama dengan 60 maka akan menampilkan informasi ‘CUKUP’ pada baris ke-14 dan kolom ke-8. Penulisan statemen ini berada pada Line 24, Colom 12 untuk IF HASIL = 60 dan Line 25, Colom 12 untuk DISPLAY (14, 8) 'CUKUP'.)

           IF HASIL < 60

           DISPLAY (14, 8) 'KURANG'

           ELSE

           DISPLAY (14, 8) 'BAIK'.

(Merupakan bentuk kondisi yang jika hasil dari compute pada HASIL kurang dari 60 maka akan menampilkan informasi ‘KURANG’ pada baris ke-14 dan kolom ke-8 dan Jika hasil dari compute pada HASIL tidak termasuk dalam 2 kategori bentuk kondisi IF HASIL = 60 atau IF HASIL < 60 maka akan menampilkan informasi ‘BAIK’ pada baris ke-14 dan kolom ke-8. Penulisan statemen ini berada pada Line 26, Colom 12 untuk IF HASIL < 60, Line 27, Colom 12 untuk DISPLAY (14, 8) 'KURANG', Line 28, Colom 12 untuk ELSE, dan Line 29, Colom 12 untuk DISPLAY (14, 8) 'BAIK’.)

           STOP RUN.

            (Perintah untuk menghentikan program. Penulisan statement ini berada pada Line 30, Colom 8.)

EDIT COBOL :

COMPILE COBOL :

Jika pada saat di compile tidak terjadi errors maka langkah selanjutnya adalah run program tersebut sehingga menghasilkan output seperti pada gambar dibawah ini :

OUTPUT :