CONTOH PROGRAM KONDISI PADA COBOL

CONTOH PROGRAM KONDISI PADA COBOL

Bagi kawan -kawan yang hendak mengetahui bagaimana contoh dari pada program kondisi sederhana pada cobol, berikut contohnya,
Isi program ini bebas di sebar luaskan karena author kerrich yang membuatnya langsung. Tanpa copy paste dari manapun juga, itu dissebabkan karena selama hampir 1 minggu semua contoh program yang berhasil di browse dari engine search di internet ketika dikomplai semuanya error tidak ada satupun contoh kondisi yang jalan, akhirnya author menggunakan logila sendiri dalam memecahkan masalah tersebut,
Jikalau nanti ada kesamaaan dari pada program ini, maka itu hanya kebetulan saja. Atau dapat menghubungi author kerrich di alamat e-mail erikgantengdanbaikhati@gmail.com , author dengan senang hati menerima kritik maupun pengaduan.

BERIKUT CONTOHNYA :
IDENTIFICATION DIVISION.
PROGRAM-ID. KELULUSAN.
AUTHOR. KERRICH.
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.
01 BERSIHKAN-LAYAR.
02 BLANK SCREEN.
PROCEDURE DIVISION.
MULAI.
DISPLAY BERSIHKAN-LAYAR.
DISPLAY (9, 9) “NAMA : “.
ACCEPT ( , ) NAMA.
DISPLAY (10, 9) “NILAI : “.
ACCEPT ( , ) NILAI.
IF NILAI < 70
MOVE "TIDAK LULUS" TO HASIL
ELSE
MOVE "LULUS" TO HASIL.
DISPLAY (13, 9) NAMA.
DISPLAY (14, 9)"ANDA " HASIL.
SELESAI.
STOP RUN.
Demikian contoh program ini author buat kiranya dapat bermanfaat bagi yang membutuhkan(khususnya adik-adik kelas),
Sekian terima kasih.
Nama : KERRICH WILLIAM JOHANNIS
Kelas : 2 KA 28
NPM : 11109222
Univer. : Gunadarma.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s