Senin, 19 Oktober 2009

Penyalahgunaan Internet ...

Tidak ada komentar
Dewasa ini, banyak sekali orang-orang yang tidak bertanggung jawab dalam menggunakan jasa internet. Dalam kasusnya Indonesia menduduki peringkat kedua setelah Ukraina dalam penyalahgunaan internet dari 230 jt penduduk di Indonesia yang mengoperasikan teknologi internet. Peringkat segitu merupakan angka yang sangat menghawatirkan. Khususnya bagi masyarakat bangsa indonesia.




Perkembangan internet yang semakin hari semakin meningkat baik teknologi dan penggunaannya. Kebutuhan dan penggunaan teknologi yang di aplikasikan dengan internet dalam berbagai bidang telah menjadi sesuatu yang lumrah. Oleh karena itu, kita sebagai pengguna jasa internet ini jangan sampai terpengaruh dengan hal2 yang dapat membuat kita menyalahkan aturan yang seharusnya tidak kita lakukan. Walaupun begitu, tidak dapat dipungkiri, bahwa teknologi internet membawa dampak negatif yang tidak kalah dengan banyaknya manfaat yang ada. Banyaknya dampak negatif yang timbul dan berkembang, membuat suatu paradigma bahwa tidak ada komputer yang aman kecuali dipendam dalam2 di bawah tanah dan tidak memiliki hubungan apapun juga.

Seminar SFD 2009 (Software Freedom Day)

Tidak ada komentar
aduh, bingung nih mu nulis apaan.
yauda deh. saya nulis tentang seminar SFD yang barusan gw ikutin d kampus gw aja deh .
Pada hari senin, tepatnya tanggaL 19 Oktober saya mengikuti sebuah seminar yg bernama Software Freedom Day. Seminar ini membahas seputar OSS (Open Source Software). Tetapi, yang Lebih di perjelas adalah Open Source itu sendiri apa. Open Source merupakan sebuah kebebasan kita menggunakan sebuah software dengan sumber2 yang bebas, free, gratis tanpa di pungut biaya sepeser pun. beda dengan Microsoft yang kita harus membeLi sebuah Lisensi terlebih dahulu agar kita bisa memiliki atau menggunakan software tersebut. Apabila kita menggunakan software2 tersebut tanpa melalui jalur yang sebenarnya, kita sudah dikatakan melakukan pembajakan. Walaupun kita hanya menggunakan software tersebut.


Sesuai dengan Fatwa MUI yang menjelaskan tentang haramnya melakukan pembajakan. Oleh karena itu, mulai sekarang kita jauhkan diri kita dari yang namanya pembajakan. karena membajak bukanlah hal yang sehat. Marilah kita gunakan Software2 yang memang seharusnya bisa kita gunakan. Dan satu hal Lagi, dengan OSS kita juga bisa mengembangkan kemampuan kita, mengasah kreatifitas kita untuk mengembangkan software2 tersebut. Karena software2 tersebut boleh kita edit-edit atau kita ubah-ubah sesuai keinginan kita.

Senin, 12 Oktober 2009

Program Sortir Data dengan bahasa Cobol

Tidak ada komentar
program ini adalah program pengurutan data atau yang sering kita sebut program sortir data. program ini khususnya adalah program pada bahasa pemrograman cobol. biar singkat kata ,, mari kita lihat langsung aja contoh program di bawah ini :

Contoh Program Sortir Data dengan Bahasa Cobol :
IDENTIFICATION DIVISION.
PROGRAM-ID. SORTIR-DATA.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 N PIC 999.
77 I PIC 999.
77 J PIC 999.
77 K PIC 999.
77 TEMP PIC 999.
77 D PIC X.
01 AAA.
02 A PIC 999 OCCURS 100 TIMES.
PROCEDURE DIVISION.
MAIN.
DISPLAY (1 1) ERASE.
DISPLAY (9, 30) "INPUT BILANGAN : ".
DISPLAY (10, 27) "___________________".
ACCEPT (11, 36) N WITH PROMPT.
DISPLAY (1 1) ERASE.
DISPLAY (6, 30) "MASUKKAN BILANGAN-BILANGAN".
MOVE 6 TO LIN.
PERFORM ACC-PARA VARYING I FROM 1 BY 1 UNTIL I > N.
PERFORM BUB-PARA VARYING I FROM 1 BY 1 UNTIL I > N.
DISPLAY (1 1) ERASE.
DISPLAY (5, 30) "HASIL (BUBBLE SORT) :".
DISPLAY (6, 30) "____________________".
MOVE 6 TO LIN.
PERFORM DIS-PARA VARYING I FROM 1 BY 1 UNTIL I > N.
STOP RUN.
ACC-PARA.
COMPUTE LIN = LIN + 1.
ACCEPT (LIN, 35) A(I) WITH PROMPT.
IF LIN = 20
DISPLAY (1 1) ERASE
DISPLAY (6, 30) "CONTINUE"
MOVE 6 TO LIN.
BUB-PARA.
IF A(I) > A(J)
MOVE A(I) TO TEMP
MOVE A(J) TO A(I)
MOVE TEMP TO A(J).
DIS-PARA.
COMPUTE LIN = LIN + 1.
DISPLAY (LIN, 33) A(I).
IF LIN = 20
DISPLAY (24, 30) "PRESS AN KEY"
ACCEPT D
DISPLAY (1 1) ERASE
MOVE 6 TO LIN.

Program ini akan mengurutkan bilangan dari yang terkecil sampai terbesar.

Jumat, 09 Oktober 2009

BILANGAN PRIMA | PROGRAM COBOL

1 komentar
Kepada teman-teman, maaf saya baru memposting codingan ini sekarang karena saya baru dapat menyelesaikan program ini sehari sebelum praktek dimulai. Walaupun sudah telat, saya berharap postingan saya ini dapat bermanfaat bagi temen-temen sekalian. Mungkin untuk pembelajaran dalam kondisi maupun penghitungan aritmatika.
Ini adalah program bilangan Prima yaitu, apakah bilangan yang akan kita masukan termasuk bilangan prima atau bukan. biar lebih jelasnya lagi silahkan Anda melihat codingan dibawah ini.

IDENTIFICATION DIVISION.
PROGRAM-ID. PRIMA.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 BILANGAN.
02 BIL PIC 99.
02 I PIC 99.
02 HASIL PIC 99.
02 SISA PIC 99.
SCREEN SECTION.
01 HAPUS-LAYAR.
02 BLANK SCREEN.
PROCEDURE DIVISION.
MULAI.
DISPLAY HAPUS-LAYAR.
DISPLAY 'INPUT BILANGAN INTEGER : ', ACCEPT BIL.
COMPUTE I = 2.
DIVIDE I INTO BIL GIVING HASIL REMAINDER SISA.
SELEKSI-PRIMA.
IF SISA = 0
GO TO JAWAB
ELSE
GO TO HITUNG.
JAWAB.
IF I = BIL
DISPLAY BIL, ' BILANGAN PRIMA'
ELSE
DISPLAY BIL, ' BUKAN BILANGAN PRIMA'.
HITUNG.
COMPUTE I = I + 1.
DIVIDE I INTO X GIVING HASIL REMAINDER SISA.
GO TO SELEKSI-PRIMA.
SELESAI.
STOP RUN.


Dalam program ini masih terdapat satu kekurangan yang menurut saya kekurangan ini adalah kekurangan yng perlu diperbaiki. Kekurangan tersebut adalah pada saat kita meng-input nilai 1, maka nilai 1 tersebut akan dibilang bilangan prima. Dan menurut saya, kekurangan itu adalah kekurangan yang harus diperbaiki. Oleh karena itu, saya mohon kesediaan teman-teman sekalian untuk memperbaiki program tersebut
Sayamohon harap maklum. karena saya masih kurang mengerti dalam bahasa COBOL. Oleh karena itu, saya mohon saran dari kalian untuk program ini. Terima kasih sebelumnya.Mudah-mudah postingan ini dapat membantu kegiatan belajar Anda.