Masuk ke program
cobol dengan cara masuk ke folder cobol melalui command promt lalu bila sudah
masuk ke folder cobol ketik edit lat2.cob untuk mencreate cobol lat2
Jika sudah muncul
seperti kotak di atas maka ketikan kode program seperti di bawah ini, dengan
menspasi 8 x terlebih dahulu
Keterangan
:
IDENTIFICATION
DIVISION. Berfungsi untuk memberikan informasi mengenai program
yang dibuat.
PROGRAM-ID.
INPUT. Berfungsi untuk memberi nama sebuah program yang akan
dibuat.
AUTHOR.
NASHCHAN. Berfungsi untuk memberi nama pembuat program/programmer.
YANG WAJIB DI TULIS DI
IDENTIFICATION DIVISION ADALAH IDENTIFICATION DIVISION dan PROGRAM-ID.
ENVIRONMENT
DIVISION. Berfungsi untuk memberikan informasi peralatan yang di
gunakan dalam program.
DATA DIVISION. Berfungsi
untuk memberikan penjelasan tentang input data dan output yang di pergunakan.
Isi dari divisi ini adalah semua keterangan tentang file, record, nama-data,
serta bentuk format yang akan digunakan di Procedure Division.
WORKING – STORAGE SECTION. Berfungsi
untuk Sifatnya optional, ada bilamana
diperlukan pemesanan tempat di internal memori yang diperlukan oleh pekerjaan
proses program.
01 MHS. Befungsi
untuk mengawali keterangan dari record yang akan di buat dan keterangannya MHS.
02 NAMA PIC A(20). Berfungsi
untuk mengawali keterangan dari data item.
02 NPM PIC X(8). Berfungsi
untuk mengawali keterangan dari data item.
02 KELAS PIC X(5). Berfungsi
untuk mengawali keterangan dari data item.
02 UTS PIC 99. Berfungsi
untuk mengawali keterangan dari data item.
02 UAS PIC 99. Berfungsi
untuk mengawali keterangan dari data item.
02 NILAI PIC 99. Berfungsi
untuk mengawali keterangan dari data item.
Keterangan
: A(20) Punya arti tipe data yang akan di input nanti berupa huruf dan
memiliki panjang 20 karakter.
X(8)/X(5) Punya arti tipe data yang
digunakana yang akan di input nanti berupa angka dan memiliki panjang 8/5
karakter.
99 Punya
arti tipe data yang di gunakan nantinya akan di kalkulasikan dan memilik
panjang 9 karakter.
SCREEN SECTION. Berfungsi
untuk menunjukkan bentuk format dari layar terminal untuk menampilkan data atau
memasukkan data.
01 HAPUS. Befungsi
untuk mengawali keterangan dari record yang akan di buat dan keterangannya
HAPUS.
BLANK SCRREN. Berfungsi
untuk membersihkan layar dan menempatkan kursor pada baris1, kolom1 pada posisi
kiri atas.
PROCEDURE
DIVISION. Berfungsi untuk tempat menaruh instruksi-instruksi dimana
dilakukan prosedur pekerjaan proses dari input data menjadi output data.
MULAI.
Berfungsi
untuk perintah memulai instruksi – instruksi oleh programmer.
DISPLAY
HAPUS. Berfungsi untuk menampilkan hasil di layar.
DISPLAY(9
, 9)”MASUKKAN NAMA :”. Berfungsi untuk menampilkan MASUKKAN NAMA
: di baris 9 kolom 9 di layar.
ACCEPT(
, )NAMA. Berfungsi untuk memasukan data NAMA : ke layar saat
program di jalan kan,
DISPLAY(10
, 9)”MASUKKAN NPM :”. Berfungsi untuk menampilkan MASUKKAN NPM
: di baris 10 kolom 9 di layar.
ACCEPT(
, )NPM. Berfungsi untuk memasukan data NPM : ke layar saat
program di jalan kan,
DISPLAY(11
, 9)” MASUKKAN KELAS :”. Berfungsi untuk menampilkan MASUKKAN
KELAS : di baris 11 kolom 9 di layar.
ACCPET(
, )KELAS. Berfungsi untuk memasukan data KELAS : ke layar saat
program di jalan kan,
DISPLAY(12
, 9)” MASUKKAN NILAI UTS :”. Berfungsi untuk menampilkan
MASUKKAN NILAI UTS : di baris 12 kolom 9 di layar.
ACCEPT(
, )UTS. Berfungsi untuk memasukan data UTS : ke layar saat
program di jalan kan,
DISPLAY(13
, 9)” MASUKKAN NILAI UAS :”. Berfungsi untuk menampilkan
MASUKKAN NILAI UAS : di baris 13 kolom 9 di layar.
ACCEPT(
, )UAS. Berfungsi untuk memasukan data UAS : ke layar saat
program di jalan kan,
COMPUTE
NILAI = (UTS *0.7) + (UAS *0.3). Berfungsi untuk mengkalkulasi
sebuah nilai disini kita akan mengkalkulasi nilai dengan cara UTS di kalikan
dengan 0,7 ditambahkan dengan UAS dikalikan 0,3 desimal harus pake titik (.)
DISPLAY(15
, 9)”NAMA SAYA :”NAMA. Berfungsi untuk menampilkan NAMA SAYA :
pada baris 15 kolom 9 di layar dan kemudian memamnggil ACCEPT( , ) NAMA di
samping NAMA SAYA :.
DISPLAY(16
, 9)”NPM SAYA :”NPM. Berfungsi untuk menampilkan NPM SAYA : pada
baris 16 kolom 9 di layar dan kemudian memamnggil ACCEPT( , ) NPM di samping
NPM SAYA :.
DISPLAY(17
, 9)”KELAS SAYA :”KELAS. Berfungsi untuk menampilkan KELAS SAYA :
pada baris 17 kolom 9 di layar dan kemudian memamnggil ACCEPT( , ) KELAS di
samping KELAS SAYA :.
DISPLAY(18
, 9)”NILAI SAYA :”NILAI. Berfungsi untuk menampilkan NILAI SAYA :
pada baris 18 kolom 9 di layar dan kemudian memamnggil ACCEPT( , ) NILAI di
samping NILAI SAYA :.
STOP
RUN. Berfungsi untuk menghentikan program secara permanen.
Jika
sudah mengetik kode program seperti diatas, jalankan kode program tersebut
dengan langkah dibawah ini
-
Save file terlebih dahulu dengan cara klik
file lalu save jika sudah ikuti langkah berikutnya
Klik file lalu exit pada table diatas maka
muncul tabell seperti dibawah :
Lalu kita compiler
dahulu file yang tadi kita buat dengan cara ketik cobol lat2.cob dan tekan enter sebanyak 3x. seperti gambar di bawah :
Kemudian ketik runcobol lat2.cob untuk menjalankan
program seperti gambar di bawah jika masih errors periksa kembali kode program
yang di buat tadi dengan ccara edit
lat2.cob kemudian Ketik kembali runcobol
lat2.cob jika jalan akan muncul seperti table dibawah ini :
Program pun telah
jadi dan selesai.
Tidak ada komentar:
Posting Komentar