Search for Knowledge
“A mistake is a signal that it is time to learn something new, something you didn’t know before.”

Contoh Program Cobol

1. Jelaskan tentang statement kondisi pada cobol

2. Buat contoh program cobol menggunakan kondisi

3. Perbaiki list code berikut dan tampilkan outputnya

1. Statement Kondisi(Conditional Statement) adalah sesuatu statement yang dipergunakan untuk menyeleksi suatu kondisi syarat dan akan mengerjakan suatu operasi tergantung dari nilai dan kondisinya.

2. PROGRAM KELULUSAN Menggunakan statement Kondisi

IDENTIFICATION DIVISION.
PROGRAM-ID. KELULUSAN.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 MHS.
02 NAMA PIC A(20).
02 NILAI PIC 99 VALUE 0.
02 HASIL PIC X(20).
SCREEN SECTION.
PROCEDURE DIVISION.
MULAI.
DISPLAY ‘NAMA : ‘.
ACCEPT NAMA.
DISPLAY ‘NILAI : ‘.
ACCEPT NILAI.
IF NILAI < 70
MOVE “TIDAK LULUS” TO HASIL
ELSE
MOVE “LULUS” TO HASIL.
DISPLAY NAMA.
DISPLAY’ANDA’ HASIL.
SELESAI.
STOP RUN.

3. PROGRAM KODE KAMPUS

IDENTIFICATION DIVISION.

PROGRAM-ID. KODE KAMPUS.

ENVIRONMENT DIVISION.

DATA DIVISION.

WORKING-STORAGE SECTION.

77 Jawab PIC A(5).

PROCEDURE DIVISION.

TANYA.

DISPLAY”MASUKKAN KODE HURUF (d,e,j,k)?”.

ACCEPT Jawab.

Seleksi-Jawab.

IF Jawab = “d” go to kode-d.

IF Jawab = “e” go to kode-e.

IF Jawab = “j” go to kode-j.

IF Jawab = “k” go to kode-k.

kode-d.

DISPLAY “KAMPUS DEPOK”.

go to selesai.

kode-e.

DISPLAY “KAMPUS KELAPA 2”.

go to selesai.

kode-j.

DISPLAY “KAMPUS KALIMALANG”.

go to selesai.

kode-k.

DISPLAY “KAMPUS KEMANG”.

go to selesai.

SELESAI.

STOP RUN.

Output :
(jika diinput d)

MASUKKAN KODE HURUF (d,e,j,k) ?
d

KAMPUS DEPOK

(jika diinput e)

MASUKKAN KODE HURUF (d,e,j,k) ?
e

KAMPUS KELAPA 2

(jika diinput j)

MASUKKAN KODE HURUF (d,e,j,k) ?
j

KAMPUS KALIMALANG

(jika diinput k)

MASUKKAN KODE HURUF (d,e,j,k) ?
k

KAMPUS KEMANG