Contoh Laporan Akhir Menu pada COBOL

77 I pic 9.

77 J pic 9.

77 N pic 9.

Pada line 77 maksudnya adalah mengawali item yang berdiri sendiri dan bertipe data numerik.

Untuk mendeklarasikan variabel yang akan kita pakai pada program ini.

Menu adalah nama programnya. Lalu DISPLAY terdapat 1. Biodata, 2. Nilai Akhir, 3. Perulangan, 4. Exit itu adalah menu yang dapat dipilih dengan cara memasukkan angka dari 1 – 4 dengan menggunakan Accept PIL. GO TO berguna untuk berpindah ke bagian yang diinginkan dari 1 – 4, jika kita memilih menu yang tidak ada di program tersebut maka akan muncul tulisan “Maaf, pilihan tidak tersedia”.

Nomer 1. pilihan untuk pengisian biodata yang berisikan Nama, NPM dan Kelas.

Pada MEN1

Display berfungsi untuk menampilkan, perintahnya sama seperti print. Accept berfungsi untuk membaca variabel dan menyimpannya untuk ditampilkan.

Nomer 2. Pilihan untuk pengisian nilai akhir

Pada MEN2

Display berfungsi untuk menampilkan, perintahnya sama seperti print. Accept berfungsi untuk membaca variabel dan menyimpan nya untuk ditampilkan. COMPUTE TOTAL = ( UTS * 0.7 ) + ( UAS * 0. 3 ) , berfungsi untuk menghitung total nilai dari hasil inputan nilai uts dan nilai uas. Nilai uts dikalikan dengan 0.7, dan nilai uas dikalikan dengan 0.3, lalu kedua hasil tersebut ditambahkan.

Output dari menu nomor 2 berupa nilai uts, nilai uas, dan nilai akhir yang sudah di hitung. Dan juga ditampilkan grade sesuai dengan nilai yang dimasukkan. Jika nilai diantara 100 – 90, grade A. nilai diantara 90 – 80 grade B. nilai diantara 80 -70 grade C. Jika nilai < 50, maka dinyatakan TIDAK LULUS.

Nomer 3. Pilihan untuk pengisian perulangan

Pada MEN3

Display berfungsi untuk menampilkan, perintahnya sama seperti print. Accept berfungsi untuk membaca variabel dan menyimpan nya untuk ditampilkan. Varrying I from 1 by 1 until I > N adalah perintah program untuk melakukan looping sebanyak N satu demi satu sampai dengan N.

After J From 1 by 1 until J > I untuk melakukan perulangan setelah J dari 1 by 1 sampai J lebih besar dari I. Cetak untuk mencetak “*”, jika J sama dengan I maka membuat garis baru.

TANYA
berfungsi untuk menanyakan apakah ingin melalukan pemilihan menu dan mengiput data kembali, atau tidak. Jika pilih Y, maka akan ditampilkan pilihan menu. Jika pilih T, maka program akan berhenti.

Nomer 4. Pilihan untuk berhenti/keluar dari program.

Pada MEN4

Display berfungsi untuk menampilkan, perintahnya sama seperti print. Stop Run untuk berhenti.

Setelah program sudah dibuat, sebelum menjalankannya, program harus di compile terlebih dahulu untuk mengetahui kesalahan / error yang terjadi pada program.