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. YOUR-PROGRAM-NAME.
ENVIRONMENT DIVISION.
*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
CONFIGURATION SECTION.
*-----------------------
INPUT-OUTPUT SECTION.
*-----------------------
DATA DIVISION.
*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
FILE SECTION.
*-----------------------
WORKING-STORAGE SECTION.
01 MENU-PILIHAN.
02 MENU-PROGRAM PIC 9.
01 tanya pic x(1).
88 lagi value 'y','y'.
88 tidak VLUE 'b','b'.
88 lain VALUE 'g','g'.
PROCEDUE DIVISION.
MAIN-PROCEDURE.
DISPLAY "=================menu pilihan====================".
DISPLAY "1. Harga Baju.".
DISPLAY "2. NPM.".
DISPLAY "3. Biodata Mahasiswa.".
DISPLAY "4. Menentukan Bulan Masehi dan Hijriyah.".
DISPLAY "5. Keluar.".
DISPLAY "=================================================".
DISPLAY SPACE
DISPLAY "PILIH MENU PROGRAM ANDA [1,2,3,4,5] ? "
WITH NO ADVANCING
ACCEPT MENU-PROGRAM.
EVALUATE MENU-PROGRAM
WHEN '1' CALL 'UBAH-TITIK'
when '2' CALL 'NPM'
WHEN '3' CALL 'BIODATA_MAHASISWA'
WHEN '4' CALL 'Penentu-Masehi-Hijryah-2014'
WHEN '5' Go TO SELESAI.
SELESAI.
STOP RUN.
** add other procedures here
END PROGRAM YOUR-PROGRAM-NAME.
IDENTIFICATION DIVISION.
*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
PROGRAM-ID. UBAH-TITIK.
ENVIRONMENT DIVISION.
*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
CONFIGURATION SECTION.
*-----------------------
INPUT-OUTPUT SECTION.
*-----------------------
DATA DIVISION.
*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
FILE SECTION.
*-----------------------
WORKING-STORAGE SECTION.
01 HARGA.
02 HARGA-BAJU PIC 99,999,999.
01 tanya pic x(1).
88 lagi value 'y','y'.
88 tidak VALUE 'b','b'.
88 lain VALUE 'g','g'.
*-----------------------
PROCEDURE DIVISION.
*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
MAIN-PROCEDURE.
**
* The main procedure of the program
**
mulai.
Display SPACE
DISPLAY 'masukan harga baju? : ' WITH NO ADVANCING
ACCEPT HARGA-BAJU.
Display SPACE
DISPLAY '===================================='.
DISPLAY 'ANDA MEMBAYAR 'HARGA-BAJU.
DISPLAY '===================================='.
Display SPACE
DISPLAY 'Input y untuk kembali pilih menu.'.
DISPLAY 'Input b untuk Harga Baju.'WITH NO ADVANCING
ACCEPT tanya.
if lagi CALL 'YOUR-PROGRAM-NAME'.
IF tidak GO TO mulai
ELSE GO TO SELESAI.
selesai.
STOP RUN.
** add other procedures here
END PROGRAM UBAH-TITIK.
******************************************************************
* 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.
** add other procedures here
END PROGRAM NPM.
******************************************************************
* Author:
* Date:
* Purpose:
* Tectonics: cobc
******************************************************************
IDENTIFICATION DIVISION.
*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
PROGRAM-ID. BIODATA_MAHASISWA.
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 TGL-LHR pic 99/99/99 OCCURS 5 TIMES.
02 NPM PIC Z99999999 OCCURS 5 TIMES.
02 KELAS pic X(6) OCCURS 5 TIMES.
02 IPK pic z9,99 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)
DISPLAY "TANGGAL LAHIR1 "Jumlah": "
ACCEPT TGL-LHR(Jumlah)
DISPLAY "KELAS "Jumlah": "
ACCEPT KELAS(Jumlah)
DISPLAY "IPK "Jumlah": "
ACCEPT IPK(Jumlah)
END-PERFORM
PERFORM VARYING Jumlah FROM 1 BY 1 UNTIL
Jumlah > 5
DISPLAY "~##########################################".
DISPLAY "NAMA : " NAMA(Jumlah)
DISPLAY "NPM : " NPM(Jumlah)
DISPLAY "TANGGAL LAHIR : " TGL-LHR(Jumlah)
DISPLAY "KELAS : " KELAS(Jumlah)
DISPLAY "IPK : " IPK(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.
** add other procedures here
END PROGRAM BIODATA_MAHASISWA.
* Author:
* Date:
* Purpose:
* Tectonics: cobc
******************************************************************
IDENTIFICATION DIVISION.
*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
PROGRAM-ID. Penentu-Masehi-Hijryah-2014.
ENVIRONMENT DIVISION.
*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
CONFIGURATION SECTION.
*-----------------------
INPUT-OUTPUT SECTION.
*-----------------------
DATA DIVISION.
*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
FILE SECTION.
*-----------------------
WORKING-STORAGE SECTION.
01 MASEHI.
02 BULAN PIC 99/99.
02 A PIC 9(2).
02 B PIC 9(2).
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.
DISPLAY SPACE
DISPLAY "MASUKKAN BULAN ANDA " WITH NO ADVANCING
ACCEPT BULAN.
UNSTRING BULAN
DELIMITED BY "/"
INTO
A,B
IF (A >= '01' AND < '03') AND (B = '01') GO TO KODE-A.
IF (A >= '03' AND A <= '31') AND B = '01' GO TO KODE-B.
IF (A = '01' OR A <= '28') AND B ='02' GO TO KODE-C.
IF (A >= '01' AND A <= '02') AND B = '03' GO TO KODE-D.
IF (A >= '03' AND A <= '31') AND B = '03' GO TO KODE-E.
IF (A >='01' AND A <= '30') AND B = '04' GO TO KODE-F.
IF (A >='01' AND A <= '29') AND B = '05' GO TO KODE-G.
IF A = '30' AND B = '05' GO TO KODE-H.
IF (A >= '01' AND A <= '28') AND B = '06' GO TO KODE-I.
IF (A >= '29' AND A<= '30') AND B = '06' GO TO KODE-J.
IF (A >= '01' AND A <= '27') AND B = '07' GO TO KODE-K.
IF (A >= '28' AND A <= '31') AND B = '07' GO TO KODE-L.
IF (A >='01' AND A <= '26') AND B = '08' GO TO KODE-M.
IF (A >= '27' AND A <= '31') AND B = '08' GO TO KODE-N.
IF (A >='01' AND A <= '25') AND B = '09' GO TO KODE-O.
IF (A >= '26' AND A <= '30') AND B = '09' GO TO KODE-P.
IF (A >='01' AND A <= '24') AND B = '10' GO TO KODE-Q.
IF (A >= '25' AND A <= '31') AND B = '10' GO TO KODE-R.
IF (A >='01' AND A <= '23') AND B = '11' GO TO KODE-S.
IF (A >= '24' AND A <= '30') AND B = '11' GO TO KODE-T.
IF (A >='01' AND A <= '22') AND B = '12' GO TO KODE-U.
IF (A >= '23' AND A <= '31') AND B = '12' GO TO KODE-V.
IF B >= '13' GO TO KODE-X.
KODE-X.
DISPLAY " ".
DISPLAY "==================================================".
DISPLAY "MAAF TANGGAL DAN BULAN YANG ANDA MASUKAN SALAH.".
DISPLAY "==================================================".
Display SPACE
DISPLAY 'Input y untuk kembali pilih menu.'.
DISPLAY 'Input b untuk pilih bulan.'.
ACCEPT tanya.
if lagi CALL 'YOUR-PROGRAM-NAME'.
IF tidak GO TO mulai
ELSE GO TO SELESAI.
KODE-A.
DISPLAY SPACE.
DISPLAY "==================================================".
DISPLAY " BULAN MASEHI ANDA JANUARY 2014.".
DISPLAY " BULAN HIJRIYAH ANDA SHOFARUL KHOIR 1435H.".
DISPLAY "==================================================".
Display SPACE
DISPLAY 'Input y untuk kembali pilih menu.'.
DISPLAY 'Input b untuk pilih bulan.'.
ACCEPT tanya.
if lagi CALL 'YOUR-PROGRAM-NAME'.
IF tidak GO TO mulai
ELSE GO TO SELESAI.
KODE-B.
DISPLAY " ".
DISPLAY "==================================================".
DISPLAY " BULAN MASEHI ANDA JANUARI 2014.".
DISPLAY " BULAN HIJRIYAH ANDA RABI'UL AWAL 1435H.".
DISPLAY "==================================================".
Display SPACE
DISPLAY 'Input y untuk kembali pilih menu.'.
DISPLAY 'Input b untuk pilih bulan.'.
ACCEPT tanya.
if lagi CALL 'YOUR-PROGRAM-NAME'.
IF tidak GO TO mulai
ELSE GO TO SELESAI.
KODE-C.
DISPLAY " ".
DISPLAY "==================================================".
DISPLAY "BULAN MASEHI ANDA FEBRUARI 2014.".
DISPLAY "BULAN HIJRIYAH ANDA RABIUL'AKHIR 1435H.".
DISPLAY "==================================================".
Display SPACE
DISPLAY 'Input y untuk kembali pilih menu.'.
DISPLAY 'Input b untuk pilih bulan.'.
ACCEPT tanya.
if lagi CALL 'YOUR-PROGRAM-NAME'.
IF tidak GO TO mulai
ELSE GO TO SELESAI.
KODE-D.
DISPLAY " ".
DISPLAY "==================================================".
DISPLAY "BULAN MASEHI ANDA MARET 2014.".
DISPLAY "BULAN HIJRIYAH ANDA RABI'UL AKHIR 1435H.".
DISPLAY "==================================================".
Display SPACE
DISPLAY 'Input y untuk kembali pilih menu.'.
DISPLAY 'Input b untuk pilih bulan.'.
ACCEPT tanya.
if lagi CALL 'YOUR-PROGRAM-NAME'.
IF tidak GO TO mulai
ELSE GO TO SELESAI.
KODE-E.
DISPLAY " ".
DISPLAY "==================================================".
DISPLAY "BULAN MASEHI ANDA MARET 2014."
DISPLAY "BULAN HIJRIYAH ANDA JUMADAL ULA 1435H."
DISPLAY "==================================================".
Display SPACE
DISPLAY 'Input y untuk kembali pilih menu.'.
DISPLAY 'Input b untuk pilih bulan.'.
ACCEPT tanya.
if lagi CALL 'YOUR-PROGRAM-NAME'.
IF tidak GO TO mulai
ELSE GO TO SELESAI.
KODE-F.
DISPLAY " ".
DISPLAY "==================================================".
DISPLAY "BULAN MASEHI ANDA APRIL 2014.".
DISPLAY "BULAN HIJRIYAH ANDA JUMADAL AKHIROH 1435H.".
DISPLAY "==================================================".
Display SPACE
DISPLAY 'Input y untuk kembali pilih menu.'.
DISPLAY 'Input b untuk pilih bulan.'.
ACCEPT tanya.
if lagi CALL 'YOUR-PROGRAM-NAME'.
IF tidak GO TO mulai
ELSE GO TO SELESAI.
KODE-G.
DISPLAY " ".
DISPLAY "==================================================".
DISPLAY "BULAN MASEHI ANDA MEI 2014.".
DISPLAY "BULAN HIJRIYAH ANDA ROJAB 1435H.".
DISPLAY "==================================================".
Display SPACE
DISPLAY 'Input y untuk kembali pilih menu.'.
DISPLAY 'Input b untuk pilih bulan.'.
ACCEPT tanya.
if lagi CALL 'YOUR-PROGRAM-NAME'.
IF tidak GO TO mulai
ELSE GO TO SELESAI.
KODE-H.
DISPLAY " ".
DISPLAY "==================================================".
DISPLAY "BULAN MASEHI ANDA MEI 2014.".
DISPLAY "BULAN HIJRIYAH ANDA SYA'BAN 1435H.".
DISPLAY "==================================================".
Display SPACE
DISPLAY 'Input y untuk kembali pilih menu.'.
DISPLAY 'Input b untuk pilih bulan.'.
ACCEPT tanya.
if lagi CALL 'YOUR-PROGRAM-NAME'.
IF tidak GO TO mulai
ELSE GO TO SELESAI.
KODE-I.
DISPLAY " ".
DISPLAY "==================================================".
DISPLAY "BULAN MASEHI ANDA JUNI 2014.".
DISPLAY "BULAN HIJRIYAH ANDA SYA'BAN 1435H.".
DISPLAY "==================================================".
Display SPACE
DISPLAY 'Input y untuk kembali pilih menu.'.
DISPLAY 'Input b untuk pilih bulan.'.
ACCEPT tanya.
if lagi CALL 'YOUR-PROGRAM-NAME'.
IF tidak GO TO mulai
ELSE GO TO SELESAI.
KODE-J.
DISPLAY " ".
DISPLAY "==================================================".
DISPLAY "BULAN MASEHI ANDA JUNI 2014.".
DISPLAY "BULAN HIJRIYAH ANDA RAMMADHAN 1435H.".
DISPLAY "==================================================".
Display SPACE
DISPLAY 'Input y untuk kembali pilih menu.'.
DISPLAY 'Input b untuk pilih bulan.'.
ACCEPT tanya.
if lagi CALL 'YOUR-PROGRAM-NAME'.
IF tidak GO TO mulai
ELSE GO TO SELESAI.
KODE-K.
DISPLAY " ".
DISPLAY "==================================================".
DISPLAY "BULAN MASEHI ANDA JULI 2014.".
DISPLAY "BULAN HIJRIYAH ANDA RAMMADHAN 1435H.".
DISPLAY "==================================================".
Display SPACE
DISPLAY 'Input y untuk kembali pilih menu.'.
DISPLAY 'Input b untuk pilih bulan.'.
ACCEPT tanya.
if lagi CALL 'YOUR-PROGRAM-NAME'.
IF tidak GO TO mulai
ELSE GO TO SELESAI.
KODE-L.
DISPLAY " ".
DISPLAY "==================================================".
DISPLAY "BULAN MASEHI ANDA JULI 2014.".
DISPLAY "BULAN HIJRIYAH ANDA SYAWAL 1435H.".
DISPLAY "==================================================".
Display SPACE
DISPLAY 'Input y untuk kembali pilih menu.'.
DISPLAY 'Input b untuk pilih bulan.'.
ACCEPT tanya.
if lagi CALL 'YOUR-PROGRAM-NAME'.
IF tidak GO TO mulai
ELSE GO TO SELESAI.
KODE-M.
DISPLAY " ".
DISPLAY "==================================================".
DISPLAY "BULAN MASEHI ANDA AGUSTUS 2014.".
DISPLAY "BULAN HIJRIYAH ANDA SYAWAL 1435H.".
DISPLAY "==================================================".
Display SPACE
DISPLAY 'Input y untuk kembali pilih menu.'.
DISPLAY 'Input b untuk pilih bulan.'.
ACCEPT tanya.
if lagi CALL 'YOUR-PROGRAM-NAME'.
IF tidak GO TO mulai
ELSE GO TO SELESAI.
KODE-N.
DISPLAY " ".
DISPLAY "==================================================".
DISPLAY "BULAN MASEHI ANDA AGUSTUS 2014.".
DISPLAY "BULAN HIJRIYAH ANDA DZUL QO'DAH 1435H.".
DISPLAY "==================================================".
Display SPACE
DISPLAY 'Input y untuk kembali pilih menu.'.
DISPLAY 'Input b untuk pilih bulan.'.
ACCEPT tanya.
if lagi CALL 'YOUR-PROGRAM-NAME'.
IF tidak GO TO mulai
ELSE GO TO SELESAI.
KODE-O.
DISPLAY " ".
DISPLAY "==================================================".
DISPLAY "BULAN MASEHI ANDA SEPTEMBER 2014.".
DISPLAY "BULAN HIJRIYAH ANDA DZUL QO'DAH 1435H.".
DISPLAY "==================================================".
Display SPACE
DISPLAY 'Input y untuk kembali pilih menu.'.
DISPLAY 'Input b untuk pilih bulan.'.
ACCEPT tanya.
if lagi CALL 'YOUR-PROGRAM-NAME'.
IF tidak GO TO mulai
ELSE GO TO SELESAI.
KODE-P.
DISPLAY " ".
DISPLAY "==================================================".
DISPLAY "BULAN MASEHI ANDA SEPTEMBER 2014.".
DISPLAY "BULAN HIJRIYAH ANDA DZULHIJJAH 1435H.".
DISPLAY "==================================================".
Display SPACE
DISPLAY 'Input y untuk kembali pilih menu.'.
DISPLAY 'Input b untuk pilih bulan.'.
ACCEPT tanya.
if lagi CALL 'YOUR-PROGRAM-NAME'.
IF tidak GO TO mulai
ELSE GO TO SELESAI.
KODE-Q.
DISPLAY " ".
DISPLAY "==================================================".
DISPLAY "BULAN MASEHI ANDA OKTOBER 2014.".
DISPLAY "BULAN HIJRIYAH ANDA DZULHIJJAH 1435H.".
DISPLAY "==================================================".
Display SPACE
DISPLAY 'Input y untuk kembali pilih menu.'.
DISPLAY 'Input b untuk pilih bulan.'.
ACCEPT tanya.
if lagi CALL 'YOUR-PROGRAM-NAME'.
IF tidak GO TO mulai
ELSE GO TO SELESAI.
KODE-R.
DISPLAY " ".
DISPLAY "==================================================".
DISPLAY "BULAN MASEHI ANDA OKTOBER 2014.".
DISPLAY "BULAN HIJRIYAH ANDA MUHARRAM 1436H.".
DISPLAY "==================================================".
Display SPACE
DISPLAY 'Input y untuk kembali pilih menu.'.
DISLAY 'Input b untuk pilih bulan.'.
ACCEPT tanya.
if lagi CALL 'YOUR-PROGRAM-NAME'.
IF tidak GO TO mulai
ELSE GO TO SELESAI.
KODE-S.
DISPLAY " ".
DISPLAY "==================================================".
DISPLAY "BULAN MASEHI ANDA NOPEMBER 2014.".
DISPLAY "BULAN HIJRIYAH ANDA MUHARRAM 1436H.".
DISPLAY "==================================================".
Display SPACE
DISPLAY 'Input y untuk kembali pilih menu.'.
DISPLAY 'Input b untuk pilih bulan.'.
ACCEPT tanya.
if lagi CALL 'YOUR-PROGRAM-NAME'.
IF tidak GO TO mulai
ELSE GO TO SELESAI.
KODE-T.
DISPLAY " ".
DISPLAY "==================================================".
DISPLAY "BULAN MASEHI ANDA NOPEMBER 2014.".
DISPLAY "BULAN HIJRIYAH ANDA SHOFARUL KHOIR 1436H.".
DISPLAY "==================================================".
Display SPACE
DISPAY 'Input y untuk kembali pilih menu.'.
DISPLAY 'Input b untuk pilih bulan.'.
ACCEPT tanya.
if lagi CALL 'YOUR-PROGRAM-NAME'.
IF tidak GO TO mulai
ELSE GO TO SELESAI.
KODE-U.
DISPLAY " ".
DISPLAY "==================================================".
DISPLAY "BULAN MASEHI ANDA DESEMBER 2014.".
DISPLAY "BULAN HIJRIYAH ANDA SHOFARUL KHOIR 1436H.".
DISPLAY "==================================================".
Display SPACE
DISPLAY 'Input y untuk kembali pilih menu.'.
DISPLAY 'Input b untuk pilih bulan.'.
ACCEPT tanya.
if lagi CALL 'YOUR-PROGRAM-NAME'.
IF tidak GO TO mulai
ELSE GO TO SELESAI.
KODE-V.
DISPLAY " ".
DISPLAY "==================================================".
DISPLAY "BULAN MASEHI ANDA DESEMBER 2014.".
DISPLAY "BULAN HIJRIYAH ANDA RABI'UL AWAL 1436H.".
DISPLY "==================================================".\
Display SPACE
DISPLAY 'Input y untuk kembali pilih menu.'.
DISPLAY 'Input b untuk pilih bulan.'.
ACCEPT tanya.
if lagi CALL 'YOUR-PROGRAM-NAME'.
IF tidak GO TO mulai
ELSE GO TO SELESAI.
selesai.
STOP RUN.
** add other procedures here
END PROGRAM Penentu-Masehi-Hijryah-2014.
output
No comments:
Post a Comment