Menu Dalam Cobol ….


Lama Tidak Jumpa ….😆

sekarang mau bagi-bagi Ilmu lagi nih , Kita bermain Dengan Bahasa Pemrograman Cobol …. tentunya banyak tau dund bahasa Yang Super-Super Ribet ini , biasanya Bahasa Ini Di gunakan Computer AS400 ,Namun Sepertinya sudah jarang yang memakai As400 di karenakan sparepart yang sudah langka dan mahal …

Setelah Kita tau nih Tentang Computeryang menggunakan bahasa Pemrograman Cobol, yuuk belajar sedikit tentang Cobol ….😉

kali ini kita hanya membuat perhitungan Luas Menu persegi panjang dan Luas Segitiga, Namun Supaya Asik Kita bikin ke dalam Menu… Nah Source Code nya Boleh di Ambil dhe di bawah .. :mr green:

IDENTIFICATION DIVISON.
PROGRAM-ID. TES.
ENVIRONMENT DIVISON.
DATA DIVISON.
WORKING-STORAGE SECTION.
77 PILIH PIC 9.
77 ALAS PIC 9.
77 TINGGI PIC 9.
77 PANJANG PIC 9.
77 LEBAR PIC 9.
77 G PIC ZZ.99.
77 H PIC ZZ.99.
SCREEN SECTION.
01HAPUS-LAYAR.
02BLANK SCREEN.
PROCEDURE DIVISON.
MENU.
DISPLAY HAPUS-LAYAR.
DISPLAY’|=========MENU=============|’.
DISPLAY’|1.LUAS SEGITIGA           |’.
DISPLAY’|2.LUAS PERSEGI PANJANG    |’.
DISPLAY’|3.KELUAR                  |’.
DISPLAY’|==========================|’.
DISPLAY’MASUKKAN PILIHAN :’.
ACCEPT PILIH.
SELEKSI.
IF PILIH= 1 GO TO SEGITIGA.
IF PILIH= 2 GO TO PERSEGI.
IF PILIH= 3 GO TO SELESAI ELSE GO TO PERINGATAN.
SEGITIGA.
DISPLAY HAPUS-LAYAR.
DISPLAY”.
DISPLAY’|=================|’.
DISPLAY’|==LUAS SEGITIGA==|’.
DISPLAY’|=================|’.
DISPLAY”.
DISPLAY’ALAS:’.
ACCEPT ALAS.
DISPLAY’TINGGI:’.
ACCEPT TINGGI.
COMPUTE H =(ALAS*TINGGI)/2.
DISPLAY’|==============|’
DISPLAY’|LUAS SEGITIGA:|’.
DISPLAY’|HASILNYA : –>|’H.
DISPLAY’|==============|’.
DISPLAY”.
DISPLAY”.
STOP’Tekan Enter untuk lanjut…..’.
GO TO MENU.
PERSEGI.
DISPLAY HAPUS-LAYAR.
DISPLAY”.
Display’|==================|’.
DISPLAY’|==LUAS P.PANJANG==|’.
DISPLAY’|==================|’.
DISPLAY”.
DISPLAY’PANJANG:’.
ACCEPT PANJANG.
DISPLAY’LEBAR:’.
ACCEPT LEBAR.
COMPUTE G=PANJANG*LEBAR.
DISPLAY’|===============|’
DISPLAY’|LUAS P.PANJANG:|’.
DISPLAY’|HASILNYA:–>   |’G.
DISPLAY’|===============|
DISPLAY”.
DISPLAY”.
STOP’Tekan Enter untuk lanjut…’.
GO TO MENU.
SELESAI.
STOP RUN.
PERINGATAN.
DISPLAY HAPUS-LAYAR.
DISPLAY’Pilihan di Luar batas !!!’.
DISPLAY”.
STOP’Tekan Enter untuk Lanjut…’.
GO TO MENU.

Setalah Di Ketiikan Smua code nya , Ini lah Tamilan Output nya …

Inilah Sedikit Ilmu yang bisa di berikan … Selamat Merncoba Ya Teman-Teman😉

About FajarRizkiansyah

Tuhan Pasti Tau apa yang kita lakukan untuk kebeneran pasti ada jalan yang terbaik .......
Gallery | This entry was posted in bacaaan and tagged . Bookmark the permalink.

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