IDENTIFICATION DIVISION.
PROGRAM-ID. TUGAS.
AUTHOR. COWO.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 MASUKAN.
02 NILAI1 PIC 99.
02 NILAI2 PIC 99.
02 HASIL PIC 99.
SCREEN SECTION.
01 HAPUS-LAYAR.
02 BLANK SCREEN.
01 INPUT-DATA.
02 LINE 4 COLUMN 28 VALUE '>>MASUKAN NILAI<<'.
02 LINE 5 COLUMN 26 VALUE '====================='.
02 LINE 6 COLUMN 30 VALUE 'NILAI A ='.
02 COLUMN PLUS 2 PIC 99 TO NILAI1.
02 LINE 7 COLUMN 30 VALUE 'NILAI B ='.
02 COLUMN PLUS 2 PIC 99 TO NILAI2.
02 LINE 8 COLUMN 26 VALUE '====================='.
01 LAYAR-TAMPIL.
02 LINE 9 COLUMN 30 VALUE 'HASIL ='.
02 COLUMN PLUS 2 PIC 99 FROM HASIL.
01 LULUS.
02 LINE 13 COLUMN 32 VALUE 'ANDA LULUS'.
01 TIDAK-LULUS.
02 LINE 13 COLUMN 29 VALUE 'ANDA TIDAK LULUS'.
PROCEDURE DIVISION.
MULAI.
DISPLAY HAPUS-LAYAR.
DISPLAY INPUT-DATA.
ACCEPT INPUT-DATA.
COMPUTE HASIL=(NILAI1 + NILAI2)/2.
DISPLAY LAYAR-TAMPIL.
SELEKSI.
IF HASIL =60
DISPLAY LULUS.
ACCEPT LULUS.
IF HASIL >60
DISPLAY LULUS.
ACCEPT LULUS.
IF HASIL <59
DISPLAY TIDAK-LULUS.
ACCEPT TIDAK-LULUS.
SELESAI.
STOP RUN.
Keteranagan:
SYARAT PROGRAM COBOL ADA 4 DIVISI.
1. IDENTIFICATION DIVISION.
DISINI BERISI TENTANG JUDUL PROGRAM YAITU PROGRAM –ID DAN PEMBUAT PROGRAM YAITU AUTHOR.
2. ENVIRONMENT DIVISION.
PADA PROGRAM DI ATAS ENVIRONMENT DIVISION TERDAPAT 1 SECTION YANG BERISI TENTANG KOMPONEN-KOMPONEN YANG DI PAKAI.
3. DATA DIVISION.
ADA DUA SECTION DI DALAMNYA CODINGAN DI ATAS,YAITU:
ADA DUA SECTION DI DALAMNYA CODINGAN DI ATAS,YAITU:
+ WORKING-STORAGE SECTION.
UNTUK MENDEKLARASIKAN VARIABLE DAN TIPE DATA YANG DI GUNAKAN.
CONTOH:
01 MASUKAN. : ADALAH RECORD.
02 NILAI1 PIC 9. : ADALAH KET. DARI RECORD YANG BERTIPE NUMERIC.
+ SCREEN SECTION.
ADALAH PROSES UNTUK FORMAT TAMPILAN PADA PROGRAM INI BAIK INPUT MAUPUN OUTPUT.
CONTOH :
01 HAPUS-LAYAR. :ADALAH LEVEL NUMBER NAMA LAYAR.
01 HAPUS-LAYAR. :ADALAH LEVEL NUMBER NAMA LAYAR.
02 BLANK SCREEN. : PERINTAH UNTUK MENGHAPUS LAYAR.
4. PROCEDURE DIVISION.
BERISI TENTANG SEMUA STATEMENT INTRUKSI DI BUAT.
CONTOH :
MULAI. : ADALAH NAMA INTRUKSI.
DISPLAY HAPUS-LAYAR : UNTUK SCREEN ATAU MEMBERSIHKAN LAYAR.
DISPLAY INPUT-DATA. :UNTUK MENJALANKAN RECORD INPUT-DATA.
ACCEPT INPUT-DATA. :UNTUK MENERIMA INPUTAN KETERANGAN RECORD
TERSEBUT
TERSEBUT
COMPUTE HASIL=(NILAI1 +NILAI2)/2.
COMPUTE ADALAH STATEMEN UNTUK PENGHITUNGAN.
KETERANGAN RECORD HASIL = (KET.REC. NILA1 + KET.REC. NILA2)/2.
DISPLAY LAYAR-TAMPIL :MENCETAK NAMA-LAYAR TERSEBUT.
SELEKSI. :NAMA INTRUKSI.
IF HASIL =60
DISPLAY LULUS.
ACCEPT LULUS.
IF HASIL >60
DISPLAY LULUS
ACCEPT ULUS.
IF HASIL <59
DISPLAY TIDAK-LULUS.
ACCEPT TIDAK-LULUS.
JIKA HASIL SAMA DENGAN 60 CETAK RECORD LULUS
JIKA HASIL LEBIH DARI 60 CETAK RECORD LULUS.
JIKA HASIL KURANG DARI 59 CETAK RECORD TIDAK-LULUS.
SELESAI. : NAMA INTRUKSI.
STOP RUN. : MENGAKHIRI PROGRAM.
0 komentar:
Posting Komentar