Kamis, 29 September 2011

PROGRAM COBOL SEDERHANA

Ini merupakan contoh listing program cobol yang sederhana untuk menghitung luas segitiga. Semoga dapat membantu teman-teman yang sedang mempelajari bahasa pemrograman cobol.

IDENTIFICATION DIVISION.
AUTHOR. ANTONIO.
PROGRAM-ID. LUAS SEGITIGA.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 MASUKAN-DATA.
02 NAMA PIC A(25).
02 NPM PIC 9(8).
02 KELAS PIC X(5).
02 AS PIC 9(3).
02 TS PIC 9(3).
02 LS PIC 9(9).
02 LUAS PIC Z(5).
SCREEN SECTION.
01 HAPUS-LAYAR.
02 BLANK SCREEN.
01 LAYAR-PEMBUKA.
02 LINE 5 COLUMN 5 VALUE ' NAMA :'.
02 COLUMN PLUS 1 PIC A(25) TO NAMA.
02 LINE 7 COLUMN 5 VALUE ' NPM :'.
02 COLUMN PLUS 1 PIC 9(8) TO NPM.
02 LINE 9 COLUMN 5 VALUE ' KELAS :'.
02 COLUMN PLUS 1 PIC X(5) TO KELAS.
01 PERHITUNGAN-SEGITIGA.
02 LINE 3 COLUMN 5 VALUE 'PROGRAM 3'.
02 LINE 5 COLUMN 5 VALUE ' ALAS SEGITIGA :'.
02 COLUMN PLUS 1 PIC 9(3) TO AS.
02 LINE 7 COLUMN 5 VALUE ' TINGGI SEGITIGA :'.
02 COLUMN PLUS 1 PIC 9(3) TO TS.
PROCEDURE DIVISION.
MULAI.
DISPLAY LAYAR-PEMBUKA.
ACCEPT LAYAR-PEMBUKA.
DISPLAY HAPUS-LAYAR.
DISPLAY PERHITUNGAN-SEGITIGA.
ACCEPT PERHITUNGAN-SEGITIGA.
COMPUTE LS = AS * TS / 2.
MOVE LS TO LUAS.
DISPLAY ( 20 , 5 )'LUAS-SEGITIGA :'.
DISPLAY LUAS.
SELESAI.
STOP RUN.

Tidak ada komentar:

Posting Komentar