Disini saya akan membuat sebuah program menu yang berisikan biodata
mahasiswa, program until, dan hasil nilai UTS dan UAS anda menggunakan aplikasi
COBOL, pertama pastikan anda mempunyai aplikasi COBOL. Bagi yang tidak punya
bisa di download di internet secara gratis. Baiklah, pertama masukan codingan
di notepad seperti gambar dibawah ini:
Logika/codingan
pada gambar diatas yang dimaksud adalah:
IDENTIFICATION DIVISION :Buat kita ngasih judul program sama nama programnya
PROGRAM-ID. MENU. : Nama programnya / tipe
program adalah menu
ENVIRONMENT DIVISION :
Untuk kita supaya tersambung dengan output programnya
DATA DIVISION. : Tempat
kita menentukan variabel dan tipe datanya
WORKING-STORAGE SEC. :
Bagian dari DATA DIVISION.
01 dan 02 adalah untuk leven numbernya dan ada A(20)
adalah memasukan karakter kurang dari 20, dan 9(8) adalah memasukkan angka
numerik sebanyak 8x.
Maksud codingan diatas adalah Display untuk
menampilkan saat program running yaitu ada Biodata, Segitia 1, Nilai, Dan Exit.
Dan accept pil adalah untuk menerima laporan dan memutuskan programnya
dijalankan dengan variable PIL, dan ACCEPT L adalah untuk membatasi / mempause
untuk tidak menghilangkan cetakan outputan.
Maksud codingan diatas adalah (8,1) adalah baris ke 8
kolom ke 1, dan itu berlaku untuk seterusnya, dan CETAK=HASIL adalah untuk
mencetak yang sudah kita masukkan saat program running.
Pada menu kedua ini akan mengeluarkan output masukan
banyaknya perulangan. Varabel N adalah untuk meyimpan nilai yang kita inputkan. Maksud
codingan diatas adalah Display ( , )
adalah untuk Mencetak inputan dari data N dengan berupa angka, lalu
diterima oleh ACCEPT N bahwa data tersebut benar adanya. Perform Cetak adalah
untuk menampilkan / mencetak saat
program berjalan. Codingan selanjutnya ada VARYING I FROM 1 BY 1 UNTUL I > N adalah untuk di
perform cetak, setelah kondisi ada varying i dari 1 dan sebagainya biasa, i itu
nilai pertama, atau kelipatan satu. i lebih kecil dari n dan terus berjalan,
sampai ouput habis. Lalu ada codingan
AFTER
J FROM 1 BY 1 UNTIL J > I yaitu untuk
j dari kelipatan 1 sampai dengan 1 dengan J lebih dari I.
Maksud codingan diatas adalah seperti sebelumnya (8,1)
maksudnya adalah baris ke 8 kolom ke 1 dan itu berlaku seterusnya, dan NAMA
ANDA : ‘, ACCEPT KELAS. Maksudnya adalah pada saat program input nanti kita
disuruh massukkan nama dan nanti akan di terima oleh program, dan itu berlaku
dengan kelas, npm, nilai uts, dan nilai uas. Compute hasil = (UTS*0.7) +
(UAS*0.3) maksudnya adalah hasil UTS dan UAS yang sudah anda masukkan pada saat
running program akan dikalikan 0.7 untuk UTS dan 0.3 untuk UAS dan hasilnya
akan ditambahkan .
Kalau sudah mengikuti cara seperti diatas maka langsung saja kita
merunning program dan hasilnya akan seperti gambar dibawah ini:
Tidak ada komentar:
Posting Komentar