Contoh program cobol.
ini untuk menampilkan Nama dan Kelas, Programnya seprti ini:
IDENTIFICATION DIVISION.
AUTHOR. ADITYA_SETYADI.
ENVIRONMENT DIVISION.
DATA DIVISION.
01 NAMA PIC A(20).
01 KELAS PIC B(5).
PROCEDURE DIVISION.
MULAI.
DISPLAY “NAMA : “.
ACCEPT NAMA.
DISPLAY “KELAS : “.
ACCEPT KELAS.
SCREEN SECTION.
01 ACCEPT NAMA.
01 ACCEPT KELAS.
SELESAI.
STOP RUN.
Yang ini agak panjang, Program untuk menampilkan Bodata..
Identification Division.
Program-Id. Biodata.
Environment Division.
Data Division.
Working-Storage Section.
01 Biodata.
02 Nama Pic X(30).
02 Npm Pic X(8).
02 Kelas Pic X(5).
Screen Section.
01 Hapus.
02 Blank Screen.
01 Datamasuk.
02 line 9 column 10 value ‘Nama :’.
02 column plus 2 pic X(30) to Nama.
02 line 10 column 10 value ‘NPM :’.
02 column plus 2 pic X(8) to Npm.
02 line 11 column 10 value ‘Kelas :’.
02 column plus 2 pic X(5) to Kelas.
01 Hasil.
02 line 13 column 10 value ‘Nama Anda’.
02 column plus 2 pic X(30) from Nama.
02 line 14 column 10 vlue ‘NPM Anda’.
02 column plus 2 pic X(8) from Npm.
02 line 15 column 10 value ‘Kelas Anda’.
02 ccolumn plus 2 pic X(5) from Kelas.
Procedure Division.
Mulai.
Display Hapus.
Display Datamasuk.
Accept Datamasuk.
Display Hasil.
Selesai.
Stop Run.
Nah dan yang ini bagi yang udah master.
IDENTIFICATION DIVISION.
PROGRAM-ID. LEVEL-NUMBER.
AUTHOR. KELOMPOKMAMAN.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 DATA-MASUKAN.
02 NAMA PIC A(20).
02 GAJI.
03 GAJI-POKOK PIC 9(8).
03 TUNJANGAN PIC 9(8).
03 TOTAL-GAJI PIC Z(8).
01 TANYA PIC A.
88 LAGI VALUE IS 'Y', 'y'.
88 TIDAK VALUE IS 'T', 't'.
SCREEN SECTION.
01 HAPUS-LAYAR.
02 BLANK SCREEN.
PROCEDURE DIVISION.
MULAI.
MASUKKAN-DATA.
DISPLAY HAPUS-LAYAR.
DISPLAY (1,1)'NAMA ANDA :'.
ACCEPT NAMA.
DISPLAY (2,1) 'GAJI POKOK :Rp.'.
ACCEPT GAJI-POKOK.
DISPLAY (3,1) 'BESARNYA TUNJANGAN :Rp.'.
ACCEPT TUNJANGAN.
HITUNG-GAJI.
COMPUTE TOTAL-GAJI = GAJI-POKOK + TUNJANGAN.
CETAK-HASIL.
DISPLAY HAPUS-LAYAR.
DISPLAY'xxxxxxxx GAJI ANDA UNTUK BULAN INI xxxxxxxxx'.
DISPLAY ''.
DISPLAY 'NAMA :', NAMA.
DISPLAY 'GAJI POKOK :Rp.', GAJI-POKOK.
DISPLAY 'BESARNYA TUNJANGAN :Rp.', TUNJANGAN.
DISPLAY 'TOTAL GAJI :Rp.', TOTAL-GAJI.
TANYAKAN.
DISPLAY SPACE.
DISPLAY 'INGIN MENGHITUNG GAJI YANG LAIN (Y/T) ?'.
ACCEPT TANYA.
IF LAGI GO TO MASUKKAN-DATA.
SELESAI.
STOP RUN.
Selamat Mencoba yaaa... hahaha
0 Comment "Bahasa Cobol Bag 4"
Post a Comment