Program Matriks dengan COBOL

Program Penjumlahan Matrik dimensi 2x2 :

IDENTIFICATION DIVISION.
PROGRAM-ID. MATRIK.
AUTHOR. NURFITRIANA.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 I PIC 99.
77 J PIC 99.
01 MASUKAN.
02 MATRIK OCCURS 2 TIMES.
03 MAT1 OCCURS 2 TIMES PIC 9.
03 MAT2 OCCURS 2 TIMES PIC 9.
03 MAT-HASIL OCCURS 2 TIMES PIC ZZZ.
SCREEN SECTION.
01 HAPUS-LAYAR.
02 BLANK SCREEN.
PROCEDURE DIVISION.
MULAI.
DISPLAY HAPUS-LAYAR.
MOVE 2 TO LIN.
DISPLAY(LIN, 1) 'MATRIK PERTAMA'.
ADD 1 TO LIN.
PERFORM MATRIK1 VARYING I
FROM 1 BY I UNTIL I > 2
AFTER J FROM 1 BY 1 UNTIL J > 2.
MOVE 1 TO LIN.
DISPLAY(LIN, 30) 'MATRIK KEDUA'.
ADD 1 TO LIN.
PERFORM MATRIK2 VARYING I
FROM 1 BY 1 UNTIL I > 2
AFTER J FROM 1 BY 1 UNTIL J > 2.
MOVE 1 TO LIN.
DISPLAY (10, 10) 'PENJUMLAHAN MATRIK'.
DISPLAY SPACE.
MOVE 13 TO COL.
PERFORM HITUNG-NILAI VARYING I
FROM 1 BY 1 UNTIL I > 1
AFTER J FROM 1 BY 1 UNTIL J > 1.
MOVE 13 TO COL.
PERFORM HITUNG-NILAI VARYING I
FROM 1 BY 1 UNTIL I > 2
AFTER J FROM 1 BY 1 UNTIL J > 2.
STOP RUN.
MATRIK1.
DISPLAY(LIN, 1) 'NILAI[', I , ',' , J , ']:'.
ACCEPT ( , ) MAT1(I, J).
ADD 1 TO LIN.
MATRIK2.
DISPLAY(LIN, 30) 'NILAI[', I , ',' , J , ']:'.
ACCEPT ( , ) MAT2(I, J).
ADD 1 TO LIN.
HITUNG-NILAI.
COMPUTE MAT-HASIL(I, J) = MAT1(I, J) + MAT2(I, J).
DISPLAY ( , COL) MAT-HASIL(I, J).
ADD 7 TO COL.

OUTPUT :
MATRIK PERTAMA
NILAI[01,01]: 2
NILAI[01,02]: 1
NILAI[02,01]: 3
NILAI[02,02]: 4

MATRIK KEDUA
NILAI[01,01]: 2
NILAI[01,02]: 8
NILAI[02,01]: 1
NILAI[02,02]: 6

PENJUMLAHAN MATRIK
4 9
4 10

Note : seharusnya hasil output matrik pertama dan kedua pd saat input nilai, layoutnya menyamping, tp saya tulis di blog, kebawah :D

Sekilas tentang COBOL

Bahasa Cobol adalah bahasa pemrograman computer yang dirancang untuk menyelesaikan persoalan bisnis. Cobol adalah singkata dari Common Bussiness Oriented Language. Program Cobol merupakan program terstruktur dan merupakan bahasa tingkat tinggi.

aturan penulisan program cobol :

• Kolom 1-6

Digunakan untuk nomor urut bila diperlukan, nomor harus urut dari kecil ke besar.

• Kolom 7
1. Untuk tanda Hypen(-), baris sambungannya berada di area B
2. Bila diisi dengan tanda *, maka baris tersebut dianggap sebagai komentar.
3. Bila diisi dengan tanda /, maka baris tersebut dianggap sebagai komentar dan akan dicetak mulai halaman baru.
4. Bila diisi dengan karakter D, maka dianggap sebagai komentar. Tapi bila pada Environment Division dalam paragraph Source-komputer disebutkan with debugging mode, maka kan berguna untuk debugging.
• Kolom 8-11

Disebut area A. tempat menuliskan semua judul divisi, judul seksi, nama paragraph, judul file description(FD), level number 01, dan level number 77.

• Kolom 12-72

Disebut area B. semua elemen program selain ditulis di area A ditulis di area B

• Kolom 73-80

Merupakan kolom yang tidak diproses oleh computer, jadi bila diisi dengan catatan-catatan apa saja, hanya untuk dokumentasi program.

struktur program Cobol

1. Dibagi menjadi 4 divisi

- Identification Division

- Environment Division

- Data Division

- Procedure Division

2. Terdapat susunan hirarki dari ke-4 divisi tersebut

• Division
• Region
• Section
• Paragraf
• Sentence / entry
• Statement clause
• Phrase / option

Contoh Program COBOL sederhana untuk Menghitung nilai total :
IDENTIFICATION DIVISION.
PROGRAM-ID. KONDISI.
AUTHOR. ERNA.
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 (8, 20) 'NPM:'.
ACCEPT ( , ) NPM.
DISPLAY (10, 20) 'NILAI UTS :'.
ACCEPT ( , ) UTS.
DISPLAY (12, 20) 'NILAI UAS :'.
ACCEPT ( , ) UAS.
COMPUTE TOTAL = ( UTS + UAS ) / 2.
MOVE TOTAL TO HASILOUT.
DISPLAY (16, 20) 'TOTAL :' HASILOUT.
STOP RUN.

Outputnya :
NAMA : Ria
NPM : 11105192
NILAI UTS : 80
NILAIi UAS : 80
TOTAL : 80

Penulisan Ilmiah

Untuk mahasiswa tk 3 tepatnya semester 6 Univ. Gunadarma, pasti akan emngahdapi yg namanya Penulisan Ilmiah (PI). Apa sih PI itu??? PI bs dikatakan sbg skripsi mini, kenapa, karena PI memang bertujuan untuk mengenalkan mhs kepada dunia tulis-menulis ilmiah dan penelitian. Kita (mhs) dituntut untuk bs menulis sesuatu yang berbau ilmiah yang tentunya ditunjang dengan riset.

Agak ribet memang, tetapi jika sudah dijalani, segala sesuatu akan terasa ringan kok, seperti yg penulis dan teman2 penulis alami. Awalnya kita merasapasti sulit bgt bikin PI, ngeluh, BT, dll. Tetapi pas udah dijalani, waduh ternyata proses membuat PI tuh terasa menyenangkan.
Ada beberapa tips yg ga mutlak harus dijalani sih. Tips2 ini hanya bersarkan pengalaman penulis.

1. Santai aja, jangan terlalu dipikirin, biarin aja semua proses berjalan apa adanya, go with the flow :D
2. Mulai mencari inspirasi ttg tema atau topik yang mau kamu tulis, yg gampang2 aja, yg ada di sekitar kamu.
3. Cari tema yg ringan2 aja, tema yg kamu suka
4. Jgn pikirin dulu mw pake bahasa pemrograman apa, itu urusan belakangan yg penting kamu udah punya ide atau tema
5. Usahain waktu ketemu Dosen Pembimbing (DP), kamu udah punya tema atau ide
6. Ide yg kamu punya, kamu tuangkan dalam bentuk draft kasar atu bs juga kerangka karangan, karena ada beberapa DP yg lebih suka membaca draft kamu drpd mendengarkan kamu bercerita ttg PI kamu.
7. Kalau tema kamu udah disetujui sama DP, mulailah mengerjakan secara urut, mulai dr bab 1 s.d bab 4
8. Jangan terlalu fokus dengan pengerjaan program(terlalu memberikan banyak waktu utk bikin program), inget, PI itu kan penulisan ilmiah, jadi lebih ditekankan pada penulisan, bukan program/software/aplikasi yg kamu buat, tp bukan jg berati bahwa program/software/aplikasi ga penting, tapi pengalaman penulis, gara2 koding, eh lupa deh sama penulisannya.

Trus gmn kalau tema kita ditolak sm DP..
Don't panic, (it's not the end of your PI :D). Tanya sm DP kamu apa alasan beliau nolak PI kamu, tanya alasannya sejelas-jelasnya, klo perlu, kasih argumen, siapa tahu Dp kamu berubah pikiran setelah denger argumen kamu. Kalau masih belum diterima jg, cari tema lain, kalau ga jg, mentok2 minta aja tema sama DP kamu (the last way :))

Yang terakhir, santai aja, jgn terlalu dipikirin, enjoy the process, jangan cm gara2 PI yg cm 2 sks, nilai kamu di mata kuliah lain anjlok.

Alright, good luck ya buat PI nya, n jangan lupa berdoa sama Tuhan YME agar kamu diberi kelancaran, amin.

C yaaaa

the best semester ever

the best semester ever in my "college life". why i say so, karena gw dapet banyak bgt pelajaran dan pengalaman berharga di semester ini, :D .Gimana gak, gw diajar sama dosen2 yang berkompeten di bidangnya masing2. seperti :

1. Prof. I Wayan S.W, who had encourage me to write paper for sesindo 2008, that was my 1st experience and it was very worthed for me. Gw bisa punya karya yang di publish ke umum dan bisa gw banggain, selain PI gw tentunya :)selain itu gw bisa dapet byk ilmu dari beliau,secara beliau udah profesor so pasti ilmunya byk, bangga dah gw bisa jd salah satu mhs nya.

2. Pak Avinanta, for bringing Arne :D, and make me "fall in love" with data mining, and push me to talk in front of a lot of people in kuliah umum konsep data mining to explain about KDD. hhh, it was shocked me out Sir. hehehe.

3. gw diajar sama dosen-dosen muda tapi wawasannya, beuh mantap, ga kalah ma dosen senior. two thumbs up dah :)

apalagi ya..

oia, gw naik jabatan di lab :D, dari seorang asisten biasa menjadi salah satu Penanggung Jawab (PJ) hari rabu, hehehe, lumayan, naek gaji walo cuma dikit :D

trus pengalaman lucu adalah ketika gw marah-marah sama temen2 kelompok paper gw, duh kasian amat sih teman2 ku itu, harus kena semprot gw, hahaaha. i'm sorry master fath, koko wendy, gemi n jebleh, but all of u still become good partner to be in one group koq. hohohoho.

"membandingkan Unjuk Kerja Windows Vista dan Windows XP dengan spesifikasi Hardware yang sama". hahahaaah Paper kita tuh :p



pokonya gw happy bgt deh di semester ini, ya semoga aja dibarengi dengan IPK yg jg bagus ya :D n semoga semester 8 bisa se-lancar, se-baik, dan se-menyenagkan semester 7, Amin. secara semester 8 is gonna be so hard, karena ada skripsi ya. huhuhu. tapi gw harus ttp semangat

salam super^^