pas buka-buka file semester 3 ketemu file program tugas buat program pascal, dari pada hilang gak berguna mending saya bagi ilmunya siapa tau bermanfaat.
silahkan copy codingannya tapi jika ada kesalahan eror koreksi yah
itu disengaja buat jadi bahan pelajaran OKE.
******************************************************************
* Author:
* Date:
* Purpose:
* Tectonics: cobc
******************************************************************
IDENTIFICATION DIVISION.
*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
PROGRAM-ID. NPM.
ENVIRONMENT DIVISION.
*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
CONFIGURATION SECTION.
*-----------------------
INPUT-OUTPUT SECTION.
*-----------------------
DATA DIVISION.
*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
FILE SECTION.
*-----------------------
WORKING-STORAGE SECTION.
01 DATA-1.
02 NAMA pic A(30) OCCURS 5 TIMES.
02 NPM PIC Z99999999 OCCURS 5 TIMES.
01 counter.
02 Jumlah pic 9.
01 tanya pic x(1).
88 lagi value 'y','y'.
88 tidak VALUE 'b','b'.
88 lain VALUE 'g','g'.
*----------------------
PROCEDURE DIVISION.
*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
MAIN-PROCEDURE.
MULAI.
PERFORM VARYING Jumlah FROM 1 BY 1 UNTIL
Jumlah > 5
DISPLAY "+++++++++++++++++++++++++++++++++++++++++++".
DISPLAY "NAMA MAHASISWA1"Jumlah": "
ACCEPT NAMA(Jumlah)
DISPLAY "NPM MAHASISWA1 "Jumlah": "
ACCEPT NPM(Jumlah)
END-PERFORM
PERFORM VARYING Jumlah FROM 1 BY 1 UNTIL
Jumlah > 5
DISPLAY "~##########################################".
DISPLAY "NAMA : " NAMA(Jumlah)
DISPLAY "NPM : " NPM(Jumlah)
END-PERFOrm
Display SPACE
DISPLAY 'Input y untuk kembali pilih menu.'.
DISPLAY 'Input b untuk Input NPM.'.
ACCEPT tanya.
if lagi CALL 'YOUR-PROGRAM-NAME'
IF tidak GO TO mulai
ELSE GO TO SELESAI
selesai.
stop run
output program
No comments:
Post a Comment