artikel kali ini saya akan membahas tentang sebuat program cobol berdimensi 1,
seperti ini lah contoh program dan outputnya..
A.
Tabel 1 Dimensi
1.
Listing Program
Untuk membuat program tabel 1 dimensi, yang pertama kali
harus dilakukan adalah membuka program IDECobol
pada windows 7 32-bit atau windows 8
64-bit yang sudah di install, kemudian ketikkan source code-nya seperti dibawah ini :
IDENTIFICATION DIVISION.
PROGRAM-ID. TABEL1.
AUTHOR. GILANG.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 n PIC 99.
01 tabel-nilai-siswa.
02 nilai-siswa PIC 99 OCCURS 10 TIMES.
SCREEN SECTION.
01 hapus-layar.
02 BLANK SCREEN.
PROCEDURE DIVISION.
PROGRAM-UTAMA.
PERFORM pemasukan-nilai-siswa
VARYING n FROM 1 BY 1 UNTIL n > 10
DISPLAY hapus-layar.
PERFORM tampilan-nilai-siswa
VARYING n FROM 1 BY 1 UNTIL n > 10
STOP RUN.
PEMASUKAN-NILAI-SISWA.
DISPLAY ( , )
"Nilai :".
ACCEPT ( , )
nilai-siswa (n).
DISPLAY SPACE. TAMPILAN-NILAI-SISWA.
DISPLAY ( , )
"Nilai ke", n ,
" : " nilai-siswa (n).
DISPLAY SPACE.
Setelah source code selesai ditulis/diketik kemudian file di save.
2.
Output
Untuk
meng-compile dan melihat output
program yang pertama dilakukan adalah mengistal aplikasi dosboox menjalankan
program DOSBOX seperti pada gambar
dibawah ini :
1.1 Compile
Program
1.2 Output (Hasil Eksekusi)
Tidak ada komentar:
Posting Komentar