Share
everything
Kali
ini saya akan memberikan informasi tentang program sederhana pada program cobol. Program
sederhana ini mencari nilai rata-rata mahasiswa:
· SOURCE
CODE
IDENTIFICATION DIVISION.
PROGRAM-ID. NILAI.
AUTHOR. WIDODO.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 DATA-MASUK.
02 NAMA PIC A(15).
02 TGL PIC 99/99/9999.
02 NMD PIC 9(3) VALUE 0.
02 FIN PIC
9(3) VALUE 0.
02 NT PIC
9(3) VALUE 0.
01 DATA-HASIL.
02 NTO PIC 9(3) VALUE 0.
SCREEN SECTION.
01 HAPUS-LAYAR.
02 BLANK SCREEN.
01 LAYAR-TAMPILAN.
02 LINE 3 COLUMN 22 VALUE
'-----------------------'.
02 LINE 4 COLUMN 26 VALUE 'NILAI
MAHASISWA'.
02 LINE 5 COLUMN 22 VALUE
'-----------------------'.
02 LINE 6 COLUMN 20 VALUE 'NAMA : '.
02 COLUMN PLUS 1 PIC A(15) TO NAMA.
02 LINE 7 COLUMN 20 VALUE 'TANGGAL
LAHIR : '.
02 COLUMN PLUS 1 PIC 99/99/9999 TO
TGL.
02 LINE 8 COLUMN 20 VALUE 'NILAI
MID : '.
02 COLUMN PLUS 1 PIC 9(3) TO NMD.
02 LINE 9 COLUMN 20 VALUE 'NILAI
FINAL : '.
02 COLUMN PLUS 1 PIC 9(3) TO FIN.
01 LAYAR-TAMPIL.
02 LINE 10 COLUMN 20 VALUE
'TOTAL : '.
02 COLUMN PLUS 1 PIC 9(3) FROM NTO.
PROCEDURE DIVISION.
MULAI.
DISPLAY HAPUS-LAYAR.
DISPLAY LAYAR-TAMPILAN.
ACCEPT LAYAR-TAMPILAN.
HITUNG.
ADD NMD , FIN GIVING NT.
DIVIDE NT BY 2 GIVING NTO.
DISPLAY LAYAR-TAMPIL.
SELESAI.
STOP RUN.
· OUTPUT
PROGRAM
Semoga program ini dapat bermanfaat bagi pengguna program cobol, khususnya bagi pemula yang ingin belajar membuat program sederhana...
selamat mencoba.....
Share everything
will be back again next time...
Tidak ada komentar:
Posting Komentar