Program COBOL

Posted: Januari 10, 2011 in ALL NEWS

Contoh Program

IDENTIFICATION DIVISION.

PROGRAM-ID. KONDISI.

AUTHOR. ANISA.

ENVIRONMENT DIVISION.

DATA DIVISION.

WORKING-STORAGE SECTION.

01 MASUKAN.

02 NAMA PIC X(20).

02 NPM PIC 9(8).

02 UTS PIC 9(2).

02 UAS PIC 9(2).

02 TOTAL PIC 9(2).

02 HASILOUT PIC ZZZZ.

PROCEDURE DIVISION.

HITUNG.

DISPLAY(6, 20) ‘NAMA: ‘.

ACCEPT( , ) NAMA.

DISPLAY(7, 20) ‘NPM : ‘.

ACCEPT( , ) NPM.

DISPLAY(8, 20) ‘NILAI UTS : ‘.

ACCEPT( , ) UTS.

DISPLAY (9, 20) ‘NILAI UAS : ‘.

ACCEPT( , ) UAS.

COMPUTE TOTAL = ( UTS + UAS ) / 2.

MOVE TOTAL TO HASILOUT.

DISPLAY (11, 20) ‘TOTAL :’ HASILOUT.

STOP RUN.

 

Logika Program

Program di atas dibuat untuk mengetahui nilai total dari gabungan antara nilai UTS dan nilai UAS.jika program dijalankan pertama yang dilakukan adalah input nama,kemudian input NPM,lalu nilai UTS,dan terakhir input nilai UAS,setelah di ENTER maka akan keluar nilai total dari nilai UTS dan nilai UAS.Rumus yang digunakan untuk mencari nilai total pada program di atas adalah (nilai UTS + nilai UAS )/2.

Dalam pembuatan program pada cobol harus diperharikan 4 Divsi yang harus ada ,diantaranya IDENTIFICATION DIVISION, NVIRONMENT DIVISION,DATA DIVISION,PROCEDURE DIVISION.Ada beberapa statement yang digunakan pada program di atas,accept,move.

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s