LOOPING pada COBOL

Penjelasanya sama seperti program sebelumnya, “IDENTIFICATION DIVISION” itu digunakan untuk identitas pada sebuah program, biasanya pada identitas program berisikan tentang judul atau nama program yang akan dibuat, nama si pembuat program, tanggal pembuatan program dan lain sebagainya. Penulisannya selalu ditulis pada baris 1 dan kolom 8.

“DATA DIVISION” digunakan untuk mengetahui gambaran jenis dan bentuk inputan serta hasil outputnya. “WORKING-STORAGE SECTION” ini digunakan untuk mendeklarasikan sebuah variabel yang akan digunakan, serta berisikan record-record yang menyimpan beberapa field. “77” adalah level number yang digunakan untuk mengawali data item yang berdiri sendiri.

“SCREEN SECTION” berfungsi sebagai format layar pada output. Pada gambar dibawah ini terlihat bahwa “SCREEN SECTION” terdiri dari 2 record, yaitu “01 HAPUS-LAYAR” untuk membersihkan layar output, dan “01 INPUTAN” untuk menentukan jenis inputan apa yang akan ditampilkan pada layar output.

“02 LINE 6 COLUMN 6 VALUE ‘MASUKKAN NAMA : ’.” tulisan tersebut akan menampilkan hasil output pada baris ke 6 dan kolm ke 6. “02 COLUMN PLUS 2 PIC X(30) TO NAMA.” Ddigunakan untuk memberikan jarak space sebanyak 2 kolom dan akan memanggil variabel nama.

“02 LINE 7 COLUMN 6 VALUE ‘MASUKKAN NPM : ’.” akan menampilkan pada baris ke 7 dan kolom ke 6. “02 COLUMN PLUS 2 PIC X(8) TO NPM.” Ddigunakan untuk memberikan jarak space sebanyak 2 kolom dan akan memanggil variabel npm.

“02 LINE 8 COLUMN 6 VALUE ‘MASUKKAN KELAS : ’.” akan menampilkan pada baris ke 8 dan kolom ke 6 . “02 COLUMN PLUS 2 PIC X(30) TO KELAS.” Ddigunakan untuk memberikan jarak space sebanyak 2 kolom dan akan memanggil variabel kelas.

“PROCEDURE DIVISION” digunakan untuk proses pada program dan akan menentukan apa saja yang akan ditampilkan pada layar output. “DISPLAY INPUTAN.” Digunakan untuk menampilkan inputan data pada record “INPUTAN” yang ada pada “SCREEN SECTION”. “ACCEPT INPUTAN” untuk memanggil record inputan. “PERFORM CETAK LOOP TIMES” digunakan untuk looping atau mengulang inputan yang akan di looping. “CETAK” untuk mendeklarasikan tampilan apa saja yang akan dijadikan output.

Gambar dibawah ini adalah outputnya:

               

                                                                   1                                                                                        2

Kondisi IF-THEN-ELSE pada COBOL

NILAI HITUNG

Pada awal pembuatan program yang pertama harus dituliskan adalah “IDENTIFICATION DIVISION” diletakan pada kolom ke 8 dan diakhiri dengan tanda titik (.) dan berfungsi untuk identitas sebuah program. Penulisan “PROGRAM-ID. FUNGSI.” ditulis sebagai sebuah judul program. “AUTHOR” dituliskan untuk memberikan nama si pembuat programnya. “ENVIRONMENT DIVISION” ditulis untuk mengetahui keadaan komputer yang sedang dipakai. “DATA DIVISION” digunakan untuk menggambarkan jenis dan bentuk inputan serta hasil outputnya. “WORKING-STORAGE SECTION” dituliskan untuk mendeklarasikan sebuah variable yang akan digunakan, berisikan tentang record yang menyimpan beberapa field. “SCREEN SECTION” ditulis untuk menentukan format layar pada output. Dan bentuk codingannya seperti gambar dibawah ini:

“PROCEDURE DIVISION” ditulis sebagai proses bagaimana program yang dibuat akan berjalan dan hasil dari outputnya pun sudah disusun dalamnya. “MULAI” ditulis untuk memulai sebuah program. “DISPAY HAPUS” digunakan untuk mengapus atau membersihkan layar outputnya. “DISPLAY ( 5, 5)” digunakan untuk menampilkan hasil output pada baris ke 5 dan kolom ke 5. “ACCEPT” digunakan untuk memanggil sebuah variabel. Setiap diakhir penulisan program selalu diakhiri dengan tanda titik.

Program “HITUNG” ini juga ditulis dalam “PROCEDURE DIVISION”, untuk menuliskan rumus perhitungan dalam sebuah program cobol, selalu menggunakan “COMPUTE”.

“IF HASIL < 100 AND HASIL > 85” artinya , jika hasil kurang dari 100 dan lebih dari 85 maka akan mendapatkan “GRADE A” dan “ISTIMEWA”. “IF HASIL < 85 AND HASIL > 65” artinya , jika hasil kurang dari 85 dan lebih dari 65 maka akan mendapatkan “GRADE B” dan “BAIK”.

       

1                                                                                     2

“IF HASIL < 65 AND HASIL > 45” artinya , jika hasil kurang dari 65 dan lebih dari 45 maka akan mendapatkan “GRADE C” dan “CUKUP”. “IF HASIL < 45 AND HASIL > 25” artinya , jika hasil kurang dari 45 dan lebih dari 25 maka akan mendapatkan “GRADE D” dan “BURUK”.

    

                                                                    3                                                                                            4

“IF HASIL < 25” artinya , jika hasil kurang dari 25 maka akan mendapatkan “GRADE E” dan “BURUK BANGET” seperti yang ada pada gambar dibawah ini:.

5

Contoh Program C++

Contoh Program Sederhana

Pertama tuliskan “#include<iostream.h>” sebagai pre processor yang akan digunakan, dan juga s /tuliskan “#include<conio.h>” untuk penggunaan fungsi “clrscr” (c6eanscreen) dan fungsi “getch” diakhir penulisan program.

“char nama[20];” ini adalah sebuah variable nama yang bertipe data karate dan inputan tidak boleh lebih dari 20 karakter. “int TL, u” ini adalah variable “TL” untuk tahun lahir dan variable “u” untuk umur yang bertipe data integer. “cout<<” digunakan untuk mencetak inputan pada layar output. “cin>> digunakan untuk menerima inputan atau memanggil variable yang akan kita gunakan.

“u = 2013 – TL” ini maksudnya adalah proses untuk mengetahui berapa umur kita di tahun 2013, dengan menggunakan operator aritmatika (pengurangan). Penulisan “<<nama<<” digunakan untuk memanggil inputan pada variable nama yang sudah diinput sebelumnya. Dan penulisan “<<u<<” digunakan untuk menginput hasil dari variable “u” umur yang sudah diproses sebelumnya.
ini adalah outputnya:

Contoh Program LOOPING

Contoh Program LOOPING pada COBOL
“IDENTIFICATION DIVISION” itu digunakan untuk identitas pada sebuah program, biasanya pada identitas program berisikan tentang judul atau nama program yang akan dibuat, nama si pembuat program, tanggal pembuatan program dan lain sebagainya. Penulisannya selalu ditulis pada baris 1 dan kolom 8. “DATA DIVISION” digunakan untuk mengetahui gambaran jenis dan bentuk inputan serta hasil outputnya. “WORKING-STORAGE SECTION” ini digunakan untuk mendeklarasikan sebuah variabel yang akan digunakan, serta berisikan record-record yang menyimpan beberapa field. “77” adalah level number yang digunakan untuk mengawali data item yang berdiri sendiri.

“SCREEN SECTION” berfungsi sebagai format layar pada output. Pada gambar dibawah ini terlihat bahwa “SCREEN SECTION” terdiri dari 2 record, yaitu “01 HAPUS-LAYAR” untuk membersihkan layar output, dan “01 INPUTAN” untuk menentukan jenis inputan apa yang akan ditampilkan pada layar output. 

“02 LINE 6 COLUMN 6 VALUE ‘MASUKKAN NAMA : ’.” tulisan tersebut akan menampilkan hasil output pada baris ke 6 dan kolm ke 6. “02 COLUMN PLUS 2 PIC X(30) TO NAMA.” Ddigunakan untuk memberikan jarak space sebanyak 2 kolom dan akan memanggil variabel nama.

“02 LINE 7 COLUMN 6 VALUE ‘MASUKKAN NPM : ’.” akan menampilkan pada baris ke 7 dan kolom ke 6. “02 COLUMN PLUS 2 PIC X(8) TO NPM.” Ddigunakan untuk memberikan jarak space sebanyak 2 kolom dan akan memanggil variabel npm.

“02 LINE 8 COLUMN 6 VALUE ‘MASUKKAN KELAS : ’.” akan menampilkan pada baris ke 8 dan kolom ke 6 . “02 COLUMN PLUS 2 PIC X(30) TO KELAS.” Ddigunakan untuk memberikan jarak space sebanyak 2 kolom dan akan memanggil variabel kelas.

“PROCEDURE DIVISION” digunakan untuk proses pada program dan akan menentukan apa saja yang akan ditampilkan pada layar output. “DISPLAY INPUTAN.” Digunakan untuk menampilkan variabel pada record “INPUTAN” yang ada pada “SCREEN SECTION”. “ACCEPT INPUTAN” untuk memanggil record inputan. “PERFORM CETAK LOOP TIMES” digunakan untuk looping atau mengulang inputan yang akan di looping. “CETAK” untuk mendeklarasikan tampilan apa saja yang akan dijadikan output.

Gambar dibawah ini adalah outputnya: