Senin, 08 Oktober 2007

keadaan blogs ini

untuk sementara...blogs ini dalam kondisi "under konstruktion"
hal ini karena saya sedang berkreasi di wordpress.com
untuk kelanjutannya silahkan men-link :
willmen46.wordress.com
itu adalah link blogs saya yang baru, dimana saya saat ini sedang berkreasi
thanx to bloger : gara2 ini layanan saya jadi tertarik ngeblogs, jasa mu aku ingat selalu huuhuuhuu (bukan maksud hati mendua tapi apa daya aq tertarik pada wordpress)
sekian dlu y see u
jgn lupa visit me at :
willmen46.wordpress.com

Minggu, 09 September 2007

tugas 2 - INFORMATIKA DAN TELEKOMUNIKASI


Intelegent Network / Intelegent Telecommunication Network

Willment TB Panjaitan – 4473


Satu hal yang paling penting dalam upaya peningkatan profit adalah dengan penambahan dan perluasan daerah pemasaran serta adanya sistem informasi yang terpadu dari pusat ketiap unit yang dimiliki. Perluasan daerah pemasaran dapat diwujudkan dengan adanya sistem telekomunikasi yang lancar dan dapat menjangkau di tiap daerah yang akan di jadikan sebagai daerah pemasaran. sehingga hal ini diharapkan tidak akan menghambat proses pendistribusian produk maupun informasi dari tiap daerah tujuan.

Intelegent Network secara umum merupakan mesin penghitung (Logic). Perangkat ini merupakan pemegang kendali dan berbagai syarat untuk dapat memanfaatkannya telah di program menjadi fitur dalam sistem jaringan telekomunikasi.

Intelegent network ( Jaringan cerdas ) adalah suatu arsitektur jaringan telekomunikasi yang memiliki tujuan untuk memberikan frame work sehingga kerja dari jaringan untuk implementasi, kntrol dan manajemen menjadi lebih efektif serta lebih ekonomis, dan lebih cepat proses kerjannya dibandingkan arsitektur jaringan yang digunakan saat ini.

Intelegent Network dapat di artikan juga sebagai jaringan pintar. Merupakan konsep jaringan telekomunikasi dengan kapabilitas service independent. Kecerdasan tersebut tidak terdapat di setiap sentral tapi berada pada sistem jaringan yaitu pada sebuah komputer, selanjutnya akan didistribusikan ke seluruh network, sehingga akan mempercepat penyebaran service ke seluruh network dan akan langsung memenuhi kebutuhan pelanggan.

Intelligent Networks (IN) adalah suatu arsitektur jaringan di atas jaringan (transport) telekomunikasi yang merupakan platform untuk manajemen servis secara terpusat baik untuk servis eksisting maupun servis baru.

Intelegent Network diimplementasikan dengan mengacu pada latar belakang antara lain :

  • Kemampuan adaptasi yang cepat

  • Kemampuan memberikan servis yang berintelegensi

  • Penyediaan servis tidak tergantung dari vendor switch

  • Pelanggan dapat mengontrol servis yang diinginkan

  • Stimulasi penggunaan jaringan

  • Biaya implementasi servis lebih murah

  • Implementasi servis mudah dan fleksibel

  • Jangkuan layanan yang luas




Konsep Intelegent Network

  • Implementasi IN dapat diterapkan pada jaringan : PSTN, ISDN, PSPDN, PLMN.

  • IN diintegrasikan dengan jaringan eksisting PSTN/ISDN dengan menerapkan konsep pemusatan software untuk mengontrol layanan layanan khusus.

  • CCS#7 merupakan merupakan tulang punggung IN yang berfungsi untuk transfer informasi, request, command dan respons antar jaringan yang terlibat


Adapun cakupan lingkungan dari Intelegent Network yaitu :

  • Service user: pihak yg melakukan dialing untuk memanfaatkan service IN.

  • Service subscriber: pihak yang memiliki nomor langganan servis IN dan dapat diakses oleh user.

  • Network operator: pihak yang mengontrol logic dan jaringan (servis) sehingga service user dan service subscriber dapat menjalankan bisnis.

  • Service operator: pihak yang memperkenalkan dan mengoperasikan servis

  • Service provider: pihak yang mensupport service IN

Adapun alas an mengapa Intelegent Network digunakan antara lain :

  • Fleksibilitas atas pendefinisian dan kreasi layanan baru tanpa melakukan investasi baru yg terlalu besar di bidang perangkat telekomunikasi.

  • Mengurangi time to market untuk meluncurkan suatu service.

  • Kemudahan pengontrolan layanan yang dapat memonitor setiap elemen IN SCP

  • Menjadikan peluang baru sebagai revenue generator bagi penyedia layanan & operator telekomunikasi.

  • Dalam beberapa hal dapat mengurangi ketergantungan langsung kepada vendor untuk meluncurkan service

  • Kemungkinan evolusi ke arsitektur jaringan masa depan

Intelegent Network memiliki fungsi dari element-element antara lain :

  • SSP: Service Switching Point

1. CCF ( Call Control Fungtion ) yaitu mengendalikan pemrosesan call dan menyediakan layanan koneksi ke network

2. SSF (Service Switching Function) yaitu memberikan dukungan trigger selama pemrosesan & akses ke fungsionalitas IN.

3. SRF ( Specialized Resource Function ) yaitu memberikan dukungan interaksi antara s/w pada switch & service control fungtion.

4. CCAF ( Call Control Agent Function ) yaitu memberikan dukungan khusus kepada resource network khusus yg berinteraksi dengan caller

  • SCP ( Service Control Point )

1.SCF(Service Control Function ) yaitu mengeksekusi service logic dan mempengaruhi call processing pada switch melalui interface ke SSF.

2.SDF ( Service Data Function ) yaitu mengelola customer dan data network untuk akses real time pada SCF dalam mengeksekusi layanan-layanan IN.

  • IP ( Intelligent Periperal )

  • SRF ( Specialized Resource Function ) yaitu memberikan dukungan resource khusus pada network yg berhubungan dg interaksi ( dg caller )

  • SMP ( Service Menegement Point / SMS service Management System )

1.SMF ( Service Management Function ) yaitu menyediakan layanan IN dan menyediakan dukungan kepada operasi yang sedang berjalan.

2.SMAF (Service Management Access Function) yaitu interface antara service manajer dan SMF (dapat diimplementasikan terpisah secara fisik atau SMAP)

  • SCEP : Service Creation Environment Point

1.SCEF ( Service creation environment function ) :

yaitu tempat di mana kreasi layanan dibangun, diuji dan dimasukkan ke dalam SMF.



Referensi yang digunakan antara lain :


tugas 1 - INFORMATIKA DAN TELEKOMUNIKASI

Telekomunikasi Kabel dan Telekomunikasi Nirkabel

Willmen TB Panjaitan – 4473


Telekomunikasi berkaitan erat dengan pengertian yaitu berkomunikasi secara jarak jauh. Dapat pula diartikan sebagai gerak elektronik dan informasi. pemancaran, pengiriman dan atau penerimaan dari setiap informasi dalam bentuk tanda-tanda, isyarat, tulisan, gambar, suara, dan bunyi melalui sistem kawat, optik, radio, atau sistem elektromagnetik lainnya. Istilah telekomunikasi ini biasanya dipakai untuk menunjuk pada pengertian telepon, internet, VoIP, telex, dan faximili.

Telekomunikasi adalah pertukaran informasi (dimana terjadi perubahan ”format informasi” ) pada hubungan komunikasi jarak jauh yang terjadi secara elektris/elektronis.

Telekomunikasi merupakan pertukaran informasi dalam berbagai bentuk (suara,data, teks, gambar, audio, video) melalui jaringan berbasis komputer.

Telekomunikasi dasar (primitif) adalah Point to Point dimana ada source (orginating) dan sink (destination) . Untuk dapat memulai dan mengakhiri komunikasi antara kedua pihak harus ada tanda ( signaling ) yang dikenal oleh kedua pihak. Fungsi signaling dalam PtP adalah tanda untuk memulai dan mengakhiri komunikasi.

Telekomunikasi yang modern berbentuk Point to Multipoint (PtM). Untuk PtM searah disebut Broadcast dimana dalam hal komunikasi ini tidak diperlukan signaling. Untuk PtM dua arah maka diperlukan signaling. Telekomunikasi berbentuk Mulipoint to Point, yang terjadi pada hubungan berhirarki (bertingkat). Contoh komunikasi antar sentral.

Jenis-jenis telekomunikasi antara lain :

  1. Suara = Teleponi

  2. Suara & gambar = Videophone

  3. Tulisan yg dicetak (berita) = Telegrafi/Telex

  4. Tulisan yg dicetak (data) = Komunikasi Data

  5. Tulisan yg dicetak (text) = Teletex

  6. Dokumen = Telefax

  7. Gambar = Televisi, Videotex

  8. Gambar,tulisan & suara = Multimedia

InspiAir, Revolusi Terbaru Komunikasi Nirkabel

Kini, telah tersedia teknologi komunikasi terbaru di bidang telekomunikasi nirkabel. Teknologi terbaru ini ditawarkan InspiAir, yang merevolusi infrastruktur komunikasi nirkabel dengan menawarkan jangkauan luas namun dengan dukungan pasokan tenaga yang relatif lebih kecil. Boleh dikata, InspiAir menawarkan solusi ideal dalam penyediaan layanan internet nirkabel di kawasan perkotaan, perkantoran, hingga pedesaan sekalipun.

Dengan InspiAir, komunikasi berbagai kawasan di kota, seperti kampus, tempat parkir, dan berbagai lokasi lainnya dapat dijangkau akses internet, kapan saja dimana saja. Jangkauannya boleh jadi melebihi jaringan WiFi yang umumnya hanya tersedia di lokasi-lokasi tertentu saja. InspiAir mampu menjangkau jarak hingga 5 km (poin to multipoint) dan 40 km (point to point). Asyiknya lagi, besarnya kapasitas akses memungkinkan layanan yang bisa didapat tak hanya melulu untuk e-mail, melainkan juga video, VoIP, dan komunikasi data berkecepatan tinggi lainnya.

InspiAir mengubah fokus bisnis mereka ke internet, dengan mengembangkan produk InspiAir menjadi platform yang inovatif berbasis pada aplikasi Virtual Transmiting Manager (VTM). InspiAir beroperasi pada frekuensi yang bebas lisensi (2,4 GHz), dan ideal dalam menyediakan banyak kanal dan komunikasi dengan bandwith tinggi. Teknologi ini dapat digunakan oleh semua jenis layanan nirkabel, semisal untuk pemanfaatan di Metropolitan Area Networks (MAN), Wireless Area Network (WAN), dan Local Area Network (LAN). Menggunakan standar dan protokol yang sama dengan WiFi, InspiAir cukup compatible dengan hardware yang tersedia dan mendukung komunikasi point to point maupun point to multipoint dengan koneksi yang lengkap.

Telekomunikasi Powerline Internet Melalui Jaringan Kabel Listrik

Pemain utama dalam telekomunikasi powerline ini adalah Norweb (anak perusahaan United Utilities PLC, London), dan terutama adalah seorang stafnya yaitu Dr. Paul Brown.

Inti dari teknologi ini adalah kemampuan untuk menyediakan Jaringan Daya Terkondisi Frekuensi Tinggi (HFCPN, high frequency conditioned power network) dimana melalui jaringan ini data dapat dilewatkan. Sebagai mana ditunjukkan di atas, prinsip dasarnya adalah menginjeksikan sinyal-sinyal data ke dalam saluran daya listrik pada frekuensi 10 juta kali frekuensi dasar arus listrik (atau sekitar 500/600MHz). Untuk melakukan ini, dibutuhkan Unit-unit Pengkondisi (CU, conditioning units). Unit-unit ini merupakan pengkopel arah tiga terminal yang meliputi bagian high and low pass filter untuk membentuk suatu pengkopel arah frekuensi yang sensitif. Setiap CU mempunyai sebuah terminal jaringan (NP, network port), sebuah terminal distribusi komunikasi (CDP, communication distribution port), dan sebuah terminal distribusi listrik (EDP, electricity distribution port)

CU ini memberikan kemampuan menyediakan hal-hal sbb :

- terkoneksi sinyal-sinyal yang aman dan efisien di atas 1 MHz (misal: sinyal-sinyal data)

- ropagasi penunjuk arah sinyal di atas 1 MHz

- Floor noise minimal di atas 1 MHz

- Isolasi beban-beban pelanggan yang berubah di atas 1 MHz

- Titik titik penghentian layanan jaringan yang cocok untuk pelayanan telekomunikasi

dan listrik

- Kinerja spektral yang optimum dari jaringan kabel

Frekuensi 1 MHz dipilih sebagai frekuensi terendah dimana pengkopel arah yang efektif dan efisien dapat dibangun dan masih menyediakan pelayanan 100 amp, 230/240 volt, 50 Hz kepada pelanggan domestik. Pengalaman sebelumnya dalam menggunakan jaringan distribusi listrik untuk membawa sinyal-sinyal frekuensi rendah (khususnya 3-500 kHz untuk switching pada peralatan-peralatan rumah tangga seperti sistem air panas, lampu jalanan, dll) menunjukkan bahwa atenuasi yang drastis dari sinyal-sinyal adalah jelas dikarenakan adanya capacitive reactance. Pengujian menunjukkan bahwa diatas 1 MHz, reactance induktif mulai menyelimuti capacitive reactance, dan jika impedansi saluran yang digunakan adalah sebesar 600 ohm, maka atenuasi dapat diterima.

Meskipun efisiensi spektral diperkirakan berada antara 6 dan 10 MHz untuk para pelanggan jarak jauh, dan 20 MHz untuk para pelanggan dekat, efisiensi overall dari jaringan HFCPN adalah tergantung pada sejumlah kriteria seperti:

- Tipe pelanggan dan densiti per distributornya (atau fase dari distribusi daya). Secara khusus kira-kira 50 (total 150 per 3 fase, 415 volt, distribusi tegangan rendah ke para pelanggan) di Inggris, dimana teknologi ini dikembangkan dan diuji cobakan. Di Amerika Utara, harga ini bisa cukup rendah sekitar 10-14 pelanggan per distributor.

- Tipe akses multiple yang diperlukan

- Densiti lalu-lintas data (baik saat rata-rata maupun puncak)

- Skema kompresi, coding dan modulasi, yang berpengaruh pada laju data bit per unit spektrum yang tersedia.

- Kebutuhan pelayanan, suara, data, streaming video, dll.

Saat ini, teknologi ini tidak menyediakan sarana yang sangat efisien untuk lalu lintas suara. Sinyal-sinyal suara (analog) menempati lebar pita kira-kira pada 3,1 Khz. Pendigitalan ini akan menghasilkan sinyal digital yang akan menempati lebar pita 10 kali lebih besar (32 Khz), dan sehingga memungkinkan untuk hanya 12 kanal yang dapat beroperasi secara simultan per 4 MHz spektrum. Penelitian saat ini ditekankan pada bidang modulasi, coding, dan kompresi dari sinyal-sinyal analog dengan tujuan memperbaiki situasi yang ada.

Hal ini menggambarkan bahwa teknologi ini dapat menjadi fondasi untuk jaringan akses lokal alternatif yang berkemampuan menyediakan penyebaran yang cepat (seperti infrasruktur media, kabel-kabel daya yang telah ada) dari pelayanan-pelayanan telekomunikasi digital maju untuk perumahan. Konsep jaringan yang diajukan mempunyai lapisan jaringan pertama berbasis pada substasiun listrik lokal


Referensi :



Senin, 27 Agustus 2007

kuliah....oh kuliah....

senin..27 Agustus 2007...masa kuliah semester ganjil di kampus ku udah dimulai....
seabrek amunisi sudah di siapkan untuk semester ini....
awalnya sempet kecewa sech....gmn ngk kecewa..sistem KRs di kampus yg acak kadut gitu
dah gitu kuota sks yg di ambil jauh dari harapan...dari 21 cuma ke ambil 14 :(

buut its okey aja....cos dapet jatah pilihan 2 Mk ama matakuliah yg menjadi penakut bagi mahasiswa TF di kampus ku PP alias program profesional......

awalnya ngk dapet jatah untuk MK ini..tapi dengan mengumpulkan beberapa rekan TF yg notabene satu angktan akhirnya menghadap ke Kaprodi untuk minta tambahan kelas....
hari pertama KRs gagal karena kuota orang hanya 8 untuk membuka kelas PP baru....sampai akhirnya perjuangan tidak sia-sia...di hari kedua kuota orang untuk membuka kelas baru PP ada 17 orang...tapi giliran Kaprodi ganti jadwal menyusut jadi tinggal 11 orang dipotong 3 orang yg ternyata menyusup dari kelas lain alias mo pindah.....

ya semoga smster ini menjadi awal perubahan yg signifikan..cos aq ngerasa semseter kemaren lum maksimal....aq mo otru di rumah liat ke seriusan ku dalam kuliah....minimal untuk menembuh target ortu..pulang ke cerbon dng IPK 3.2 dengan berbagai sertifikasi di tangan like Cisco...Oracle...mybe other....


GOD....WIsh mE Luck

^kodok

Sabtu, 18 Agustus 2007

dokumentasi trip to sragen















me n my chuby

















mie goreng....suguhan dari chuby for me




istirahat di saat perjalanan siang

















plat-E my partner setia saat trip kemana2

Kamis, 16 Agustus 2007

trip to sragen city

trip to sragen

Rabu, 15 Agustus 2007...iseng2 ngk ada kerjaan eh..cuby minta keseriusan wat berkomitmen..ehmm disuruh dateng dech ke tempatnya.... ya awalnya sech sempet ragu-ragu maklum belum pernah ke sragen sebelumnya…..

Dijalan ya lumayan panas..cape..haus…ngantuk dll ya standartnya orang jalan jauh lah gimana….seperti biasanya kalo belum pernah mengunjungi 1 tempat kayanya ko jauh bgt…hamper 3.5jam perjalanan…hihihihihi pantat ku hamper rata nech :. Tapi ngk full sech kadang berhenti sejenak just istirahat.minum..atau malah ngambil2 gambar maklum hobi foto gitu dech

Siang hari bolong baru nyampe sragen setelah melalui djogja trs ke klaten lanjut ke solo sampae akhirnya ke sragen…hmmm sempet nyasar2 juga dech dari solo kea rah klaten bis bingung gitu. Kalo Cuma djogja ke solo sech udah tau jalannya ke arah mana.

Sempet kaget juga..ternyata udah banyak kemajuan..ternyata jalur jogja-klaten trs ke solo udah agak lebar…hmm mulus juga jalannya jadi untuk on the way nya enak bgt…tapi sempet kaget juga..ko jalan mo masuk kota solo malah bergelombang gitu : payah y…ya ngk terlalu kaget juga dech…hal kaya gini aq temui juga waktu trip ke semarang…kejadiannya hampir sama mo masuk ke kota jln malah bergelombang….. dari analisa sech (ciieee analisa kaya orang penting aja) ngk heran kalo jln mo masuk kota tu bergelombang..soalnya bus2..truk2 kan pada lewat situ nah waktu mo masuk kota mereka (truk n bus) mang boleh tapi saat dikota mereka harus ambil jalan ringroad(tau nama apa gitu) n ngk boleh berkeliaran seenaknya di kota….jadi bisa di maklumi kalo jalan mo masuk kota tu bergelombang…

Sampe sragen..y sambutan ini itu just ngobrol2 gimana dijalan..dlll trs dpt suguhan mie goring ke sukaan ku..hmmm tau aja aq lagi kelaperan..ngk tanggung2 2 porsi gitu ukurannya jumbo bro(hihihii disesuaikan dengan badan ku yg jumbo). Dah agak lama istirahat..diajak jalan ke objek wisata..

Awalnya sech mo out bond…flying fox dan teman2nya eh malah nyasar… mikir2 daripada udah jauh2 ngk dapet apa2 eh ke air terjun aja..lagian susah kan jaman gini dapetin tempat yang air terjunnya masih ada..di atas pegunungan dimusim kemarau eh masih ada air terjun keren..keren…keren..

Dah puas ngobrol2 yg nyerempet2 dikit juga sech hihihi hayo ngapain : dah sore pulang dech ke rumah doi..disuguhin makan malam tapi hmm aq nolak…takut ngk nyaman bawa motor kilo lagi kenyang..jam 7 malem turun dari sragen..awalnya sedikit ngepet juga dah lama ngk jalan malem…y ngk tau kenapa naluri pembalap mulai keluar…serasa udah nyatu ma jalan n motor…semua di gasak tapi masih tetep jaga keselamatan..solo-sragen di gasak 1jam aja istirahat bentar sambil minum n ambil2 gambar dah gitu lanjut solo-jogja ya di gasar 1jaman lebih, ngk sempet ambil2 foto karena udah laper bgt : jam 21.30 sampe kos…hmm langsung ke mie Surabaya mesen nasi goring….dah gitu bang wi ngajak roti baker lagi ahhuuuu ngk tahan ma godaan roti baker y ikutan makan lagi…

Tapi trip ke sragen ni full menyenangkan..rasa cape ilang waktu sambutan doi hangat bgt..dah gitu nyambung aja bawaannya…y sempet sech takut kenapa2 tapi dibawa dalam doa aja… ya ni sedikit cerita tentang hobi ku yang suka trip alias jln2… moga masih ada ke sempatan untuk trip ke lain kota dengan pengalaman yang berbeda……

Special to chubby…thanx y mie gorengnya….juga thanx untuk bonekanya…sesuai dengan tulisannya : apana tuh..? rahasia dunk hihihihihi

Sabtu, 11 Agustus 2007

tebak-tebakan alias joke....

tebak-takabakn alias joke

1.
Mobil apa yang ada di atas pohon?

Jawab: Mobil-ang daun, mobil-ang ranting, mobil-ang dahan, terserah elu deh.....



2.
Saya punya uang rp 150. trus saya belanjakan satu biji gula-gula harganya rp75. berapa kembalinya?

jawab : Kembalinya rp 25. karena yang saya belanjakan adalah uang rp 100.



3.
Bahasa jepang orang kecopetan apa?

jawab : Sakuku diraba takurasa



4.
Kalo kamu di tempat gelap dan dingin dan kamu punya satu korek api. Di situ ada obor, lilin, dan kayu bakar. apa yg pertama-tama kamu hidupin?

jawab : Korek api dong



5.
Kenapa orang mati di bungkus dgn kain kafan?

jawab : Kalau dikasih kain batik ntar dia ke kondangan....!!

Sabtu, 04 Agustus 2007

about monalisa


Para ilmuwan telah menganalisa senyum yang tersungging pada lukisan Mona Lisa, mereka berharap bisa mengungkap emosi yang sedang dirasakannya ( andai emang itu manusia ). Mereka memanfaatkan software pengenal emosi yang bisa mengukur mood seseorang dengan mengamati ciri-ciri tertentu. Salah satunya adalah lengkungan bibir dan kerutan di sekitar mata. Software tersebut dikembangkan di Nicu Sebe di Universitas Amsterdam dan ilmuwan Universitas Illinois. Hasilnya, diperkirakan 83 % bahagia, 9 % muak, 6 % takut dan 2 % marah. Begitulah laporan menurut mingguan Inggris " New Scientist ".

Waaaahhhh mau dunk nyoba tes pake tu software...hehehheheeeh

Tapi Mona Lisa tuh bner manusia apa cm lukisan aja ya???

Jumat, 03 Agustus 2007

syair kematia

Putaran waktu dan roda-roda perjalanan adalah lembaran hidup yang sedang kita tulis.

Kita akan menemukan banyak " tanda baca " di sana.

Yakinkan dalam hati, kita akan menemui titik terakhir.

Di mana kita tidak lagi menulis lembaran itu.

Titik terakhir itu adalah " Kematian ".

Dan semua makhluk bernyawa tidak ada satu pun yang tahu kapan akan menemui titik itu.



Ni syair buat aku dalem banget.....Walopun sederhana tapi buat aku lebih dari sederhana...

humor - seni beladiri

Disebuah bar, seorang pemuda berbadan kecil sedang duduk santai. Seorang preman lokal mendekati dan langsung menendangnya keras, "Ciaaaaaatttt !" pemuda kecil itu jatuh tersungkur dari bangkunya. Ketika dia bangun, si preman berkata dengan sombong, "itu tadi TAEKWONDO dari KOREA. "Karena takut, pemuda itu tak menanggapi. Dia lalu kembali duduk di bangkunya. Namun tak lama kemudian, preman tadi kembali mendekati dan membantingnya, "Guuuubbbrrraaakkkkk!!!" pemuda kecil itu terjerembab, saat dia bangun, preman berkata lagi, "itu tadi JUDO dari JEPANG". Pemuda kecil tadi tetap tidak menanggapi, perlahan dia kembali duduk. Tidak lama, preman itu pun menonjoknya "Buuuuuuuuugg!" Pemuda kecil kembali terjatuh, lalu si preman berkata, "itu tadi BOXING dari AMERIKA." Pemuda itu menyadari mulutnya mengeluarkan darah. Lalu dia bangun dan tidak kembali ke bangkunya. Perlahan2 dia keluar dari bar. Tidak beberapa lama kemudian pamuda kecil itu masuk bar dan menghampiri si preman. Tanpa berkata apa2 lagi dia langsung memukul si preman, "Bllleeettttttooooookkkkk!!!!!!!!!." Si preman langsung jatuh pingsan. Pemuda kecil ingin memberi penjelasan, tapi si preman tidak juga siuman. Pemuda kecil itu menghampiri pemilik bar dan berkata, "Pak, kalo si preman ini bangun tolong beritahu bahwa tadi itu adalah LINGGIS dari GUDANG "

:D :D :D

So, biar kita smua pada ga stresss, bacadech ni humor dr aku

hujan meteor

http://www.harian-global.com/news.php?item.21920.26

Hujan meteor Perseid tahunan diprediksi akan menjadi pertunjukan menarik tahun ini yang mencapai puncaknya pada pertengahan Agustus ini, dengan puluhan meteor setiap jamnya.

"Peristiwa ini akan menjadi pertunjukan yang bagus," kata Bill Cooke dari Meteoroid Environment Office NASA di Marshall Space Flight Center, Alabama. "Pada 12 Agustus nanti, tidak akan ada cahaya bulan sehingga langit yang hitam hanya akan dihiasi meteor."

Tahun ini, hujan meteor Perseid dapat terlihat sebanyak satu hingga dua kali setiap menit selama masa puncak, sebut Cooke dalam sebuah pernyataan.

Meski demikian, para pengamat angkasa di perkotaan hanya bisa menyaksikan hujan meteor yang lebih sedikit karena banyaknya cahaya. Tampaknya semua meteor tersebut berasal dari konstelasi Perseus. Waktu terbaik untuk menyaksikannya adalah pada 12 Agustus tengah malam hingga fajar keesokan harinya.

"Perseid kali ini merupakan hujan meteor tahunan yang paling mudah disaksikan, dengan aktivitas maksimalnya mencapai 90 atau 10 meteor per jam," kata Joe Rao, kolumnis Skywatching di SPACE.com. "Meski demikian, jumlahnya bisa lebih besar tergantung di mana orang menyaksikannya.

Untuk bisa melihat hujan meteor tersebut, diperlukan tempat nyaman yang dapat digunakan untuk memandang ufuk timurlaut dengan jelas, serta jauh dari cahaya lampu. Kawasan pedesaan yang gelap merupakan lokasi terbaik. Pada tengah malam, dimulai sekitar pukul 21.00 waktu setempat, para pengamat langit bermata tajam mungkin dapat melihat meteor melintasi ufuk timurlaut.

Untuk menyaksikannya, kita tidak perlu menggunakan teleskop, karena meteor meluncur dengan cepat dan dapat dilihat dengan mata telanjang.

Hujan meteor ini bersumber dari komet Swift-Tuttle yang melintas melalui sistem tata surya bagian dalam setiap 130 tahun. Meteor Perseid meluncur dengan sangat cepat dan mampu masuk ke atmosfer bumi dengan kecepatan relatif 60 kilometer per detik.

http://www.belajar-gratis.com/b20-Hujan-Meteor-Pertengahan-Agustus-2007.html

Hujan Meteor Pertengahan Agustus 2007
16/07/2007 - Administrator

Sarie Novian - Okezone

ALABAMA – Hujan meteor telah menjadi tontonan menarik setiap tahun. Kali ini fenomena alam raya itu akan terjadi pada pertengahan bulan Agustus tahun ini.

Pertengahan bulan Agustus ini, langit akan dipenuhi dengan ratusan bintang jatuh. Bulan akan menampilkan cahaya temaram yang menjadikan langit tampak gelap. Kemudian bumi akan dipenuhi dengan puing-puing komet yang bentuknya tidak lebih dari butiran pasir. Butiran pasir bercahaya itu akan menerangi bumi dan membuat fenomena alam yang sangat indah yang biasa disebut ‘Bintang Jatuh’.

Rabu, 01 Agustus 2007

just wanna say..

Life is beautiful... When you think happy thoughts
Life is miserable... When you think sad thoughts
Life is complicated... When you think happy & sad thoughts
Life ended... When your mind stops thinking :P

bus dengan teknologi air











Bus yang sama sekali tidak memproduksi CO2? Ya, itu sudah ada, namun harga per busnya masih mahal, 3 juta euro per buah. Pabrik bus Belgia Van Hool awal bulan Juni melansir bus bebas CO2 itu, bahan bakarnya memakai air biasa. Bus itu dapat meluncur sejauh 350 kilometer dengan bahan bakar 40 liter air, satu-satunya yang dihasilkan oleh bus itu hanyalah uap air. Bus itu meski mahal harganya, namun sudah dipraktekkan di jalanan sejak 18 Juni 2007 melayani trayek Antwerpen - Lier di Belgia.


Di atap bus tertera "Waterstofbus" , artinya kira-kira "bus berbahan bakar air". Van Hool adalah nama pabrik di Belgia yang membuat bus itu. Foto De Telegraaf, 23 Juni 2007.

Pabrik bus Van Hool memproduksi bus bebas CO2 itu dengan dukungan keuangan pemerintah Belgia yang menyetor 1,3 juta euro. Selain itu perusahaan Siemens juga menanggung sebagian biaya pembuatannya. Total biaya yang dikeluarkan oleh Van Hool, pemerintah Belgia dan Siemens adalah 3 juta euro per bus. Sebagai perbandingan, bus biasa yang memakai BBM harganya cuma 150.000 euro per buah. Bus bebas CO2 itu dipakai oleh perusahaan transportasi bus De Lijn yang merupakan simpatisan berat kelestarian lingkungan hidup. Bus De Lijn itu pula yang pertama memakai bahan bakar minyak goreng beberapa tahun y.l. Namun teknologi energi selalu makin maju, para ahli menemukan bahwa pembebasan hutan tropis untuk lahan kelapa sawit menyebabkan CO2 keluar dari tanah gambut, kerugiannya untuk lingkungan hidup malah lebih besar dibanding keuntungan yang didapat dari pemakaian bahan bakar kelapa sawit itu. Karenanya pemakaian kelapa sawit sebagai bahan bakar ditinggalkan.

Menurut pabrik bus Van Hool, harga yang 3 juta euro per bus itu masih bisa turun, bila banyak pemesan bus itu nantinya. Dari luar Belgia sudah tampil perhatian, misalnya dari Amerika Serikat, Jerman/Hamburg dan Inggeris/London, juga dari Belanda/Amsterdam. Demikian ujar direktur pabrik bus, Leopold van Hool dengan bangganya

Jumat, 27 Juli 2007

Pembangunan Aplikasi Sistem Informasi Mobile Trading

Nama : Willmen TB Panjaitan

NIM : 4473

Prodi : Teknik Informatika

Kuis : Metodologi Penelitian


I. Intisari

Topik : Pembangunan Aplikasi Sistem Informasi Mobile Trading

Banyak orang berfikir bahwa mereka dapat hidup dengan nyaman dan tentram jika mereka memiliki pekerjaan dengan gaji yang tinggi. Ada juga yang berfikir dengan memenangkan undian berhadiah besar maka hidup mereka pun akan terjamin. Namun ada juga sebagian yang berinvestasi untuk menjamin kelangsungan hidup mereka. Banyak hal yang dilakukan dalam berinvestasi antara lain membeli tanah atau rumah yang lebih dikenal dengan investasi proverty, ada yang membuka usaha dalam berbagai bidang yang lebih dikenal dengan wiraswasta namun ada juga yang berinvestasi dalam bentuk saham. Investasi bentuk ini saat ini sangat marak dilakukan oleh banyak orang. Orang bisa saja menjadi kaya raya dan hidup terjamin dengan memiliki saham namun tidak sedikit dari mereka yang harus jatuh miskin dan hidup terkatung-katung karena investasi saham. Memang bidang ini menuntut ketelitian, kesabaran dan keputusan yang bijak dalam menjalankan bisnis dibidang saham ini.

Tidak dapat kita pungkiri lagi, bahwa sekarang kita berada diera teknologi mobile(mobile technologi). Hal itu juga terjadi pada sektor ekonomi. Jika dunia perbankan memiliki mobile banking, kini para pelaku bisnis saham pun dapat menikmati kemudahan produk mobile untuk bisnis mereka. Jika kita mengenal di BEJ(Bursa Efek Jakarta) terdapat remote trading, sedang di BES(Bursa Efek Surabaya) dikenal dengan online trading maka khusus untuk para pelaku bisnis saham khususnya individu dapat juga menikmati informasi mengenai segala sesuatu tentang saham dengan menggunakan sistem informasi mobile trading(SI-MODI)

Dengan mengimplemantasikan aplikasi ini, perusahaan efek tidak perlu lagi mondar-mandir untuk menghubungi tradernya yang bertugas dilantai bursa(trading floor). Pelaku bisnis cukup melakukan order dari kantor perusahaan mereka sendiri karena aplikasi ini dapar dihubungkan(connect) dengan sistem perdagangan BEJ atau istilah yang populernya adalah Jakarta Automated Trading System (JATS). Aplikasi ini memberikan informasi tentang kurs mata uang, posisi saham yang kita miliki berada dalam urutan keberapa, top gainer , top losser, stock buyer dan stock seller. Sistem informasi ini juga dapat diakses dari HP namun informasi yang di terima nasabah melalui ponsel hanya sebatas harga saham yang mencapai top gainer dan top losser, stock buyer dan stock seller. Namun sistem informasi ini sebatas memberikan informasi, untuk melakukan transaksinya harus dilakukan melalui perusahaan yang bersangkutan (berwenang).

Sistem informasi mobile trading(SI-MODI) ini dibangun dengan menggunakan tool C#.net yang mana merupakan bagian dari visual studio.net. Untuk menyimpan data basenya tool yang yang digunakan yaitu SQL server 2000. Untuk akses mobilenya via HP atau webs, sistem informasi ini menyediakan informasi dalam bentuk WML (Wireless Mark-up Language)

Kata kunci : mobile technologi, C#.net, SQL server 2000, WML (Wireless Mark-up Language)

Minggu, 15 Juli 2007

Garuda Menangis

Garuda Menangis

perjuangan tim merah putih melawan tim kuat Arab Saudi dalam lanjutan
patut kompetisi piala asia, 14 juli 2007 diacungi jempol.
Walaupun kalah, merah putih telah memberikan
perlawanan yang cukup mempersulit pasukan Arab Saudi.

kebololan terlebih dahulu tidak membuat mental tim merah putih
jatuh,dengan sebuah persing kagetan elly aeboy menyamakan kedudukan
bahkan beberapa kali tim merah putih hampir menambah keunggulan.

namun tragis.,..pemain merah putih yang tinggal memiliki nyawa sedikit
namun tetap saja tidak ada inisiatif invan kollev untuk melakukan
pergantian....

budi,elly bahkan firman harus kelelahan bahkan tidak bisa berbuat apa-apa
stategi yang dinilai kurang efektif....

saat melakukan pergantian..hal ini malah membuat kemenangan didepan mata
hilang begitu saja. ismed sofyan yang melakukan pelanggaran didaerah
berbahaya yang akhirnya berbuah tendangan bebas memupuskan harapan garuda.
dengan keunggulan jum dan hading...pemain arab saudi merobek gawang tim
idonesia.

namun apapun itu nasi sudah menjadi bubur. kita tetap harus memberikan
acungan jempol untuk tim nasional kita. setidaknya arab saudi tim kuat
dan langganan piala dunia harus berjuang keras hingga menit akhir untuk
memetik kemenangan dari tim kita. dan juga skor yang hanya beda tipis
2-1 merupakan peningkatan bagi tim nasional kita...mengingat seringnya
kita dicukur habis oleh tim-tim kuat.

bravo garuda...kami tetap mendukung mu

Hubungan Kreatifitas, Inovasi dengan Kewirausahaan

Hubungan Kreatifitas, Inovasi dengan Kewirausahaan

mungkin sedikit informasi ini membantu rekan atau teman yang ingin
mengetahui sedikit mengenai bidang kewirausahaan. adapun informasi
ini saya dapatkan saat saya mengambil mata kuliah kewirausahaan
dikampus saya.


Inovasi

Inovasi adalah proses menemukan atau mengimplementasikan sesuatu
yang baru ke dalam situasi yang baru. Konsep kebaruan ini berbeda
bagi kebanyakan orang karena sifat nya relative (apa yang dianggap
baru oleh seseorang atau pada suatu konteks dapat menjadi sesuatu
yang meruapakan lama bagi orang lain dalam konteks lain)

Inovasi adalah memikirkan dan melakukan sesuatu yang baru yang menambah
atau menciptakan nilai-nilai manfaat(social/ekonomik) (Gde Raka,2001).
Untuk menghasilkan perilaku inofatif seseorang harus melihat inovasi
secara mendasar sebagai proses yang dapat dikelola (John Adair,1996)


Kreativitas
Kreativitas merupakan memikirkan sesuatu,kemampuan seseorang untuk
melahirkan sesuatu yang baru baik berupa gagasan maupun karya nyata
yang relative berbeda dengan apa yang telah ada sebelumnya.


Kreatif
Menghadirkan sesuatu benda atau hal yang sebelumnya sama sekali belum
ada untuk dipergunakan. Ide yang kratif dikaitkan dengan ide yang baru
paling tidak untuk orang yang bersangkutan Ide kreatif ini dapat melibatkan
sebuah usaha penggabungan du ahal atau lebih ide-ide secara langsung (John Adair,1996)


Krativitas dan inovasi
Inovasi dan kerativitas berbeda wilayah domain yang sama,teapi memiliki
batasan yang tegas. Kreatifitas merupakan langkah pertama menuju inovasi
yang terdiri atas berbagai tahap. Kreatifitas berkaitan dengan produksi
kebaruan dan ide yang bermanfaat sedangkan inovasi berkaitan dengan produksi
atau adopsi ide yang bermanfaat dan implementasinya


Wirausaha
Wirausaha adalah kemampuan yang dimiliki oleh seseorang untuk melihat
dan menilai kesempatan-kesempatan bisnis, mengumpulkan sumber daya-sumber
daya yang dibutuhkan untuk mengambil tindakan yang tepat
dan mengambil keuntungan dalam rangka meraih sukses.


Kewirausahaan
Kewirausahaan pada hakekatnya adalah sifat, ciri dan watak seseorang
yang memiliki kemauan dalam mewujudkan gagasan inovatif ke dalam
dunia nyata secara kreatif.

Untuk memenangkan persaingan, maka seorang wirausahawan harus memiliki
daya kreativitas yang tinggi. Daya kreatifitas tersebut sebaiknya adalah
dilAndasi oleh cara berpikir yang maju, penuh dengan gagasan-gagasan
baru yang berbeda dengan produk-produk yang telah ada selama ini di pasar.

Gagasan-gagasan yang kreatif umumnya tidak dapat dibatasi oleh ruang,
bentuk ataupun waktu. Justru seringkali ide-ide jenius yang memberikan
terobosan-terobosan baru dalam dunia usaha awalnya adalah dilAndasi
oleh gagasan-gagasan kreatif yang kelihatannya mustahil.

Namun,gagasan-gagasan yang baikpun, jika tidak diimplementasikan dalam
kehidupan sehari-hari, hanya akan menjadi sebuah mimpi.
Gagasan-gagasan yang jenius umumnya membutuhkan daya inovasi yang tinggi
dari wirausahawan yang bersangkutan. Kreativitas yang tinggi tetap
membutuhkan sentuhan inovasi agar laku di pasar.

Inovasi yang dibutuhkan adalah kemampuan wirausahawan dalam menambahkan
nilai guna/nilai manfaat terhadap suatu produk dan menjaga mutu produk
dengan memperhatikan “market oriented” atau apa yang sedang laku dipasaran.
Dengan bertambahnya nilai guna atau manfaat pada sebuah produk,
maka meningkat pula daya jual produk tersebut di mata konsumen,
karena adanya peningkatan nilai ekonomis bagi produk tersebut bagi konsumen.

untuk menjadi wirausaha yang berhasil, persyaratan utama yang harus dimiliki
adalah memiliki jiwa dan watak kewirausahaan. Jiwa dan watak kewirausahaan tersebut
dipengaruhi oleh keterampilan, kemampuan, atau kompetensi.
Kompetensi itu sendiri ditentukan oleh pengetahuan dan pengalaman usaha.

seseorang wirausaha adalah seseorang yang memiliki jiwa dan kemampuan tertentu
dalam berkreasi dan berinovasi. Ia adalah seseorang yang memiliki kemampuan untuk
menciptakan sesuatu yang baru dan berbeda (ability to create the new and different)
atau kemampuan kreatif dan inovatif. Kemampuan kreatif dan inovatif tersebut secara
riil tercermin dalam kemampuan dan kemauan untuk memulai usaha (start up),
kemampuan untuk mengerjakan sesuatu yang baru (creative), kemauan dan kemampuan untuk
mencari peluang (opportunity), kemampuan dan keberanian untuk menanggung
risiko (risk bearing) dan kemampuan untuk mengembangkan ide dan meramu sumber daya.
Kemauan dan kemampuan-kemampuan tersebut diperlukan terutama untuk:
a.Melakukan proses/ teknik baru (the new technik)
b.Menghasilkan produk atau jasa baru (the new product or new service),
c.Menghasilkan nilai tambah baru (the new value added),
d.Merintis usaha baru (new businesess), yang mengacu pada pasar
e.Mengembangkan organisasi baru (the new organisaton).

Sabtu, 14 Juli 2007

Technopreneur dan Social Entrepreneur

Technopreneur dan Social Entrepreneur


mungkin sedikit informasi ini membantu rekan atau teman yang ingin
mengetahui sedikit mengenai bidang kewirausahaan. adapun informasi
ini saya dapatkan saat saya mengambil mata kuliah kewirausahaan
dikampus saya.


Technopreneur
Senator Nurbahagia, staf pengajar Fakultas Teknik Industri dan Pascasarjana
Institut Teknologi Bandung (ITB), mengungkapkan, technopreneur adalah salah satu
bentuk usaha dengan karakteristik yang berbeda dengan kewirausahaan biasa.
Technopreneur menggabungkan antara teknologi dan pasar yang akhirnya bermuara pada bisnis.
technopreneur merupakan orang yang memulai bisnis berbasis pada inovasi teknologi.
Orang macam ini, kata Senator, harus memiliki sejumlah sikap pendukung di antaranya
memiliki keinginan kuat untuk mengejar prestasi, memiliki kemampuan konseptual,
dan kekuatan memecahkan masalah yang tinggi. Selain itu, mereka juga harus memiliki
wawasan dan cara pikir yang luas, percaya diri tinggi dan toleran, berani mengambil risiko,
realistis, punya kemampuan interpersonal, dan mampu menahan emosi.
Menurut : Senator Nurbahagia, staf pengajar Fakultas Teknik Industri dan Pascasarjana Institut Teknologi Bandung (ITB).
Sumber : republika.co.id

Seseorang yang mempunyai kreativitas suatu bisnis baru dalam menghadapi resiko dan
ketidakpastian yang bertujuan untuk pencapaian laba dan pertumbuhan usaha berdasarkan
identifikasi peluang dan mendayagunakan sumber-sumber serta memodali peluang tersebut
Sumber : powerpoint dari Hj. Ernie Tisnawati Sule, SE, MSi Asep Mulyana, SE, Dipl. Koop.oek

Pengusaha bidang teknologi (Technopreneur), khususnya informasi (TI)
Sumber : detik.com

technopreneur sebagai pengusaha yang membangun bisnisnya berdasarkan kemampuan
di bidang ilmu pengetahuan dan teknologi.
Menurut : Amir Sambodo
Sumber : http://www.republika.co.id/koran_detail.asp?id=141443&kat_id=105&kat_id1=149&kat_id2=



Social Entrepreneur.
Social entrepreneur adalah individu yang melakukan pendekatan masalah social
dengan semangat wirausaha dan intuisi bisnis. Kalau wirausaha menciptakan bisnis
maka social entrepreneurs menciptakan perubahan.

Kalau yang tujuh tipe diatas (ENTREPRENEUR (WIRAUSAHAWAN) :
- ADVISER,
- BUILDER,
- BROKER,
- CARE TAKER,
- CREATOR,
- OWNER,
- SELLER (ACCOUNT,PRODUCT,RETAIL))
terkait dengan bisnis maka tipe yang ini (Social Entrepreneur) tidak terkait dengan bisnis.
Social entrepreneur biasanya energik, persisten, dan umumnya percaya diri dengan kemampuan
untuk memberikan inspirasi kepada yang lainnya untuk bergabung.
Umumnya mereka merasa bertanggung jawab atas suatu misi tertentu.
Social entrepreneur umumnya pragmatik, bisa menjelaskan rencananya dengan rinci
dan sangat independen walaupun bukan orang yang penyendiri.
Sumber : http://www.stmik-mdp.net/tes_bakat.pdf.

Jumat, 13 Juli 2007

Dasar Bahasa Pascal - Lesson 9

pemograman

dasar pascal - lesson 9


PERINTAH INPUT - OUTPUT
3. Perintah Output (write atau writeln )
Perintah digunakan untuk menyajikan data ke default output - key-board.
SYNTAX Write(x); atau writeln(x);
Contoh:
write('TES');
Perintah ini akan menampilkan teks string TES ke layar monitor pada posisi kursor
sebelum perintah write dilaksanakan. Setelah menyajikan ke layar,
kursor pindah ke ujung teks TES pada baris yang sama.
writeln('TES');
Perintah ini akan menampilkan teks TES ke layar monitor pada posisi kursor
sebelum perintah write dilaksanakan. Setelah menyajikan ke layar,
kursor pindah ke awal baris berikutnya.

program luas_PersegiPanjan_01;
{Program untuk menghitung luas bangun empat persegi panjang.
input dibaca dari keyboard dan output ditampilkan ke layar monitor }
uses wincrt;
var panjangPSP, lebarPSP, luasPSP : integer;
{ Mendeklarasikan variable panjang, lebar dan luas persegi panjang sebagai integer. }
BEGIN { Program MULAI }
{ Membaca dari data panjang dan lebar persegi panjang;
default input unit dan default format dengan memberikan pentunjuk ke pemakai tanpa ganti baris.
Setelah membaca data kursor pindah ke baris baru. }
write('Panjang = '); readln(panjangPSP);
write('Leabar = '); readln(lebarPSP); { Menghitung luas persegi panjang. }
luasPSP := panjangPSP * lebarPSP;
{ Menyajikan hasil hitungan luas persegi panjang ke unit default output dan default format.
Setelah menyajikan kursor pindah ke baris baru. }
writeln('Luas = ', luasPSP);
END. { Program SELESAI }

Catatan: Argumen perintah writeln boleh berupa ekspresi.
Contoh perintah penyajian writeln('Luas = ', luasPSP); bisa dikerjakan dengan perintah:
writeln('Luas = ', panjangPSP * lebarPSP);

Dasar Bahasa Pascal - Lesson 8

pemograman

dasar pascal - lesson 8


PERINTAH INPUT - OUTPUT
1. Assignment
Komputer bisa mengolah dan menampilkan sesuatu yang ada di dalam memori.
Merupakan cara tersederhana untuk "menempatkan" (assign) data ke memori.

Contoh:
program luas_PersegiPanjan_00; {Program untuk menghitung luas bangun empat persegi panjang} uses wincrt;
var panjangPSP, lebarPSP, luasPSP : integer;
{Mendeklarasikan variable panjang, lebar dan luas persegi panjang sebagai integer}
BEGIN {Program MULAI}
panjangPSP := 25;
lebarPSP := 20;
luasPSP := panjangPSP * lebarPSP;
END. {Program SELESAI}


2. Perintah Input (read atau readln)
Perintah digunakan untuk membaca data dari default input - keyboard.
SYNTAX read(x); atau readln(x);

Contoh:
program luas_PersegiPanjang_00;
{ Program untuk menghitung luas bangun empat persegi panjang. }
uses wincrt;
var panjangPSP, lebarPSP, luasPSP :integer;
{ Mendeklarasikan variable panjang, lebar dan luas persegi panjang sebagai integer. }
BEGIN { Program MULAI }
{ Membaca dari data panjang dan lebar persegi panjang,
default input unit dan default format tanpa ganti baris}
read(panjangPSP);
readln(lebarPSP);(pengisian variabel pertama dan kedua dipisahkan dengan spasi)
luasPSP:=panjangPSP*lebarPSP;{Menghitung luas persegi panjang}
END. { Program SELESAI }


Perintah read atau readln dapat digunakan untuk membaca data
lebih dari satu sekaligus dengan berbagai format.

Contoh:
program bacaCampuran; { Membaca data sekaligus menggunakan perintah read }
uses wincrt;
var nimMHS : character;
umurMHS : integer;
statusMHS: boolean;
BEGIN
readln(nimMHS,umurMHS,statusMHS);
{setelah mengisi semua variabel , harus diikuti dengan Enter}
END.

Dasar Bahasa Pascal - Lesson 7

pemograman

dasar pascal - lesson 7


4. Operator
Beberapa operator yang disediakan oleh PASCAL:
1. Aritmatika
2. Boolean
3. Relasional
4. Set


Tabel 2. Operator Aritmatika PASCAL
Operator Operasi Tipe Operand Tipe Hasil Operasi
+ Penjumlahan Integer, real Integer, real
- Pengurangan Integer, real Integer, real
* Perkalian Integer, real Integer, real
/ Pembagian Integer, real Integer, real
div Pembagian integer, integer integer
mod Sisa pembagian integer, integer integer

Contoh :
9 + 2 (hasil: 11)
9 - 2 (hasil: 7)
9 * 2 (hasil: 18) 9 / 2 (hasil: 4.5)
9 div 2 (hasil: 4)
9 mod 2 (hasil: 1)


Tabel 3. Operator Boolean PASCAL
Operator Operasi Tipe Operand Tipe Hasil Operasi
not negasi boolean boolean
and logika ‘and’ boolean boolean
or logika ‘or’ boolean boolean
xor logika ‘xor’ boolean boolean
Contoh:
A dan B suatu variabel boolean
A not (A)
TRUE FALSE
FALSE TRUE

A B A and B A or B A xor B
TRUE TRUE TRUE TRUE FALSE
TRUE FALSE FALSE TRUE TRUE
FALSE TRUE FALSE TRUE TRUE
FALSE FALSE FALSE FALSE FALSE


Tabel 3. Operator Relasional
Operator Operasi Tipe Operand Tipe Hasil Operasi
= Sama dengan sederhana,string,pointer,set boolean
<> Tidak sama dengan sederhana,string,pointer,set boolean
< Lebih kecil dari sederhana,string boolean
> Lebih besar dari sederhana,string boolean
<= Lebih kecil atau = sederhana,string boolean
>= Lebih besar atau = sederhana,string boolean

Contoh:
Misal suatu variable A:=9 dan B:=2,
maka:
A = B (hasil: FALSE);
A <= B (hasil: FALSE) A <> B (hasil: TRUE);
A >= B (hasil: TRUE)
A < B (hasil: FALSE)
A > B (hasil: TRUE)


4. Operasi pada Set
a. Operasi Relasional pada Set
Ada empat perbandingan relasional yang diperkenankan pada set.
Tabel 4. Operator Relasional pada set

Operator Operasi Tipe Operand Tipe Hasil Operasi
= Sama dengan Set,set boolean
<> Tidak sama dengan Set,set boolean
<= Lebih kecil atau = Set, set boolean
>= Lebih besar atau = Set, set boolean

Misal
A dan B adalah merupakan dua buah set.
A = B : mempunyai hasil True jika A dan B memiliki anggota-anggota yang sama.
Contoh: [Sun, Tue, Fri] = [Tue, Fri, Sun].
A <> B: mempunyai hasil True jika A dan B memiliki anggota-anggota yang tidak sama.
A <= B : menunjukkan bahwa A adalah subset dari B.
Contoh: Jika A berisi [Sun, Mon, Tue] dan B berisi [Sun, Mon, Tue, Wed, Thu],
maka A adalah merupakan subset dari B dan ekspresi menghasilkan nilai True.
A >= B : menunjukkan bahwa A adalah superset dari B.
Contoh: Jika A berisi [Sun..Sat] dan B berisi [Mon..Fri],
maka A adalah merupakan superset dari B dan ekspresi menghasilkan nilai True.

b. Operasi Logika pada Set
Ada tiga operasi logika pada set.
Tabel 5. Operator Logika pada set
Operator Operasi Tipe Operand Tipe Hasil Operasi
+ Union Set Set
- Difference Set Set
* Intersection Set Set
Misal:
+ atau Union: [Sun, Mon, Tue, Wed] + [Mon, Thu, Fri]
menghasilkan [Sun, Mon, Tue, Wed, Thu, Fri].
- atau Difference: [Sun, Mon, Tue, Wed] - [Mon, Tue, Fri]
menghasilkan [Sun, Tue, Wed], yang merupakan anggota dari
set pertama yang bukan anggota set yang kedua.
* atau Intersection: [Sun, Mon, Tue, Wed] * [Mon, Tue, Fri] menghasilkan
[Mon,Tue], yang merupakan anggota kedua set.


5. Ekspresi
Merupakan kombinasi antara operator dan operand. Ekspresi matematik yang terjadi
dalam dunia nyata diterjemahkan kedalam bahasa Pascal dengan sedikit perubahan tanda.
Contoh:
Ekspresi matematika Ekspresi PASCAL
• a + b • a + b
• x ( y + z ) • x * ( y + z )
• b2 - 4ac • b * b - 4*a*c
Contoh: Bila dideklarasikan var i, j: integer; maka, i + j adalah ekspresi aritmatik
(menghasilkan suatu bilangan integer) i < j adalah ekspresi boolean
(menghasilkan logika TRUE atau FALSE)


6. Fungsi Matematik Standar dalam PASCAL
Tabel 6. Beberapa fungsi matematik standar yang disediakan oleh PASCAL
Nama Fungsi Deskripsi Tipe Argumen Tipe Hasil Operasi
abs absolute value real/integer real/integer
arctan arctan (radian) Real/integer real
cos cosine (radian) real/integer real
sin sin (radian) real/integer real
exp fungsi Perpangkatan e real/integer real
ln ln real/integer real
round Pembulatan terdekat real integer
sqr kuadrat real/integer real/integer
sqrt Akar kuadrat real/integer real
trunc Pembulatan ke bawah real/integer integer

Contoh :
Abs(-11) (hasil: 11)
Round(10.6) (hasil: 11)
Trunc(10.6) (hasil: 10)
Sqrt(4) (hasil: 2)
Sqr(4) (hasil: 16)
Untuk fungsi trigonometri:
x = sin phi menjadi x:=sin (3.1416);

Dasar Bahasa Pascal - lesson 6

pemograman

dasar pascal - lesson 6


Tipe Data Terstruktur
tipe ini terdiri atas : array, record, set, dan file.
String adalah tipe data jenis array, tetapi karena string memiliki kekhasan tersendiri sebagai
array dari karakter maka penulis perlu memberikan penjelasan tersendiri. Sedangkan untuk array, record,
dan file perlu dijelaskan dalam bab yang lain karena agak banyak hal-hal yang perlu dibahas.


-Tipe Data Pointer
pointer merupakan variabel khusus yang berisi suatu address (alamat) di lokasi lain didalam memory.
Suatu variabel yang points(menunjuk) ke sesuatu sehingga disebut pointer.
Ada dua macam pointer:
-typed(tertentu):
merupakan pointer yang menunjuk pada tipe data tertentu pada variable.
-generic(umum):
merupakan pointer yang tidak menunjuk pada tipe data tertentu pada variable.
Contoh deklarasi pointer:
var p : ^integer;
Contoh di atas merupakan deklarasi variabel p sebagai pointer dari integer.
Dengan menambahkan tanda caret (^) di depan nama tipe data variabel yang dideklarasikan:
contoh :
program contoh_pointer1;
uses wincrt;
var p : ^integer;
m, n : integer;
begin
m:=10;
n:=15;
p:=@m; { p sekarang menunjuk ke m }
p^:=12; { hal ini sama dengan m:=12; }
p:=@n; { p sekarang menunjuk ke n }
p^=m; { { hal ini sama dengan n:=m; }
writeln('m = ',m,', n = ',n); { m = 12, n = 12 }
end.
Ketika p menunjuk ke m ( p:=@m;), mengakses p^ sama dengan mengakses m.
Dalam membuat program, dalam penggunaan pointer kita memerlukan alokasi memori tertentu:
Ketika kita mendeklarasikan variabel pointer dalam "var" sehingga merupakan suatu static variable,
yang mana Static variable ini dibatasi oleh kapasitas 64KB untuk tiap module.
Yang berarti dalam program utama kita hanya bisa menggunakan hanya 64KB dan tiap unit Pascal
hanya bisa memakai 64KB. Sehingga kita perlu memecahkan program kebeberapa unit.
Salah satu teknik yang dipakai untuk mengatasi persoalan ini adalah seperti program berikut.

Program contoh_pointer2;
uses wincrt;
Type Pemployee = ^Temployee;
Temployee = record Name : string[10];
Position : char;
Salary : longint;
end;
var p : pemployee;
begin
new(p);
p^.name:='Saddam';
p^.position:='S';
p^.salary:=3000;
writeln(p^.name,' ',p^.position,' ',p^.salary);
dispose(p);
end.
Pada blok begin...end blok, kita bisa melihat meskipun p tidak menunjuk pada suatu variable
tetapi dapat diisi dengan nilai. Pernyataan new(p); tidak memerlukan alokasi memori.
Setelah itu kita bisa melakukan apapun pada variabel tersebut sampai kita membuangnya dari memori dengan
memakai perintah dispose(p);. Variable dengan cara ini dinamakan dengan dynamic variable.

Generic Pointer
adalah pointer tanpa tipe data tertentu.
Biasanya, pointer berkaitan dengan tipe data khusus, sedangkan generic pointer tidak.
Deklarasi:
Var P : pointer;
Dipergunakan sebagai buffer sementara (tidak permanen). Sehingga kita bisa melepasnya untuk suatu saat
tidak diperlukan. Untuk itu pointer sangat bagus karena sifatnya yang dinamis.
Tetapi, generic pointer tidak sama dengan typed pointer. Typed pointer menggunakan "new" untuk menampung memori
dan "dispose" untuk melepasnya. Generic pointer menggunakan "getmem" untuk mendapatkan memori dan "freemem"
untuk melepasnya. Pada pointer dengan tipe tertentu, program Pascal mengetahui ukuran dari memori yang harus
dilaokasikan, sedangkan tipe umum (generic pointer) Pascal tidak bisa, karena Pascal tidak mengetahui variabel
apa yang akan dipakai. Sehingga dengan getmem kita perlu untuk menentukan berapa besar memori yang akan kita
alokasikan. Ukuran terbesar adalah 65532 bytes (hampir 64K).

Program contoh_pointer2;
uses wincrt;
Var P : pointer;
Begin
Getmem(p,8192); { Reserve 8192 bytes }{ We use it then }
freemem(p,8192); { Release it, 8192 bytes }
end.

Dasar Bahasa Pascal - Lesson 5

pemograman

dasar pascal - lesson 5


Tipe Data Terstruktur
tipe ini terdiri atas : array, record, set, dan file.
String adalah tipe data jenis array, tetapi karena string memiliki kekhasan tersendiri sebagai
array dari karakter maka penulis perlu memberikan penjelasan tersendiri. Sedangkan untuk array, record,
dan file perlu dijelaskan dalam bab yang lain karena agak banyak hal-hal yang perlu dibahas.


b. Tipe Data Set
Sebuah set merupakan suatu himpunan yang berisi nilai (anggota). set merupakan Tipe data yang khusus untuk Pascal.
Set dalam pemrograman sangat mirip dengan himpunan dalam ilmu matematika,
contoh: A = { 1, 2, 3, 4, 5 }
Syntax: set of contoh:
type Digits = set of 0..9;
Letters = set of 'A'..'Z';
type Day = (Sun, Mon, Tue, Wed, Thu, Fri, Sat);
CharSet = set of Char;
Digits = set of 0..9;
Days = set of Day;
const EvenDigits: Digits = [0, 2, 4, 6, 8];
Vowels: Letters = ['A', 'E', 'I', 'O', 'U', 'Y'];
Kita tidak bisa menulis atau membaca isi dari set, tetapi kita bisa melakukan operasi yang lain dengan data
yang ada pada set (mis. relasional).
Contoh:
Program contoh_set;
Uses wincrt;
type hari = (ahad, sen, sel, rab, kam,jum, Sab);
var semua_hari : set of hari;
hari_kerja : set of sen .. jum;
hari_ini : hari;
begin
hari_ini:=sen;
if hari_ini in hari_kerja then
writeln('HARI INI HARI KERJA')
else
writeln('HARI LIBUR');
end.
Salah satu manfaat dari penggunaan tipe data set adalah untuk mengecek apakah suatu nilai muncul dalam
suatu range tertentu. Misalnya, untuk mementukan apakah suatu karakter berupa lower case letter (huruf kecil),
mis. Ch adalah tipe Char, kita bisa menulis,
if (Ch >= 'a') and (Ch <= 'z') then Writeln( Ch,' merupakan huruf kecil.');
atau, dengan notasi set, kita bisa menulis ,
if Ch in ['a'..'z'] then Writeln( Ch,' merupakan huruf kecil.');

Dasar Bahasa Pascal - Lesson 4

pemograman

dasar pascal - lesson 4


Tipe Data Terstruktur
tipe ini terdiri atas : array, record, set, dan file.
String adalah tipe data jenis array, tetapi karena string memiliki kekhasan tersendiri sebagai
array dari karakter maka penulis perlu memberikan penjelasan tersendiri. Sedangkan untuk array, record,
dan file perlu dijelaskan dalam bab yang lain karena agak banyak hal-hal yang perlu dibahas.

a. Tipe Data String String
merupakan suatu data yang menyimpan array (larik), sebagai contoh 'ABCDEF' merupakan sebuah konstanta
string yang berisikan 6 byte karakter. Ukuran Tempat untuk tipe data ini adalah 2 s/d 256 byte,
dengan jumlah elemen 1 s/d 255. String dideklarasikan dengan string [ konstanta ] atau string.
Bila ukuran string tidak didefinisikan maka akan banyak memakan ruang, karena ukuran string menyesuaikan
dengan defaultnya.
Misalkan var kata: string [20]; atau var kata: string;
karena string merupakan array dari karakter. Maka kata[1] merupakan karakter pertama dari string,
kemudian kata[2], merupakan elemen kedua, dst.

Contoh:
Program hal_string;
Uses wincrt;
var s : string;
begin s:='Hello';
writeln(s);
writeln('panjang dari string adalah: ',ord(s[0]));
end.


Karakter nol merupakan karakter yang menyatakan panjang string. Sehingga ord(s[0]) menyatakan panjang
dari string tersebut. Panjang string juga bisa dinyatakan sebagai length(s).
routines pada Pascal untuk manipulasi string :

-Length : menghasilkan panjang string.
Syntax : length(s)
Contoh : n:=length(s);
Misal s:='pemrograman'; n akan sama dengan 11.

-Copy : mengkopi suatu ekstrak karakter dari sebuah string.
Syntax : copy(s,dari,banyaknya)
Contoh : st:=copy(s,5,3); mengekstrak 3 karakter dari s, dimulai dari karakter kelima.
Misal s:='Who are you ?'; st adalah 'are'.
catatan: bila indek lebih bear dari panjang string maka hasilnya akan kosong:
Contoh : st:=copy(s,15,4); { kosong} jika banyaknya string yang akan diekstrak lebih besar dari s,
maka hasilnya adalah bagian yang tersisa dari string.
Contoh : st:=copy(s,9,10); st hasilnya adalah 'you ?'

-Pos : menghasilkan posisi dari suatu substring dari suatu string.
Syntax : Pos(substr,s)
Contoh : n:=pos('are','Who are you ?'); { n:=5; }
Jika substring tidak ditemukan, maka hasilnya 0.

-Val : mengkonversi string ke numerik.
Syntax : val(strvar,numvar,errorcode)
strvar adalah variabel string yang akan dikonversi, numvar variabel numerik ( bisa integer atau real,
dan errorcode adalah variabel integer yang menyimpan error code (kode kesalahan).
Jika errorcode adalah 0, konversi berhasil. Sebaliknya, hal ini akan menunjukan posisi dimana pada
strvar yang menyebabkan kegagalan.
Contoh :
program konversiangka;
uses wincrt;
var s : string;
e : integer; r : real;
begin
write('masukkan angka : ');
readln(s);
val(s,r,e);
if e<>0 then writeln('salah pada posisi : ',e)
else writeln('itu adalah : ',r:4:3);
end.

-Str : mengkonversi numerik ke string.
Syntax : str(numvar,strvar)
Contoh :
program konversiangka_1;
uses wincrt;
var s : string;
i : integer;
begin
write('masukkan angka: ');
readln(i);
str(i,s);
writeln('itu adalah: ',s);
end.

-Concat : Menggabungkan dua atau lebih string.
Syntax : concat(s1,s2,...,sn)
Contoh : st:=concat(s1,s2); Jikas1='ABC' dan s2='DEF',
st akan menjadi 'ABCDEF' st:=concat('Borland ','Pascal ','ver. ','7.0');
akan menjadi 'Borland Pascal ver. 7.0'

-Insert : Menyisipkan suatu string ke dalam string yang lain.
Syntax : insert(asal,target,indek)
Contoh :
program sisip ;
uses wincrt;
var s1, s2 : string;
begin
s1:='tidak ';
s2:='saya bekerja';
insert(s1,s2,6);
writeln(s2); {saya tidak bekerja }
end.
Jika hasilnya lebih dari 255 maka akan terpotong menjadi 255.

-Delete : menghapus n karakter dari string s berawal dari indek i.
Syntax : delete(s,i,n);
Contoh :
program hapus;
uses wincrt;
var s : string;
begin
s:='saya seorang insinyur';
delete(s,6,3);
writeln(s); { 'saya sang insinyur'}
end.

-Fillchar : mengisi string s dengan karakter c sampai s sama dengan n-1 panjang karakternya.
Syntax : fillchar(s,n,c); Hati-hati : s[0] akan tertumpuki,
jangan lupa menambahkan s[0]:=chr(n-1); untuk menormalkannnya.
Contoh :
program isikarakter;
uses wincrt;
var s : string;
begin
fillchar(s,51,'=');
s[0]:=chr(50);
end.

Dasar Bahasa Pascal - Lesson 3

pemograman

Dasar Bahasa PASCAL - lesson 2

Tipe Data
Tipe data yang disediakan oleh PASCAL meliputi:
1. Tipe Data Sederhana
merupakan tipe data dasar yang sering dipakai oleh program, meliputi:
integer (bilangan bulat), real (bilangan pecahan), char (alphanumerik dan tanda baca),
dan boolean (logika). Untuk data integer dan real masing-masing terbagi menjadi beberapa kategori
a. Bilangan Integer
merupakan tipe data berupa bilangan bulat, terbagi atas beberapa kategori seperti
terlihat dalam keterangan dibawah.
keterangan dibawah menunjukkan jenis data, ukuran dalam memori dan rentang nilainya.

Tipe Data Ukuran Tempat Rentang Nilai
Byte 1 byte 0 s/d +255
Shortint 1 byte -28 s/d +127
integer 2 bytes -32768 s/d 32767
Word 2 bytes 0 s/d 65535
Longint 4 bytes 2147483648 s/d 2147483647

Contoh bilangan integer adalah: 34 6458 -90 0 1112 Penggolongan tipe data integer tersebut
dimaksudkan untuk membatasi alokasi memori yang dibutuhkan misalkan untuk suatu perhitungan
dari suatu variabel bilangan diperkirakan nilai maksimumnya 32767 kita cukup mendeklarasikan
variabel bilangan sebagai integer (2 byte), daripada sebagai longint(4 byte). Di dalam kompilernya,
Pascal menyediakan konstanta untuk bilangan Integer yaitu: MaxInt and MaxLongInt, pemrogram bisa
menggunakannya di dalam programnya tanpa harus terlebih dahulu mendefinisikannya.
-MaxInt bernilai 32.767
-MaxLongint bernilai 2.147.483.647.

contoh:
Program display_maxint;
uses wincrt;
begin writeln (maxint)
end.
maka Hasilnya: 32.767

b. Bilangan Real
Bilangan real atau nyata merupakan jenis bilangan pecahan, dapat dituliskan
secara biasa atau model scientific . Contoh bilangan real: 34.265 -3.55 0.0 35.997E+11,
dimana E merupakan simbol perpangkatan 10. Jadi 452.13 mempunyai nilai sama dengan 4.5213e2.
Penggolongan tipe data bilangan real dapat dilihat pada keterangan dibawah.
keterangan dibawah mengenai Bilangan Real

Tipe Data Ukuran Tempat Rentang Nilai
real 6 bytes 2.9 x 10-39 s/d 1.7 x1038
single 4 bytes 1.5 x 1045 s/d 3.4 x 1038
double 8 bytes 5.0 x 10-324 s/d 1.7 x 10308
extended 10 bytes 3.4 x 10-4932 s/d 1.1 x 104932
comp 8 bytes -9.2x 1018 s/d 9.2x 1018

c. Char
tipe data ini menyimpan karakter yang diketikkan dari keyboard, memiliki 266 macam yang terdapat
dalam tabel ASCII (American Standard Code for Information Interchange).
Contoh: 'a' 'B' '+', dsb. Yang perlu diingat bahwa dalam menuliskannya harus
dengan memakai tanda kutip tunggal. Jenis data ini memerlukan alokasi memori sebesar 1(satu) byte
untuk masing-masing data.

d. Tipe Data Boolean
merupakan tipe data logika, yang berisi dua kemungkinan nilai: TRUE (benar) atau FALSE (salah).
Turbo Pascal for Windows memiliki tiga macam jenis ini yaitu: Boolean, WordBool, dan LongBool.
Tipe boolean memakai memori paling kecil, sedangkan WordBool dan LongBool dipakai untuk menulis program
yang sesuai dengan lingkungan Windows.
keterangan mengenai bolean

Tipe Data Ukuran Tempat
Boolean 1 byte
WordBool 2 byte
Longbool 3 byte

Sebagai bilangan ordinal boolean true mempunyai nilai 1(satu), sedangkan false nilainya adalah 0(nol).
Contoh:
Program display_bool;
uses wincrt;
begin writeln(ord(true));
writeln(ord(false));
end.
Hasilnya: 1 0 3.2.

Senin, 09 Juli 2007

Dasar Bahasa PASCAL - lesson 2

pemograman

Dasar Bahasa PASCAL - lesson 2

Tipe Data
Tipe data yang disediakan oleh PASCAL meliputi:
1. Tipe Data Sederhana
merupakan tipe data dasar yang sering dipakai oleh program, meliputi:
integer (bilangan bulat), real (bilangan pecahan), char (alphanumerik dan tanda baca),
dan boolean (logika). Untuk data integer dan real masing-masing terbagi menjadi beberapa kategori
a. Bilangan Integer
merupakan tipe data berupa bilangan bulat, terbagi atas beberapa kategori seperti
terlihat dalam keterangan dibawah.
keterangan dibawah menunjukkan jenis data, ukuran dalam memori dan rentang nilainya.

Tipe Data Ukuran Tempat Rentang Nilai
Byte 1 byte 0 s/d +255
Shortint 1 byte -28 s/d +127
integer 2 bytes -32768 s/d 32767
Word 2 bytes 0 s/d 65535
Longint 4 bytes 2147483648 s/d 2147483647

Contoh bilangan integer adalah: 34 6458 -90 0 1112 Penggolongan tipe data integer tersebut
dimaksudkan untuk membatasi alokasi memori yang dibutuhkan misalkan untuk suatu perhitungan
dari suatu variabel bilangan diperkirakan nilai maksimumnya 32767 kita cukup mendeklarasikan
variabel bilangan sebagai integer (2 byte), daripada sebagai longint(4 byte). Di dalam kompilernya,
Pascal menyediakan konstanta untuk bilangan Integer yaitu: MaxInt and MaxLongInt, pemrogram bisa
menggunakannya di dalam programnya tanpa harus terlebih dahulu mendefinisikannya.
-MaxInt bernilai 32.767
-MaxLongint bernilai 2.147.483.647.

contoh:
Program display_maxint;
uses wincrt;
begin writeln (maxint)
end.
maka Hasilnya: 32.767

b. Bilangan Real
Bilangan real atau nyata merupakan jenis bilangan pecahan, dapat dituliskan
secara biasa atau model scientific . Contoh bilangan real: 34.265 -3.55 0.0 35.997E+11,
dimana E merupakan simbol perpangkatan 10. Jadi 452.13 mempunyai nilai sama dengan 4.5213e2.
Penggolongan tipe data bilangan real dapat dilihat pada keterangan dibawah.
keterangan dibawah mengenai Bilangan Real

Tipe Data Ukuran Tempat Rentang Nilai
real 6 bytes 2.9 x 10-39 s/d 1.7 x1038
single 4 bytes 1.5 x 1045 s/d 3.4 x 1038
double 8 bytes 5.0 x 10-324 s/d 1.7 x 10308
extended 10 bytes 3.4 x 10-4932 s/d 1.1 x 104932
comp 8 bytes -9.2x 1018 s/d 9.2x 1018

c. Char
tipe data ini menyimpan karakter yang diketikkan dari keyboard, memiliki 266 macam yang terdapat
dalam tabel ASCII (American Standard Code for Information Interchange).
Contoh: 'a' 'B' '+', dsb. Yang perlu diingat bahwa dalam menuliskannya harus
dengan memakai tanda kutip tunggal. Jenis data ini memerlukan alokasi memori sebesar 1(satu) byte
untuk masing-masing data.

d. Tipe Data Boolean
merupakan tipe data logika, yang berisi dua kemungkinan nilai: TRUE (benar) atau FALSE (salah).
Turbo Pascal for Windows memiliki tiga macam jenis ini yaitu: Boolean, WordBool, dan LongBool.
Tipe boolean memakai memori paling kecil, sedangkan WordBool dan LongBool dipakai untuk menulis program
yang sesuai dengan lingkungan Windows.
keterangan mengenai bolean

Tipe Data Ukuran Tempat
Boolean 1 byte
WordBool 2 byte
Longbool 3 byte

Sebagai bilangan ordinal boolean true mempunyai nilai 1(satu), sedangkan false nilainya adalah 0(nol).
Contoh:
Program display_bool;
uses wincrt;
begin writeln(ord(true));
writeln(ord(false));
end.
Hasilnya: 1 0 3.2.

Dasar Bahasa PASCAL - lesson 1

pemograman

Dasar Bahasa PASCAL - lesson 1

Unsur-unsur Pemrograman
a. Mendapatkan data dengan membaca data dari default input (key board, file atau sumber data lainnya).
b. Menyimpan data ke dalam memori dengan struktur data yang sesuai,
c. Memproses data dengan instruksi yang tepat.
d. Menyajikan atau mengirimkan hasil olahan data ke default output (monitor, file atau tujuan lainnya).

Dalam mengolah data diperlukan pengelolaan instruksi terstruktur:
a. Beberapa instruksi dikelompokkan dalam satu blok atau model yang mengerjakan tugas tertentu.
b. Beberapa perintah dilaksanakan dengan persyaratan tertentu.
c. Beberapa perintah dilaksanakan berulang dengan jumlah pengulangan tertentu. Identifier Digunakan untuk nama:
Program, Sub-program (procedure dan function), nama: Variable, Constant, Type, Label.

Nama-nama ini digunakan untuk pemakaian dan pemanggilan dalam program. Ketentuan penulisan identifier
a. Nama identifier harus dimulai dengan karakter huruf alfabet: a sampai z, A sampai Z atau karakter '_'
(underscore - garis bawah)
b. Karakter berikutnya boleh karakter numerik (0 .. 9) atau kombinasi alphanumerik (huruf-numerik).
c. Panjang nama, pada berbagai versi Pascal umumnya antara 32 - 63.
d. Tidak boleh menggunakan karakter istimewa: + - * / | \ = < > [ ] . , ; : ( ) ^ @ { } $ # ~ ! % & ` " ' dan ?
Contoh penulisan:
Penulisan yang benar: X _PQR Beta Sudut_Alpha luasLingkaran
Penulisan yang salah: 3D sisi-Kanan B#

Jenis identifier
a. Identifier umum
Merupakan identifier yang didefinisikan sendiri oleh pemrogram.
Pemrogram mempunyai kebebasan untuk menentukan nama identifiernya,
dengan syarat nama tersebut tidak sama dengan identifier standar dan reserved word yang akan dibahas lebih lanjut.
Hal ini untuk mencegah kesalahan yang bisa timbul akibat tumpang tindih identifier dalam program.
b. Identifier Standar (Baku)
Merupakan identifier yang didefinisikan oleh pembuat kompiler Pascal.
Biasanya pembuat kompiler menyediakan suatu library yang sudah ada didalam kompiler.
Library berisi berbagai procedure, fungsi atau unit yang sudah siap pakai.
Misalnya Turbo Pascal Windows 1.5 memiliki suatu unit untuk memproses output yaitu wincrt, gotoxy,
yang dengan mudah bisa dipakai oleh programmer di dalam menuliskan kode-kode programnya.
Dinamai Identifier Standar karena suatu kompiler tidak harus memilikinya, masing-masing kompiler dimungkinkan
mempunyai identifier yang berbeda untuk suatu tugas yang hampir sama. Misalnya Turbo Pascal versi DOS menggunakan
crt untuk melakukan fungsi yang sama dengan wincrt (TPW 1.5). Beberapa Identifier Standar yang dimiliki oleh
kompiler-kompiler Pascal antara lain:
abs arctan boolean char cos dispose eof eoln exp false input integer ln maxint new odd ord output pack page
pred read readln real reset rewrite round sin sqr sqrt succ text true trunc write writeln
c. Identifier "reserved word", yaitu yang sudah didefinisikan dan digunakan oleh bahasa PASCAL sendiri
(Kita tidak bisa menamai identifier kita dengan ini).
and array begin case const div do downto else end file for forward function goto if in label mod nil not of or
packed procedure program record repeat set then to type until var while with

Deklarasi Variable:
Mendeklarasikan varibel adalah:
a. Memberikan nama variabel sebagai identitas pengenal
b. Menentukan tipe data variabel
Contoh deklarasi variabel:
var K : integer;
R : real;
C : char;
T : boolean;
Beberapa identifier yang sejenis bisa dideklarasikan bersamaan.
var i, j, k : integer;{Variabel i, j dan k sebagai integer}
namaMHS, alamatMHS : char; {Nama dan alamat mahasiswa }

Deklarasi Konstanta:
Mendeklarasikan konstanta adalah:
a. Memberikan nama konstanta sebagai identitas pengenal
b. Menentukan nilai konstanta
Contoh deklarasi konstanta:
const MaximumSize = 100; {integer }
ExitCommand = 'Q'; {char }