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. 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.'.
DISPLAY '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
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-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.".
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.
selesai.
STOP RUN.
** add other procedures here
END PROGRAM Penentu-Masehi-Hijryah-2014.
Outputnya
No comments:
Post a Comment