Program Membuat Tabel Nilai
Program menggunakan fungsi ICCURS tau membuat percabangan, pada suatu filed menggunakan fungsi 77 sebagai level number yang konstan, menggunakan arrai 3 dimensi menggunakan variabel i,j,k
IDENTIFICATION DIVISION.
PROGRAM-ID. UJIAN.
AUTHOR. JURAEIS.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 DATA-MHS.
02 NAMA OCCURS 5 TIMES PIC A(20).
02 DATA-NILAI OCCURS 5 TIMES.
03 MAT-KUL-KE OCCURS 3 TIMES.
04 NILAI OCCURS 2 TIMES PIC 999.
02 NILAI-TOTAL PIC 999 OCCURS 5 TIMES.
01 NAMA-MAT-KUL-X.
02 MAT-KUL-1 PIC A(6) VALUE 'PHP'.
02 MAT-KUL-2 PIC A(6) VALUE 'MYSQL'.
02 MAT-KUL-3 PIC A(6) VALUE 'AJAX'.
01 MAT-KUL REDEFINES NAMA-MAT-KUL-X.
02 NAMA-MAT-KUL OCCURS 3 TIMES PIC A(6).
77 NILAI-RATA PIC 999.
77 NILAI-RATA-OUT PIC ZZ9.
77 PREDIKAT PIC A(11).
77 I PIC 9.
77 J PIC 9.
77 K PIC 9.
SCREEN SECTION.
01 HAPUS-LAYAR.
02 BLANK SCREEN.
PROCEDURE DIVISION.
MULAI.
DISPLAY HAPUS-LAYAR.
PERFORM NILAI-AWAL-TOTAL VARYING I
FROM 1 BY 1 UNTIL I > 5
PERFORM MASUKAN-DATA-NAMA VARYING I
FROM 1 BY 1 UNTIL I > 5
DISPLAY SPACE
PERFORM MASUKAN-DATA-NILAI VARYING I
FROM 1 BY 1 UNTIL I > 5
AFTER J FROM 1 BY 1 UNTIL J > 3
AFTER K FROM 1 BY 1 UNTIL K > 2
PERFORM CETAK-JDL.
PERFORM CETAK-HSL VARYING I
FROM 1 BY 1 UNTIL I > 5.
SELESAI.
STOP RUN.
NILAI-AWAL-TOTAL.
MOVE 0 TO NILAI-TOTAL (1).
MASUKAN-DATA-NAMA.
DISPLAY 'PESERTA KE-' I 'NAMANYA ?'.
ACCEPT NAMA(I).
MASUKAN-DATA-NILAI.
DISPLAY 'PESERTA KE-' I 'NAMA:' NAMA (I)' MATA KULIAH: '
NAMA-MAT-KUL (J) ' UJIAN KE- ' K ' NILAI ? '
ACCEPT NILAI ( I , J , K ).
COMPUTE NILAI-TOTAL (I) = NILAI-TOTAL (I) + NILAI( I , J , K ).
CETAK-JDL.
DISPLAY HAPUS-LAYAR
DISPLAY 'DAFTAR PREDIKAT PESERTA UJIAN'.
DISPLAY SPACE
DISPLAY '==========================================='
DISPLAY 'NAMA NILAI PREDIKAT'
DISPLAY ' RATA-RATA '
DISPLAY '==========================================='.
CETAK-HSL.
COMPUTE NILAI-RATA = NILAI-TOTAL (I) / 6.
IF NILAI-RATA > 65
MOVE 'LULUS' TO PREDIKAT
ELSE
MOVE 'TIDAK LULUS' TO PREDIKAT.
MOVE NILAI-RATA TO NILAI-RATA-OUT.
DISPLAY NAMA (I) , NILAI-RATA-OUT PREDIKAT.
jujur program belum berjalan dengan sempurna masih terdapat kesalaha pada line ke-50 akhir-akhir program tinggal dibenerin gan klo masih sempet asah terus logika pemrogramannya gan biar makin yahuddddd.........
jangan cuma kopas doangkan tapi kembangkan GO Open Source......
masih banyak software-software launcing forum niii gan ,,,kunjungin dihttp://www.cyberatorium.org. "Buat apa yang mahal yang Gratis banyak dan bebas lincensi bwat dikembangkan"