Selasa, 06 November 2012

PROGRAM SEDERHANA PADA COBOL


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