rifai_phay: 2011

Jumat, 16 Desember 2011

250 FAKTA UNIK DI-DUNIA

1. Sebelum Masehi bahasa inggrisnya adalah B.C (Before Christ). Setelah
Masehi adalah A.D (Anno Domini)
2. Ikan hiu kehilangan gigi lebih dari 6.000 buah setiap tahun, dan gigi
barunya tumbuh dalam waktu 24 jam
3. Julius Caesar tewas dengan 23 tikaman
4. Nama mobil Nissan berasal dari bahasa jepang Ni : 2 dan San : 3. Nissan
: 23
5. Jerapah dan tikus bisa bertahan hidup lebih lama tanpa air dari pada unta
6. Perut memproduksi lapisan lendir setiap dua minggu agar perut tidak
mencerna organnya sendiri.
7. 98% dari perkosaan dan pembunuhan dilakukan oleh keluarga dekat atau
teman korban.
8. Semut dapat mengangkat beban 50 kali tubuhnya
9. Deklarasi Kemerdekaan Amerika ditulis diatas kertas marijuana
10. Titik diatas huruf i disebut ‘title’
11. Sebutir kismis yang dijatuhkan kedalam gelas berisi sampanye segar
akan bergerak naik turun dalam gelas
12. Benjamin Franklin anak bungsu dari orangtua bungsu keturunan ke 5
dalam keluarga bungsu.
13. Triskaidekaphobia adalah ketakutan pada 13. Paraskevidekatriaph obia
adalah ketekukan pada hari jumat tanggal 13 (bisa terjadi antara 1-3 kali
setahun). di Italia, 17 adalah angka sial. di Jepang angka sial adalah 4
14. Lidah jerapah panjangnya sekitar 50 cm
15. Mulut menghasilkan 1 liter ludah setiap hari
16. Kita bernafas kira-kira 23.000 kali setiap hari
17. Kata ZIP (kode pos) adalah kepanjangan dari ‘Zoning Improvement Plan’.
18. Coca-Cola mengandung Coca (yang merupakan zat aktif pada kokain) dari
tahun 1885 sampai 1903.
19. Rata-rata kita bicara 5.000 kata tiap hari (walaupun 80% nya kita
bicara pada diri sendiri)
20. Seandainya kuota air dalam tubuh kita berkurang 1%, kita langsung
merasa haus
21. 4 simbol raja pada kartu remi melambangkan 4 raja yang etrkenal di
jaman masing-masing: Sekop = David/Raja Daud ; Keriting = Alexander the
Great/Iskandar Agung ; Hati = Charlemagne/ Raja Prancis ; Wajik =Julius
Caesar
22. Seumur hidup kita meminum air sebanyak kurang lebih 75.000 liter
23. Setiap orang, termasuk kembar identik, sidik jari dan tekstur lidahnya
tidak ada yang sama.
24. Titik merah pada 7-Up logo berasal dari penemunya yang bermata merah.
Dia seorang albino.
25. Pria kehilangan 40 helai rambut tiap hari. wanita 70 helai.
26. Tanda ’save’ pada Microsoft Office programs menunjukan gambar floppy
disk dengan shutter terbalik
27. Albert Einstein dan Charles Darwin,keduanya menikah dengan sepupu
pertama mereka (Elsa Lthal dan Emma Wedgewood).
28. Unta punya 3 kelopak mata.
29. Sehelai rambut di kepala kita mempunyai masa tumbuh 2 sampai 6 tahun
sebelum diganti dengan rambut baru
30. Seseorang masih akan sadar selama 8 detik setelah dipenggal
31. Otot yang bekerja paling cepat ditubuh kita adalah otot dikelopak mata
yang membuat kita berkedip. kita bisa berkedip 5kali dalam sedetik
32. Coklat dapat membunuh anjing,karena langsung mempengaruhi jantung dan
susunan syarafnya
33. Tanpa dicampur ludah di dalam mulut, kita tidak akan merasakan rasa
makanan
34. Kuku jari tangan tumbuh 4 kali lebih cepat daripada kuku kaki
35. 13% orang di dunia adalah kidal
36. Hampir semua lipstik mengandung sisik ikan
37. Bayi yang baru lahir berat kepalanya 1/4 dari berat tubuhnya
38. Kita sebenarnya melihat dengan otak. mata hanya berupa kamera yang
mengirim data ke otak. 1/4 bagian dari otak digunakan untuk mengatur kerja
mata
39. Kalajengking bisa dibunuh dengan menyiramnya dengan cuka,mereka akan
murka dan menyengat dirinya sendiri
40. Tahun 1830an saus tomat biasa dijual sebagai obat.
41. Tiga monyet bijak punya nama: Mizaru (See no evil), Mikazaru (Hear no
evil), and Mazaru (Speak no evil).
42. India mempunyai Undang-undang hak untuk sapi
43. Jika bersin terlalu keras dapat meretakkan tulang iga. JIka mencoba
menahan bersin, bisa mengalami pecah pembuluh nadi di kepala dan leher
trus mati . jika memaksa mata terbuka saat bersin, bola mata bisa meloncat
keluar.
44. Nama negara Filipina berasal dari nama Raja Phillip
45. Saudi Arabia berasala dari nama Raja Saud
46. Anak-anak mempunyai 20 gigi awal. Orang dewasa punya 32
47. Karena langkanya logam, piala Oscars yang dibagikan pada perang dunia
ke II terbuat dari kayu
48. Setiap Siklus 11 tahun, kutub magnet pada matahari bertukar tempat.
Siklus ini dinamakan “Solarmax”.
49. Ada 318.979.564. 000 kemungkinan kombinasi pembukaan pertama pada catur.
50. Ada lebih dari 300 bakteri pembentuk karang gigi
51. Macan adalah anggota terbesar dalam keluarga kucing
52. Nomer “172″ dapat ditemukan pada uang kertas 5 dollar amerika,
pada gambar semak-semak dibawah Lincoln Memorial.
53. Pohon kelapa membunuh 150 orang tiap tahun. Lebih banyak daripada hiu
54. Pada poster film ‘Pretty Woman’ Julia Robets terlalu pendek untuk bisa
sejajar dengan Richard Gere. Maka digunakan model Shelley Michelle sebagai
tubuh Julia.
55. Daerah kutub kehilangan matahari selama 186 hari dalam setahun
56. Kode Telephone Internasional untuk Antartica adalah 672.
57. Bom pertama sekutu dijatuhkan di Berlin pada perang dunia ke II.
Membunuh satu-satunya gajah di Kebun Binatang Berlin .
58. Rata-rata hujan jatuh dengan kecepatan 7 mil per jam
59. Butuh 10 tahun bagi Leonardo Da Vinci untuk melukis Mona Lisa.Lukisan
itu tidak ditandai dan di beri tanggal. Leonardo dan Mona mempunya susunan
tulang yang persis sama dan menurut sinar X, ada 3 versi lukisan dibawah
lukisan itu.
60. Nama dari kembar gemini adalah Castor dan Pullox
61. Gerakan Bruce Lee sangat cepat sehingga mereka harus melambatkan filem
agar kita bisa melihat semua gerakannya.
62. Satu kilo dari berat badan kita mengandung 7000 kalori
63. Darah sama kental dengan air laut
64. Air laut di samudra Atlantik lebih asin dari pada di samudra Pasifik
65. Topeng tokoh Michael Myers di film horor ‘Helloween’ sebenernya topeng
tokoh Captain Kirk (Star Trek) yang di cat putih, karena kurang dana
66. Nama asli butterfly (kupu-kupu) adalah flutterby.
67. Bayi lahir setiap 7 detik
68. Satu dari 14 wanita Amerika berambut pirang asli. Prianya hanya satu
dari 17
69. The Olympic adalah saudara dari kapal Titanic, dan melayani dengan
selamat selama 25 tahun.
70. Saat Titanic karam, 2.228 orang ada di dalamnya. Hanya 706 yang selamat
71. Di Amerika, seseorang didiagnosa menderita AIDS tiap 10 menit. Di
Afrika, seseorang meninggal karena AIDS tipa 10 menit
72. Sampai usia 6 bulan, bayi bisa menelan dan bernapas secara bersamaan.
Orang dewasa tidak bisa
73. Alasan kenapa diiklan jam kebanyakan jarum menunjuk pukul 10.10,
karena jam seperti sedang tersenyum
74. Tiap tahun bulan menjauh 3.82 cm dari bumi
75. Saat kita bertahan hidup dan tidak ada bahan makanan, sabuk kulit dan
sepatu keds adalah makanan terbaik untuk dimakan karena mengandung cukup
gizi untuk hidup sementara.
76. Dalam satu tetes air mengandung 50 juta bakteri
77. Dengan menaikan kaki pelan2 dan berbaring tenang dengan punggung
lurus, kita tidak akan tenggelam di pasir hisap.
78. Satu dari 10 orang hidup di suatu pulau
79. Memakan seledri membuang kalori lebih banyak dari pada kalori yang
terkandung dalam seledri itu sendiri
80. Lobster dapat hidup selama 100 tahun
81. Permen karet tidak dijual di Disney Land
82. Mangunyah permen karet saat mengupas bawang mencegah kita menangis
83. Rahang kucing gak bisa bergerak kekiri dan kanan
84. Nama Artic (kutub utara) berarti beruang dalam bahasa Yunani (Arktos),
dan memang beruang kutub hanya ada di kutub utara
85. Jika kira berdiri di dasar sumur, kita bisa melihat bintang walaupun
di siang hari
86. Suara yang kita dengar dari dalam kerang bukan suara ombak laut, tapi
suara aliran darah dalam kepala kita.
87. Orang kebanyak yang menderita ketakutan pada ruang terbuka
(kenophobia) daripada ketakukan pada ruang tertutup (claustrophobia) .
88. Tehnik mengaduk terbaik bukan dengan gerakan memutar, tapi dengan
gerakan huruf W
89. Adegan band yang terus bermain musik saat Titanic tenggelam adalah
kisah nyata
90. Buku Guinness Book of Records memegang rekor sebagai buku yang paling
banyak dicuri dari perpustakaan
91. 35% dari orang yang ikut kontak jodoh lewat internet, sudah menikah
92. CocaCola dulu berwarna hijau
93. Secara fisik, babi tidak bisa melihat ke langit
94. Semua beruang kutub kidal
95. Kelelawar selalu belok kiri jika terbang keluar gua
96. Jim Henson pertama kali memakai kata “Muppet”. Kombinasi dari
“marionette” dan “puppet.”
97. Gajah satu-satunya hewan yang tidak bisa meloncat
98. The Michelin man (figur berbaju dan bertopi putih diiklan Michelin)
bernama Mr. Bib. nama aslinya Bibendum pada iklan pertama tahun 1896.
99. Kita tidak bisa menjilat siku kita sendiri
100. Kata “lethologica” menggambarkan saat dimana kita tidak bisa
mengingat apa yang kita inginkan.
101. Sekitar 14% pecandu yang menggunakan jarum suntik, positif HIV.
102. Kalimat yang bisa dibaca sama dari depan dan belakang (race car,
kayak, tamat) disebut “palindrome” .
103. Siput bisa tidur selama 3 tahun
104. Diatas khatulistiwa melintas sekitar 200 satelit asing, termasuk
satelit mata-mata
105. Orang di Cina lebih banyak yang berbahasa Inggris dari pada orang di
Amerika
106. Karena pengaruh rotasi bumi, kalau kita melempar kearah barat,
lemparan kita akan lebih jauh jatuhnya dari pada kearah timur
107. Satu dari 9.000 orang menderita albino
108. Kursi listrik ditemukan oleh seorang dokter gigi
109. Kita berulang tahun bersama 9 juta orang dari seluruh dunia
110. Setiap manusia dalam hidupnya rata-rata habis untuk menunggu dilampu
merah selama 2 minggu
111. Botol aqua dan tempat makan plastik baru bisa terurai dengan sempurna
dalam tanah setelah 50.000 tahun
112. Kucing bisa membuat lebih dari 100 bunyi vokal, anjing hanya bisa
sekitar 10
113. Gigi berang-berang tak pernah berhenti tumbuh
114. Kelelawar adalah satu-satunya mamalia yang bisa terbang
115. Jika boneka Barbie adalah manusia, ukurannya adalah 39-23-33
(99-58,5-84 cm). Tingginya sekitar 215 cm dan punya leher 2 kali lebih
panjang daripada manusia normal
116. Tikus beranakpinak sangat cepat dan dalam waktu 18 bulan, dua tikus
dapat memiliki lebih dari 1 juta keturunan.
117. Memakai Headphone selama 1 jam dapat mengembangbiakan bakteri dalam
kuping 700 kali lebih cepat.
118. Seekor Babon bernama ‘Jackie’ menjadi prajurit resmi dalam angkatan
bersenjata Afrika Selatan pada Perang Dunia I
119. Bibliophile adalah sebutan untuk kolektor buku-buku langka.
Bibliopole adalah penjual buku-buku langka
120. Jantung ikan paus biru berdenyut 9 kali dalam semenit
121. Arabic numerals bukan berasal dari Arab, tapi diciptakan di India .
122. Kupu-kupu melihat dengan 12.000 mata
123. Bulan February tahun 1865 adalah satu-satunya bulan dalam catatan
sejarah yang tidak sempat mengalami bulan purnama.
124. Ayam yang sudah terpenggal lehernya masih mampu lari sepanjang
lapangan bola sebelum benar-benar mati.
125. Kecoak bisa hidup 9 hari tanpa kepala, dan akan mati karena kelaparan
126. Di Bumi, satu tahun adalah 365 hari. Di planet Merkurius satu tahun
adalah 2 hari
127. Umur dari capung adalah 24 jam
128. Pada Usia 3 bulan janin manusia mulai terbentuk sidik jari.
129. Butuh waktu 6 bulan untuk kuku kaki tumbuh dari bawah paling bawah
sampai ujung kuku.
130. Daya ingat ikan hanya 3 detik
131. Bulan purnama 9 kali tebih terang daripada bulan setengah.
132. Untuk setiap patung memorial orang diatas kuda, jika 2 kaki depan
kuda mengangkat, maka orang tersebut tewas dalam pertempuran, jika satu
kaki kuda yang terangkat, maka orang tersebut meninggal karena luka dalam
pertempuran, jika 4 kakinya menginjak tanah, orang tersebut meninggal
secara normal.
133. Beruang dewasa dapat lari secepat kuda
134. Tulang kuda lebih banyak 18 buah dari tulang manusia
135. Ubur-ubur terdiri dari 95% air
136. Kulit Zebra adalah putih yang bergaris hitam
137. Kecuali manusia dan monyet, semua mamalia buta warna
138. Biji apel mengandung sianida
139. Tikus dan kuda tidak bisa muntah
140. Penguin adalah burung yang tidak bisa terbang tapi bisa berenang.
141. Astronot dilarang mengkonsumsi kacang sebelum menjelajah ruang
angkasa karena jika buang angin dalam baju khusus astronot dapat
membahayakan mereka.
142. Winston Churchill lahir di toilet wanita saat acara dansa
143. Sebelum ada pesawat jet, Jetlag disebut Boatlag
144. Kucing berkeringat melalui telapak kakinya (terutama saat mendengar
gonggongan anjing)145. Kucing tidak bisa merasakan rasa manis
146. Coklat meleled dalam mulut karena titik lelehnya adalah 35 derajat
celcius
147. Dalam perang dahulu, orang yang buta warna dibutuhkan dalam tim
pendeteksi kamuflase di militer
148. Sapi tidak punya gigi atas
149. Hedenophobic berarti takut akan kesenangan.
150. Pendeta Mesir kuno mencabuti setiap helai rambut dan bulu dari badan
mereka.
151. Buaya tidak bisa menjulurkan lidah.
152. Kentut sapi termasuk penyebab utama global warming
153. Semut selalu jatuh miring ke kanan jika diberi racun serangga
154. Kucing rumah benci bau lemon dan semua yang berbau sitrus
155. Donal Bebek dilarang beredar di Finlandia karena Donal tidak pakai
celana
156. Nama asli Donal bebek adalah Donald Flauntleroy Duck
157. Indra perasa kupu-kupu ada dikakinya
158. Dry Ice tidak meleleh, tapi menguap
159. Mata burung unta lebih besar dari otaknya
160. Bintang laut tidak punya otak
161. Tiap manusia punya telinga yang berbeda
162. Telur segar tenggelam diair, telur yang kadaluarsa mengambang
163. 80% dari seluruh binatang di dunia adalah serangga
164. Kacang adalah salah satu bahan untuk membuat dinamit
165. Ratu Elizabeth I menderita Anthophobia (takut akan mawar)
166. RSVP adalah Respondez s’il Vous Plait yang artinya ‘mohon jawaban’
167. Mata manusia yang sehat (tidak buta warna) dapat menbedakan 500 jenis
warna abu-abu.
168. Ikan mas yang bunting disebut ‘twit’.
169. Eropa adalah benua tanpa padang pasir
170. Lalat meloncat mundur saat akan terbang
171. Sekeor kucing memiliki 32 otot pada tiap telinga
172. A honeybee can fly at fifteen miles per hour. Seekor lebah dapat
terbang sejauh 15 mil dalam 1 jam
173. Macan mempunyai kulit yang belang, bukan hanya bulu yang belang.
174. A “jiffy” is the scientific name for 1/100th of a second.
175. Hanya 3 malaikat, Gabriel, Michael dan Lucifer yang disebut dalam injil
176. Kambing mempunya pupil mata segi empat
177. Novel pertama yang menggunakan mesin tik adalah Tom Sawyer
178. Hamster sangat suka makan jangkrik
179. Pemantik ditemukan sebelum korek api
180. Rata-rata dalam setiap batang permen coklat terdapat serangga yang
meleleh bersamanya.
181. Tanduk badak terbuat dari rambutnya yang mengeras
182. Perang paling singkat dalam sejarah adalah perang Zanzibar and
England tahun 1896. Zanzibar menyerah setelah 38 menit.
183. Kutu rambut sebenarnya lebih suka hidup di kulit kepala yang bersih
dari pada yang kotor
184. Kulit beruang kutub sebenarnya hitam. Bulunya berwarna bening, dan
tampak putih di salju.
185. Elvis mempunyai saudara kembar bernama Garon, yang meninggal saat
lahir, maka nama tengah Elvi adalah Aron, untuk menghormati saudaranya.
186. Landak punya sidik jari yang mirip manusia.
187. Kuda Nil kentut lewat mulut.
188. Shakespeare yang menemukan kata “assassination” dan “bump”
189. Mahluk yang bisa tersipu-sipu hanya manusia
190. Jika kita memelihara ikan mas dalam ruangan yang gelap, warnanya akan
berubah putih.
191. Wanita berkedip dua kali lebih banyak dari pria.
192. Nama Jeep (jip) diampil dari singkatan “GP”, bahasa militer untuk
General Purpose.
193. Orang yang menggunakan tangan kanan, kira-kira, 9 tahun lebih panjang
umur dari orang kidal
194. Jika semua emas dalam laut ditambang, setiap manusia didunia bisa
mendapat emas 20 kg masing2.
195. Jika lever manusia berhenti bekerja, manusia akan mati dalam 8 sampai
24 jam
196. Seorang “quidnunc” adalah sebutan untuk orang yang selalu ingin tahu
gosip terbaru.
197. Jika matahari tiba-tiba padam, butuh 8 menit bagi manusia untuk
menyadarinya.
198. Leonardo Da Vinci yang menemukan gunting, helikopter, dan banyak alat
lainnya.
199. Dalam 4000 tahun, tidak ada jenis binatang peliharaan baru.
200. 25% dari tulang manusia ada di kaki.
201. David Sarnoff adalah orang yang menerima sinyal Titanic dan
meyelamatkan ratusan nyawa. Dia akhirnya menjadi kepala jaringan radio,
the National Broadcasting Company (NBC).
202. Kira-kira 100 orang tersedak ballpoint tiap tahun.
203. Jika kita terkunci diruang yang kedap udara, kita aka lebih dulu mati
keracunan co2 dari pada kekerangan o2
204. Jika kita kehilangan satu mata, kita akan kehilangan 1/5 dari
pengelihatan kita dan kehilangan seluruh persepsi tentang kedalaman objek.
205. Berdiri lama tanpa menekuk lutuk sama sekali akan membuat kita pingsan
206. Bawang putih yang kita gosok di tumit kaki akan meresap dapat dapat
tercium dalam nafas kita.
207. Dengan merentangkan kedua tangan sejauh mungkin, jarak dari kedua
ujung tangan adalah sama dengan tinggi kita.
208. Liburan selama sebelas hari berarti kita punya waktu hampir sejuta
detik untuk menikmatinya
209. Dalam film Silence of The Lambs, tokoh Hannibal Lecter tidak pernah
berkedip.
210. Di jepang, warung kopi disebut ‘Kissaten’.
211. Merebus telur burung unta butuh waktu 40 menit.
212. Jaguar takut pada anjing
213. Gajah hanya tidur 2 jam dalam sehari
214. Johnny Deep takut pada badut
215. Ganymede adalah bulan planet Jupiter, merupakan bulan terbesar di
tata surya kita, lebih besar dari planet Merkurius.
216. Dalam golf, ‘Bo Derek’ adalah istilah untuk nilai 10.
217. Koala punya dua jempol
218. Latte dalam bahasa Italia adalah susu
219. Llanfairpwllgwyngyl lgogerychwy rndrobwlll.. . adalah nama sebuah
desa di Wales Utara, Inggris.
220. Di Italia, Micky Mouse lebih dikenal dengan nama ‘ Topolino’
221. Susu sebenarnya lebih menyerupai makanan daripada minuman.
222. Ada lebih dari 450 jenis susu di dunia. 240 berasal dari Prancis.
223. Nyamuk lebih suka anak-anak daripada orang dewasa.
224. Partikel debu didalam rumah sebagian besar berasal dari sel kulit mati
225. Rat-rata orang bergerak 40 kali dalam tidurnya
226. Dalam bahasa Inggris, ‘Naked’ artinya tanpa perlindungan. ‘Nude’
artinya telanjang
227. Broccoli dan kembang kol adalah sayuran yang berupa bunga.
228. Anak baru lahir memiliki 350 tulang. Mereka menyatu atau menghilang
sampai menjadi 206 pada usia 5 tahun.
229. Tidak ada bukti yang pasti siapa yang membangun Taj Mahal.
230. Dalam survey terhadap 200.000 burung unta selama 80 tahun, tidak ada
satupun yang mengubur kepalanya dalam tanah.
231. Neil Amstrong melangkah pertama kali di bulan dengan kaki kiri.
232. Shuttlecock untuk badminton harus punya 14 bulu.
233. Mutiara bisa larut dalam cuka.
234. Babi tidak dapat berkeringat karena tidak punya kelenjar keringat.
Mereka berlumur lumpur untuk mendinginkan kulitnya.
235. Venus dan Uranus adalah planet di tata surya kita yang berputar
melawan jarum jam. Jadi matahari terbit dari barat di planet ini.
236. Microwave ditemukan setelah seorang ilmuan yang berjalan melewati
tabung radar mendapati permen coklatnya meleleh disakunya.
237. Ikan hiu kebal terhadap kanker
238. Rusa Santa bernama: Dasher, Dancer, Prancer, Vixen, Comet, Cupid,
Donner, dan Blitzen
239. Beberapa jenis cacing pita akan memakan dirinya sendiri jika kelaparan.
240. Kita bisa menghela sapi naik tangga, tapi tidak bisa menghela mereka
turun tangga.
241. Plakat yang ditinggalkan Apollo 11 di bulan berbunyi “Here men from
the planet Earth first set foot upon the Moon July 1969, A.D. / WE CAME IN
PEACE FOR ALL MANKIND.”
242. Alpabet Hawai terdiri dari 12 huruf saja
243. Nama paling populer di dunia adalah Muhammad.
244. Bola mata kita beratnya sekitar 28 gram
245. Paru-paru kiri lebih kecil dari paru-paru kanan karena memberi tempat
terhadap jantung.
246. Pinguin hanya ada di kutub selatan, dan tidak bisa menyebrangi equator.
247. Kebanyakan orang bisa mendengar lebih baik dengan kuping kanan
248. Vitamin pada buah biasanya terdapat pada kulitnya
249. Rata-rata klakson mobil berbunyi pada nada F
250. Pria lebih mampu membaca tulisan dengan ukuran huruf kecil daripada
wanita.

Jumat, 09 Desember 2011

REKURSI DAN ITERATIF

REKURSI DAN
ITERATIF
Struktur data pascal
Pengertian rekursi
 Suatu proses yang bisa memanggil
dirinya sendiri.
 Rekursi biasanya digunakan secara
iteratif yaitu melakukan pengulangan
operasi sampai jumlah pengulangan
yang diinginkan.

Contoh Rekursif sekaligus iteratif
 Program Perpangakatan
 Program Factorial
 Program Deret Fibonacci
Contoh Pada Perpangkatan
 Dalam mencari pangkat suatu nilai
diperlukan inputan :
• Berapa bilangan yang akan di
pangkatkan
• Berapa nilai pangkatnya
Contoh : AX
A=5 bilangan yang akan di pangkatkan
X=4 nilaipangakatnya
54=625
Program Pangkat
program pangkat;
uses crt;
var A,x,i,hasil:integer;
begin
writeln('masukkan bilangan yang akan di
pangkatkan');readln(A);
writeln('masukkan bilangan pangkat');readln(x);
hasil:=1;
for i:=1 to x do
hasil:=hasil*A;
writeln('hasil dari ',A,' pangkat ',x,' adalah ',hasil);
readln;
end.
Contoh Program deret Fibonacci
 Deret terdiri atas :
1,1,2,3,5,8,13,…
Dicari deret sampai suku ke-n (jadi
ada inputan untuk sampai suku ke
berapa yang diinginkan)

Program deret fibonacci
program fibonacci;
uses crt;
Var fibo: array [1..10] of integer;
A,i,hasil:integer;
begin
clrscr;
write('masukkan suku keberapa dalam deret fibonacci :');readln(A);
if (A=1) or (A=2) then hasil:=1 else
begin
fibo[1]:=1; fibo[2]:=1;
for i:=3 to A do
begin
fibo[i]:=fibo[i-1]+fibo[i-2];
hasil:=fibo[i];
end;
end;
writeln;
for i:=1 to A do
write(fibo[i],' ');
writeln;
writeln('Suku Ke-',A,' dari deret fibonacci adalah ',hasil);
readln;
end.
Contoh Pada Factorial
 Dalam mencari factorial diperlukan
bilangan untuk di factorial.
 Misal A! dengan A=4
Maka 4! Adalah :4.3.2.1=24

Teknologi Terbaru 2012 : Meja Masa Depan

Teknologi Terbaru 2012 : Meja Masa Depan | Update Informasi Teknologi Terbaru, Gadget Terbaru, Berita Teknologi Terbaru - Sobat mungkin sudah sering melihat video maupun film yang menampilkan kecanggihan teknologi terbaru untuk masa depan. Tapi apa jadinya jika hal tersebut menjadi nyata dan bisa sobat miliki? Saat ini mungkin fungsi meja bagi sobat hanya sebagai peralatan rumah tangga untuk meletakkan peralatan tulis menulis atau sekedar pengisi interior ruangan. Pada awal tahun 2011, beredar kabar munculnya teknologi tv hologram. Tapi baru-baru ini, dipenghujung tahun 2011, Microsoft membuat sebuah terobosan dengan teknologi yang diberi nama Microsoft Surface, dimana sebuah kombinasi antara meja, komputer, kamera, serta touch sensivity berukuran sebesar yang memungkinkan pengguna untuk berinteraksi untuk berbagai aktivitas.

Pada meja besar yang menggunakan LCD touch screen 40 inci, Microsoft menempatkan sebuah smartphone pada layar, seketika Microsoft Surface akan mengenali perangkat tersebut dan menampilkan informasi mengenai perangkat serta memungkinkan untuk memilih model yang berbeda. Kabarnya, Microsoft telah mengkonfirmasi harga terbaru untuk meja masa depan yang akan mereka rilis pada tahun 2012 nanti di pasar Amerika sebesar $8.900.

Teknologi Terbaru 2012 : Meja Masa Depan Microsoft Surface dan EXOdesk

Seperti halnya Microsoft Surface, teknologi terbaru untuk masa depan lainnya, sebuah meja interaktif, EXOdesk, memungkinkan sobat untuk melakukan semua aktivitas pada virtual space. EXOdesk sebenarnya merupakan sebuah tabletop computer yang menawarkan layar high definition 40 inci, di mana kita bisa memanipulasi virtual object dengan menyentuh dan dragging. EXOdesk akan dirilis pada tahun 2012 mendatang dengan harga $1,299.

Pada video dibawah ini bisa sobat saksikan penampakan kecanggihan teknologi terbaru untuk masa depan dengan tampilan virtual keyboard, RSS feed stream, simulasi permainan piano, dan aplikasi untuk permukaan tabletop.

Jumat, 02 Desember 2011

perjuangan seorang anak

Selasa, 29 November 2011

membuat anak menjadi jenius

Ada beberapa cara untuk bisa membuat anak jenuis atau pintas. Memang untuk membuat anak jenius atau pintas memang banyak orang mengidap-ngidamkan hal ini, karena bisa membuat orang tua bisa bangga dan juga membuat masa depan anam bisa cerah, karena sang anak mempunyai pemikiran yang sangat pandai dan anak itu akan mampu meyerap apa yang di pelajarinya dengan cepat.

Untuk itulah banyak masayarakat indonesia ingin sekali membuat anak yang pandai dan jenius. Untuk caranya anda bisa melihat di bawah ini bagaimana cara membuat anak jenuis atau pintar:

1. Bermain permainan yang berpikir
Contoh : Catur, teka-teki silang dan sudoku. mendukung strategi berpikir anak-anak.

2. Bermain musik
Contoh : Bermain musik selain menyenangkan juga bisa merangsang pertumbuhan otak kanan.

3. Membiasakan berolahraga
Contoh : Semakin bugar badan sang anak maka kemampuan dalam menerima pelajaran juga meningkat.

4. Pemberian ASI
Contoh : Anak yang mengkonsumsi ASI eksklusif akan memiliki tingkat kepintaran yang lebih tinggi dibandingkan dengan anak yang mengkonsumsi ASI hanya beberapa bulan saja.

5. Memberikan sarapan yang sehat
Contoh : mengonsumsi sarapan yang sehat akan meningkatkan memori dan konsentrasi anak dalam belajar.

6. Mengembangkan rasa ingin tahu
Contoh : sehingga merangsang anak untuk berpikir. Mengajari anak keterampilan baru serta pendidikan di luar rumah juga bisa mengembangkan rasa ingin tahu anak dan intelektualnya.

7. Menyingkirkan makanan siap saji
Contoh : lemak trans dari makanan siap saji dan menggantinya dengan makanan bergizi tinggi yang baik untuk perkembangan mental anak usia dini serta berfungsi dalam perkembangan motorik anak pada usia 1-2 tahun pertama.

8. Budayakan membaca
Contoh : Cara ini bisa dimulai dengan sering membacakan anak dongeng sebelum tidur dan sering-seringlah memberikan anak hadiah buku yang bisa menarik perhatiannya.

9. Mengajarkan kepercayaan diri
Contoh : k. Berpartisipasi dalam tim olahraga atau kegiatan sosial akan membantu meningkatkan kepercayaan diri sang anak diantara teman-temannya.

Diatas itu kalau anda bisa menerapkannya kepada anak anda, pasti anak-anak anda akan mempunyai pikiran yang cerdas dan anak anda akan menjadi jenuis atau pintas.

Untuk anda yang ingin membaca-baca di rumah yang lebih detailnya untuk membuat anak jenius, anda juga bisa download di bawah ini untuk penerapan anak pertumbuan IQ anak anda.

Untuk download di bawah ini jangan lupa untuk tekan SKIP ADD untuk melajutkan download ebook penerapan IQ anak anda.

Klasifikasi, Jenis dan Macam Data - Pembagian Data Dalam Ilmu Eksak Sains Statistik / Statistika

A. Jenis Data Menurut Cara Memperolehnya

1. Data Primer
Data primer adalah secara langsung diambil dari objek / obyek penelitian oleh peneliti perorangan maupun organisasi. Contoh : Mewawancarai langsung penonton bioskop 21 untuk meneliti preferensi konsumen bioskop.

2. Data Sekunder
Data sekunder adalah data yang didapat tidak secara langsung dari objek penelitian. Peneliti mendapatkan data yang sudah jadi yang dikumpulkan oleh pihak lain dengan berbagai cara atau metode baik secara komersial maupun non komersial. Contohnya adalah pada peneliti yang menggunakan data statistik hasil riset dari surat kabar atau majalah.

B. Macam-Macam Data Berdasarkan Sumber Data

1. Data Internal
Data internal adalah data yang menggambarkan situasi dan kondisi pada suatu organisasi secara internal. Misal : data keuangan, data pegawai, data produksi, dsb.

2. Data Eksternal
Data eksternal adalah data yang menggambarkan situasi serta kondisi yang ada di luar organisasi. Contohnya adalah data jumlah penggunaan suatu produk pada konsumen, tingkat preferensi pelanggan, persebaran penduduk, dan lain sebagainya.

C. Klasifikasi Dara Berdasarkan Jenis Datanya

1. Data Kuantitatif
Data kuantitatif adalah data yang dipaparkan dalam bentuk angka-angka. Misalnya adalah jumlah pembeli saat hari raya idul adha, tinggi badan siswa kelas 3 ips 2, dan lain-lain.

2. Data Kualitatif
Data kualitatif adalah data yang disajikan dalam bentuk kata-kata yang mengandung makna. Contohnya seperti persepsi konsumen terhadap botol air minum dalam kemasan, anggapan para ahli terhadap psikopat dan lain-lain.

D. Pembagian Jenis Data Berdasarkan Sifat Data

1. Data Diskrit
Data diskrit adalah data yang nilainya adalah bilangan asli. Contohnya adalah berat badan ibu-ibu pkk sumber ayu, nilai rupiah dari waktu ke waktu, dan lain-sebagainya.

2. Data Kontinyu
Data kontinyu adalah data yang nilainya ada pada suatu interval tertentu atau berada pada nilai yang satu ke nilai yang lainnya. Contohnya penggunaan kata sekitar, kurang lebih, kira-kira, dan sebagainya. Dinas pertanian daerah mengimpor bahan baku pabrik pupuk kurang lebih 850 ton.

E. Jenis-jenis Data Menurut Waktu Pengumpulannya

1. Data Cross Section
Data cross-section adalah data yang menunjukkan titik waktu tertentu. Contohnya laporan keuangan per 31 desember 2006, data pelanggan PT. angin ribut bulan mei 2004, dan lain sebagainya.

2. Data Time Series / Berkala
Data berkala adalah data yang datanya menggambarkan sesuatu dari waktu ke waktu atau periode secara historis. Contoh data time series adalah data perkembangan nilai tukar dollar amerika terhadap euro eropa dari tahun 2004 sampai 2006, jumlah pengikut jamaah nurdin m. top dan doktor azahari dari bulan ke bulan, dll.

klasifikasi data

1. menurut jenisnya
a. Data kualitatif : tidak berupa angka
b. Data kuantitatif : berupa angka

2. menurut sifatnya
a. Diskrit : dapat dihitung / rata-rata
b. Kontinyu : nilai dalam interval waktu

3. menurut sumbernya
a. Data internal : menggambarkan keadaan perusahaan
b. Data eksternal : menggambarkan keadaan di luar perusahaan

4. menurut cara memperolehnya
a. data primer : diolah sendiri
b. data sekunder : diolah oleh pihak lain

5. menurut waktu pengumpulannya
a. Data cross-section : pada waktu tertentu
b. Data Time series (berkala) : historis, dari waktu ke waktu

*) info penting dalam pengolahan data. karena, data yang tidak akurat hanya membuang waktu dan tenaga. bahkan untuk mendengarkannya saja sudah wasting time. data yang tidak akurat akan menghasilkan perencanaan yang tidak akurat, pengendalian yang tidak efektif, dan evaluasi yang tidak mengenai sasaran.

Sabtu, 26 November 2011

pengertian array dan record

ARRAY
Suatu array adalah sebuah struktur data
yang terdiri atas banyak variabel dengan
tipe data sama, dimana masing-masing
elemen variabel mempunyai nilai indeks.
Setiap elemen array mampu untuk
menyimpan satu jenis data (yaitu:
variabel).Cara Pendefinisian
• contoh type
A = array [1..6] of integer;
• Secara logika pendefinisian array di atas
merupakan sekumpulan kotak , dimana tiap
kotak mempunyai nilai indeks integer 1, 2, 3, ...,6
tiap elemen array ditandai dengan:
A[1], A[2], A[3], A[4], A[5], A[6]
untuk mengisi elemen array misal A[1]:=4;.Sifat Array
Array merupakan struktur data yang statis, yaitu
jumlah elemen yang ada harus ditentukan
terlebih dahulu dan tak bisa di ubah saat
program berjalan.

Record
Record adalah sebuah tipe data yang mengumpulkan beberapa item data di mana masing-masing tipe data dari item data ini berbeda-beda. Masing-masing item data ini bisa disebut dengan field.
Mendeklarasikan Record
Masih ingat kuliah mengenai tipe data? Dalam Pascal, semua variabel harus dideklarasikan sebelum bisa dipakai. Sebagai contoh, kitaingin memakai variabel dengan nama Nama untuk dimasukkan nilai nama-nama mahasiswa. Kita akan mendefinisikannya menjadi:var Nama: String[80];
Dari kode di atas kita memberitahukan ke Pascal bahwa kita akan memakai variabel Nama yang tipe datanya string dan kita alokasikan panjang stringnya 80 karakter.
Nah, dalam Pascal, kita dimungkinkan untuk memiliki judul tipe data yang kita definisikan sendiri. Misalkan kita ingin mengganti judul tipe data integer dengan bilanganBulat. Dalam Pascal, kita definisikan ini dengan:
type bilanganBulat = integer;
Perhatikan beda pendefinisian variabel dan pendefinisian type. Untuk pendefinisian variabel kita menggunakan titik dua (:), sedangkan pendefinisian type kita menggunakan sama dengan (=).
Untuk mendeklarasikan record, kita memakai reserved word record, diikuti dengan daftar field dan diakhiri dengan end. Berikut adalah contoh dari deklarasi sebuah record.
type recMhs = record;
nama : string[80];
NPM : string[8];
nilai : integer;
end;
Untuk bisa memakai record ini, kita mendeklarasikan record ke dalam variabel seperti ini:
var recordMahasiswa: recMhs;
Menggunakan Record
Menggunakan/ mengakses nilai field dari record adalah menggunakan nama variabel yang sudah dideklarasikan, diikuti dengan tanda titik (.) dan nama field. Dari contoh di atas, apabila kita ingin mengakses nilai field nama dari record recordMahasiswa, kode dalam Pascal adalah sebagai berikut:record
Mahasiswa.nama:=’mark anthony’;

Klasifikasi, Jenis dan Macam Data - Pembagian Data Dalam Ilmu Eksak Sains Statistik / Statistika

Jumat, 25 November 2011

menambahkan menubar pada blog

ebuah blog adalah semacam buku yang tersusun dari banyak halaman. Lazimnya sebuah buku diperlukan daftar isi dan semacamnya agar halaman-halaman buku mudah ditemukan. Karena itu blog dianjurkan memiliki menu-menu yang membuat navigasi menjadi lebih mudah. Menubar adalah sarana navigasi pada situs web yang berisi daftar tautan/link. Menubar umumnya terletak mendatar pada header, baik dalam posisi menggantung (di bagian bawah) maupun persis di atas header.

Hal pertama yang harus dilakukan sebelum memasang menu bar adalah melihat apakah template yang dipakai sudah memiliki kolom Add a gadget dibawah kolom Navbar. Jika belum berarti harus dilakukan sedikit modifikasi pada HTML template untuk bisa menampilkan link add page elements. Jika sudah ada kolom tersendiri di bawah Navbar, silahkan langsung ke no.2.

1. Modifikasi HTML template agar mempunyai tempat untuk link Add a Page Element. Cara ini aku dapatkan dari Blog Kang Rohman

* Login ke blogspot–> Layout/tata letak—> Edit HTML
* Untuk berjaga-jaga bila nanti ada hasil yang tidak seperti yang diinginkan, maka download dan simpanlah kopi dari template yang dipakai saat ini.
* Tekan kontrol “Ctrl + F” untuk menampilkan kolom pencarian yang nanti letaknya ada di bawah. Ketikan atau kopi baris kode berikut ke dalam kolom pencari:
]]> agar letaknya dapat segera diketahui.Copy kode berikut, lalu paste di atas kode ]]> #under_header{
margin:10px 0;
padding:1%;
width:98%;
}
* Cari lagi kode yang mirip dengan kode di bawah ini :
Copy kode berikut lalu paste persis di bawah kode tadi :

* Jadi setelah digabung seperti cara diatas, keseluruhan kode akan seperti ini:
* Simpan template.

2. Buatlah posting baru untuk halaman yang ingin di link ke menu bar. Menunya misalnya seperti yang dipakai di blog ini yaitu Home, About, Tanaman, Tips. Link yang nanti akan digunakan adalah URL setiap posting itu. Cara dibawah ini (no. 2 dan 3) aku dapatkan dari Real Life.

* untuk menu Home, link yang gunakan adalah URL alamat blog.
* untuk About, link yang digunakan URL Aboutbox.
* bila link-nya akan menuju ke halaman tersendiri, untuk dapatkan linknya bisa klik kanan pada judul dan klik “copy link location”.
* bila link-nya menuju pada halaman yang mempunyai label yang sama, untuk dapatkan link-nya bisa klik kanan pada label yang ada dibawah posting dan klik “copy link location”.

3. Login ke blogspot–> layout–>Add a gadget (di tempat yang kita ingin menu bar ditampilkan), pilih HTML/JavaScript gadget dan masukan kode berikut: alamatblog.blogspot.com>HOME | alamataboutpageURL>ABOUT | alamathalamanURL>HALAMAN | alamattipsURL>TIPS
Klik tombol preview untuk melihat hasilnya, lalu simpan.
Catatan:
* Ganti kata yang berwarna hijau dengan nama menu yang dinginkan.
* Ganti kata yang berwarna merah dengan alamat URL sesungguhnya

Rabu, 23 November 2011

PASCAL

Bab 4 Array PASCAL

Array adalah tipe data terstruktur yang terdiri dari sejumlah komponen-komponen yang mempunyai tipe sama. Komponen-komponen tersebut disebut sebagai komponen type, larik mempunyai jumlah komponen yang jumlahnya tetap. Banyaknya komponen dalam larik ditunjukkan oleh suatu index, dimana tiap komponen di array dapat diakses dengan menunjukkan nilai indexnya atau subskript. Array dapat bertipe data sederhana seperti byte, word, integer, boolean, char, string dan tipe data scalar atau subrange. Tipe larik mengartikan isi dari larik atau komponen- komponennya mempunyai nilai dengan tipe data tersebut.

Contoh:
Var
Untai : array[1..50] of Integer;
Pada contoh Array dengan nama untai telah dideklarasikan dengan tipe integer, dengan jumlah elemen maksimum 50 elemen, nilai dari elemen array tersebut diatas harus bertipe integer.

Contoh Program :
Program Contoh_Array_Input;
Uses WinCrt;
Var
Bilangan : array[1..5] of Integer;
Begin
ClrScr;
Bilangan[1]:=3;
Bilangan[2]:=29;
Bilangan[3]:=30;
Bilangan[4]:=31;
Bilangan[5]:=23;
Writeln('nilai variabel bilangan ke 3 =',Bilangan[3]);
Readln;
End.

Array juga dapat dideklarasikan bersama dengan tipe yang beragam seperti contoh dibawah ini :

Program Contoh_Deklarasi_Array_Beragam;
Uses WinCrt;
Var
NPM : array[1..20] of string[10];
Nama : array[1..20] of string[25];
Nilai : array[1..20] of real;
Umur : array[1..20] of byte;
banyak,i : integer;
Begin
ClrScr;
Write('Isi berapa data array yang diperlukan :');Readln(banyak);
For i := 1 to banyak Do
Begin
Write('NPM =');Readln(NPM[i]);
Write('Nama =');readln(Nama[i]);
Write('Nilai=');readln(Nilai[i]);
Write('Umur =');readln(Umur[i]);
End;
{cetak varibel array}
Writeln('NPM NAMA NILAI UMUR ');
For i:= 1 to banyak Do
Begin
Writeln(Npm[i]:10,Nama[i]:25,Nilai[i]:3:2,' ',Umur[i]:3);
End;
Readln;
End.

Untuk deklarasi array dapat digunakan beberapa cara seperti berikut ini :
Nama : Array [1..50] of String[20];
Type
Angka = String[20];
Var
Nama : Array [1..50] of Angka;
Begin
.
.
End.

Deklarasi tipe indeks subrange integer Indeks pada array dapat tipe skalar atau subrange, tetapi tidak bisa real.
Contoh:
Var
Nilai : Array[1..10] of Integer;
pada contoh ini array nilai mempunyai 10 buah elemen yaitu dari 1 sampai 10. Array tersebut dapat dideklarasikan dengan type seperti berikut ini :

Type
Skala = 1..10;
Var
Nilai : Array [skala] of Integer;
atau :
Type
Skala = 1..10;
Y = Array[skala] of Integer;
Var
Nilai : Y;
atau :
Type
Y = Array[1..10] of Integer;
Var
Nilai : Y;
atau :
Const
Atas =1;
Bawah = 5;
type
Y = Array[Atas..Bawah] of Integer;
Var
Nilai : Y;

I. Deklarasi Type Indeks Skalar
Indeks dari larik dapat berupa tipe skalar.
Contoh. :
Program Deklarasi_Indeks_Array_Skalar;
Uses WinCrt;
Var
Jum : Array[(jan,feb,mar,apr,mei)] of Integer;
Begin
Jum[jan]:=25;
Jum[feb]:=45;
Jum[mar]:=21;
Jum[apr]:=23;
Jum[mei]:=50;
Writeln('Jumlah nilai bulan maret =',Jum[mar]);
Readln;
End.

dapat juga ditulis :
type
Bln = (jan,feb,mar,apr,mei);
Var
Jum : Array[bln] of Integer;
atau :
type
Bln =(jan,feb,mar,apr,mei);
Var
Jum : Array[jan..mei] of Integer;

II. Deklarasi Konstanta Array
Array tidak hanya dapat berupa suatu varibel yang dideklarasikan di bagian deklarasi variabel, tetapi dapat juga berupa konstanta (const).
Contoh Program :
Program Contoh_Deklarasi_Array_Konstan;
Uses WinCrt;
Const
Tetap : Array[1..4] of Integer=(7,10,21,20);
Var
i : Integer;
Begin
For i:= 1 to 4 Do
Writeln('Nilai Konstan array ke ',i:2,' =',Tetap[i]);
Readln;
End.

konstanta array dapat juga berupa ketetapan dalam bentuk karakter seperti berikut.
Contoh Program :
Program Contoh_Konstan_Array_Char_;
Uses WinCrt;
Const
Huruf : Array[0..5] of Char=('A','B','C','D','E','F');
Var
i : Integer;
Begin
For i:= 0 to 5 Do
Writeln('Nilai konstan array ke',i:2,' = ',Huruf[i]);
Readln;
End.

Konstanta array dapat juga berupa string seperti berikut ini.
Contoh Program :
Program Constanta_Array_String;
Uses WinCrt;
Type
A = Array [1..5] of String;
Const
Nama : A = ('basic','pascal','cobol','paradox','dbase');
Var
i : Integer;
Begin
For i:= 1 to 5 Do
Writeln('Nilai Array ke-',i:2,'= ',Nama[i]);
readln;
end.

Dalam pascal string merupakan array dari elemen- elemen karakter seperti berikut :
Contoh Program :
Program String_Adalah_Array_Tipe_Char;
Uses WinCrt;
Var
Nama : string;
i : Integer;
Begin
Nama:='Turbo Pascal';
For i:= 1 to Length(nama) Do
Writeln('Elemen ',i,' dari ',Nama,'= ',Nama[i]);
Readln;
End.

contoh program bilangan prima dengan menggunakan bantuan array.
Contoh program :
Program Mencari_Bilangan_Prima_Dengan_Array;
Uses WinCrt;
Var
Prima : Array[1..100] of Integer;
i,j : Integer;
bil : Integer;
Begin
ClrScr;
For i := 2 to 100 Do
Begin
Prima[i]:=i;
For j:= 2 to i-1 Do
Begin
bil := (i mod j); {* i dibagi j dicek apakah 0*}
If bil = 0 then Prima[i]:=0; {*jika habis dibagi,berarti bkn prima*}
End;
If Prima[i]<> 0 Then Write(Prima[i],' '); {*cetak array yg prima*}
End;
Readln;
End.

Contoh pengurutan data dengan metode buble sort, yaitu dengan cara penukaran, dapat dilihat pada contoh dibawah ini :
Contoh Program :
Program Penggunaan_Array_Untuk_Sortir_Buble_Sort;
Uses WinCrt;
Var
nil1 : Array[1..100] of Integer;
n,i,j,dum : Integer;
Begin
ClrScr;
Write('mau isi berapa data acak (integer) ='); readln(n);
For i := 1 to n Do
Begin
Write('Data Ke ',i,':');Readln(nil1[i]);
End;
{* penyapuan proses}
for i:= 1 to n-1 do
begin
for j:= i to n do
begin
if nil1[j]
begin
dum:=nil1[j];
nil1[j]:=nil1[i];
nil1[i]:=dum;
end;
end;
end;
writeln;
writeln('Hasil Sortir');
for i := 1 to n do
write(nil1[i]:3);
readln;
end.

III. Array Dua Dimensi
Di dalam pascal Array dapat berdimensi lebih dari satu yang disebut dengan array dimensi banyak (Multidimensional array), disini akan dibahas array 2 dimensi saja. Array 2 dimensi dapat mewakili suatu bentuk tabel atau matrik, yaitu indeks pertama menunjukkan baris dan indeks ke dua menunjukkan kolom dari tabel atau matrik.
1 2
1 2 3
Untuk mengetahui cara mendeklarasikan dari penggunaan aray dua dimensi dapat dilihat pada listing program dibawah ini .

Contoh Program:
Program Deklarasi_Array_Dua_Dimensi;
Uses WinCrt;
Var Tabel : Array[1..3,1..2] of Integer;
i,j : Integer;
Begin
ClrScr;
Tabel[1,1]:=1;
Tabel[1,2]:=2;
Tabel[2,1]:=3;
Tabel[2,2]:=4;
Tabel[3,1]:=5;
Tabel[3,2]:=6;
For I := 1 to 3 Do Begin For J:= 1 to 2 Do Begin Writeln('Elemen ',i,',',j,'= ',tabel[i,j]);
End;
End;
Readln;
End.

IV. Alternatif Deklarasi Array Dua Dimensi.
Ada beberapa cara dalam mendeklarasikan array dua dimensi, beberapa cara tersebut dapat dilihat dibawah ini :
Contoh :
Var
Tabel : Array[1..3] of Array[1..2] of Byte;
atau :
Type
Matrik = Array[1..3,1..2] of Byte;
Var
Tabel : Matrik;
atau :
Type
Baris = 1..3;
Kolom = 1..2;
Matrik = Array[Baris,Kolom] of Byte;
Var
Tabel : Matrik;
atau :
Type
Baris = 1..3;
Kolom=1..2;
Matrik= Array[Baris] of Array[Kolom] of Byte;
Var
Tabel : Matrik;

Dibawah ini akan diberikan listing program penggunaan array dua dimensi dalam aplikasi penjumlahan matrik :
Contoh Prorgam:

Program Penjumlahan_Matrik;
Uses WinCrt;
Var
Matrik1,Matrik2, Hasil : Array[1..3,1..2] of Integer;
i,j : Integer;
Begin
ClrScr;
{ input matrik ke satu }
Writeln(' Elemen matrik satu');
For i := 1 to 3 Do
Begin
For j := 1 to 2 Do
Begin
Write('Elemen baris -',i,' Kolom -',j,'= ');
Readln(matrik1[i,j]);
End;
End;
{input matrik ke dua}
Writeln('input elemen matrik dua');
For i:= 1 to 3 Do
Begin
For j:= 1 to 2 Do
Begin
Write('Elemen baris -',i,' kolom -',j,'= ');
Readln(matrik2[i,j]);
End;
End;
{proses penjumlahan tiap elemen}
For i := 1 to 3 Do
Begin
For j:= 1 to 2 Do
Begin
Hasil[i,j]:=Matrik1[i,j]+Matrik2[i,j];
End;
End;
{proses cetak hasil}
For i:= 1 to 3 Do
Begin
For j:= 1 to 2 Do
Begin
Write(Hasil[i,j]:6);
End;
Writeln;
End;
Readln;
End.

V. Array Sebagai Parameter
Array dapat digunakan sebagai parameter yang dikirimkan baik secara nilai (by value) atau secara acuan (by reference) ke procedure atau ke function. Procedure yang menggunakan parameter berupa array harus dideklarasikan di dalam judul procedure yang menyebutkan parameternya bertipe array.

Contoh Program :
Program Contoh_Pengiriman_Parameter_Array_Di_Procedure;
Uses WinCrt;
Const
Garis ='---------------------------------------------------';
Type
Untai = Array[1..10] of String[15];
Bulat = Array[1..10] of Integer;
Huruf = Array[1..10] of Char;
Var
i,Banyak : Integer;
Procedure Proses(Nama:Untai;Nilai:Bulat);
Var
Ket : String;
Abjad : Char;
Begin
Writeln(Garis);
Writeln('Nama Nilai Abjad Keterangan');
Writeln(Garis);
For i := 1 to Banyak Do
Begin
If Nilai[i] > 90 Then
Begin
Abjad:='A';
Ket :='Istimewa';
End;
If (Nilai[i]<90) And (Nilai[i]>70) Then
Begin
Abjad:='B';
Ket :='Memuaskan';
End;
If (Nilai[i]<70) And (Nilai[i]>60) Then
Begin
Abjad:='C';
Ket :='Cukup';
End;
If (Nilai[i]<60) And (Nilai[i]>45) Then
Begin
Abjad:='D';
Ket :='Kurang';
End;
If Nilai[i]< 45 Then
Begin
Abjad:='E';
Ket :='Sangat kurang';
End;
Writeln(Nama[i]:15,' ',Nilai[i]:4,' ',Abjad,' ',Ket:15);
End;
Writeln(Garis);
End;
Procedure Masuk_Data;
Var
Nama : Untai;
Nilai : Bulat;
Begin
Write('Banyak data =');Readln(Banyak);
For i:= 1 to Banyak Do
Begin
ClrScr;
Writeln('Data ke - ',i);
Write('Nama =');readln(Nama[i]);
Write('Nilai =');readln(Nilai[i]);
End;
Proses(Nama,Nilai);
End;
{modul Utama}
Begin
Masuk_Data;
Readln;
End.

PEMROGRAMAN MYSQL

Mysql>use dosen;
Mysql>create table dosen amik (
->nip int(10) not null’
->nama¬_dosen Varchar(35) not null,
->mata_kuliah Varchar(25)not null,
->alamat varchar(35)not null,
->agama varchar(9)not null,
->primary key (nip));
nip Nama_dosen Mata_kuliah alamat agama

Mysql>insert into dosen_amik
->(nip,nama_dosen,mata_kuliah,alamat,agama)
->values
->(‘2147483647’,’welly ismail’,’etika profesi’,’maahas’,’islam’);
Mysql>insert into dosen_amik
->(nip,nama_dosen,mata_kuliah,alamat,agama)
->values
->(‘0918087901’,’agus santoso,’statistika’,’hanga-hanga’,’islam’);
Mysql>select * from dosen amik;
nip Nama_dosen Mata_kuliah alamat agama
2147483647 Welly ismail Etika profesi maahas islam
0918087901 Agus santoso statisika Hanga-hanga islam

Mysql> Update Dosen_amik
-> Set mata_kuliah=’ Etika profesi’
-> Where mata_kuliah=’sistem operasi’;

Mysql>select * from dosen amik;
nip Nama_dosen Mata_kuliah alamat agama
2147483647 Welly ismail System operasi maahas islam
0918087901 Agus santoso statisika Hanga-hanga islam

Mysql> Delete From Dosen_amik
-> Where nip=’ 2147483647’;

Mysql>select * from dosen amik;
nip Nama_dosen Mata_kuliah alamat agama
0918087901 Agus santoso statisika Hanga-hanga islam

Mysql> Alter Table Dosen_amik
-> Change Alamat tempat_tinggal Varchar(25);

Mysql>select * from dosen amik;
nip Nama_dosen Mata_kuliah Tempat_tinggal agama
0918087901 Agus santoso statisika Hanga-hanga islam

Mysql> Create tempat_tinggal On dosen_amik;

Tempat_tinggal
Hanga-hanga

Mysql> Drop Index tempat_tingggal On dosen_amik;

Mysql> Drop Table Dosen_amik;

STRUKTUR DATA

STRUKTUR DATA

KULIAH STRUKTUR DATA

MATRIKS

Matriks adalah sekumpulan informasi yang setiap individu elemennya terdefinisi berdasarkan dua buah indeks (yang biasanya dikonotasikan dengan baris dan kolom).
Setiap elemen matriks dapat diakses secara langsung jika kedua indeks diketahui, dan indeksnya harus bertype yang mempunyai keterurutan (suksesor), misalnya integer.
Matriks adalah struktur data dengan memori internal. Struktur ini praktis untuk dipakai tetapi memakan memori! (Matriks integer 100 x 100 memakan 10000 x tempat penyimpanan integer.)
Sering dikatakan bahwa matriks adalah tabel atau array berdimensi 2. Tetapi patut diperhatikan, bahwa pengertian "dimensi 2", "baris dan kolom" adalah dalam pemikiran kita. Pengaturan letak elemen matriks dalam memori komputer selalu tetap sebagai deretan sel "linier". Pengertian 2 dimensi ini hanya untuk mempermudah pemrogram dalam mendesain programnya. Maka matriks adalah salah satu contoh struktur data "lojik".
Contoh : untuk matriks 3x4 sebagai berikut:

Dapat disimpan secara linier dan kontigu dengan dua alternatif sebagai berikut :
a. Per baris
1 2 3 4 5 6 7 8 9 10 1112
b. Per kolom
1 5 9 2 6 10 3 7 11 4 8 12

Banyaknya baris dan banyaknya kolom biasanya disebut sebagai ukuran matriks.
Contoh: matriks berukuran 4 x 5 artinya mempunyai baris sebanyak 4 dan kolom sebanyak 5, sehingga dapat menyimpan 20 elemen. Ada beberapa bahasa pemrograman yang meminta ukuran matriks pada pendefinisiannya, ada yang meminta penomoran minimum dan maksimum dari baris dan kolom. Pada notasi algoritmik yang kita pakai, Cara kedua yang akan dipakai, sebab ukuran matriks dapat dideduksi dari penomorannya.

Matriks adalah struktur data yang "statik", yaitu ukuran maksimum memorinya ditentukan dari awal. Batas indeks baris dan kolom harus terdefinisi dengan pasti saat dideklarasi dan tak dapat diubah-ubah. Seringkali dalam persoalan semacam ini, kita memesan memori secara "berlebihan" untuk alasan terjaminnya memori yang tersedia, dan hanya memakai sebagian saja. Biasanya memori yang dipakai (selanjutnya disebut efektif) adalah yang "kiri atas" seperti ilustrasi sebagai berikut, dimana pada saat deklarasi, memori maksimum yang disediakan adalah 10x10, dan hanya akan dipakai untuk 3X4.
Jika bahasa yang menangani matriks tidak menentukan spesifikasi inisialisasi nilai pada saat memori dialokasi, maka:
1 1 1
2 2 2
3 3 3
4 4 4

1 2 3 4 5 6 7 8 9 10
1
2
3
4
5
6
7
8
9
10

"Linierisasi" per baris akan menghasilkan nilai :
{1,1,1,?,?,?,?,?,?,?},{2,2,2,?,?,?,?,?,?,?},{3,3,3,?,?,?,?,?,?,?},{4,4,4,?,?,?,?,?,?,?},{?,?,?,?,?,?,?,?,?,?},{?,?,?,?,?,?,?,?,?,?},{?,?,?,?,?,?,?,?,?,?},{?,?,?,?,?,?,?,?,?,?},{?,?,?,?,?,?,?,?,?,?},{?,?,?,?,?,?,?,?,?,?}

Sedangkan linierisasi per kolom akan menghasilkan nilai :
{1,2,3,4,?,?,?,?,?,?),{1,2,3,4,?,?,?,?,?,?),{1,2,3,4,?,?,?,?,?,?),{1,2,3,4,?,?,?,?,?,?),{?,?,?,?,?,?,?,?,?,?},{?,?,?,?,?,?,?,?,?,?},{?,?,?,?,?,?,?,?,?,?},{?,?,?,?,?,?,?,?,?,?},{?,?,?,?,?,?,?,?,?,?}, {?,?,?,?,?,?,?,?,?,?}

Akibat dari "linierisasi" yang tergantung kepada bahasa pemrograman tersebut, dan pemakaian memori yang "hanya sebagian" dari keseluruhan memori yang dipesan, maka passing parameter sebuah matriks dapat menimbulkan kesalahan.

Misalnya sebuah fungsi atau prosedur mempunyai parameter formal sebuah matriks dengan dimensi 6x6, dan bahasanya akan mengolah per kolom Jika parameter aktual adalah sebuah matriks berukuran 3x4 dengan nilai
1 2 3 4
5 6 7 8
9 10 11 12

Maka ketika nilai ditampung dalam prosedur berparameter formal matriks 6x6, dengan traversal i dan j untuk iε [1..3], jε[1..4] akan di proses dengan beberapa nilai tak terdefinisi yaitu {1,5,9,10,3,7,8,12,?,?,?,?}, seperti digambarkan sebagai berikut :
1 10 8 ? ? ?
5 3 12 ? ? ?
9 7 ? ? ? ?
2 11 ? ? ? ?
6 4 ? ? ? ?

Maka, sebaiknya jika merancang prosedur atau fungsi yang mempunyai parameter, ukuran parameter formal harus sama dengan parameter aktual.
Beberapa bahasa, misalnya bahasa Fortran, menyediakan fasilitas "adjustable dimension", yaitu ukuran parameter formal matriks belum ditentukan dimensinya, dan baru ditentukan saat parameter aktual diberikan. Fasilitas ini mengurangi kesalahan yang terjadi.

Beberapa contoh matriks dan isinya:

1. MatNamaHari [1..7,1..3] : Nama hari ke 1 s/d 7 dalam 3 bahasa (Indonesia, Inggris, Prancis) :
1 =INDONESIA 2 = INGGRIS 3 = PRANCIS
1 Senin Monday Lundi
2 Selasa Tuesday Mardi
3 Rabu Wednesday Mercredi
4 Kamis Thursday Jeudi
5 Jum'at Friday Vendredi
6 Sabtu Saturday Samedi
7 Minggu Sunday Dimanche

2. A [1..5,1..5] : Matriks bilangan real
1 2 3 4 5
1 12.1 7.0 8.9 0.7 6.6
2 0.0 1.6 2.1 45.9 55.0
3 6.1 8.0 0.0 3.1 21.9
4 9.0 1.0 2.7 22.1 6.2
5 5.0 0.8 0.8 2.0 8.1

3. MatFrek [`A'..'E',1..7] : Matriks frekuensi kemunculan huruf `A' s/d `E' pada hasil pemeriksaan 7 pita karakter

1 2 3 4 5 6 7
`A' 12 71 82 0 62 30 11
`B' 0 1 2 45 5 3 10
`C' 6 8 0 3 21 3 6
`D' 9 1 2 22 6 9 7
`E' 5 0 0 2 8 45 23
4. MatSurvey [1..4,1..7] : Matriks hasil survey pada titik koordinat,. Mat(i,j)adalah hasil pengukuran pada titik koordinat i,j
1 2 3 4
1 <24,5> <24, 5> <30,5> <25,5>
2 <23,56> <3,6> <40,5> <2,2>
3 <22,73> <7,3> <60,6> <8,3>
4 <21,56> <8,5> <9,8> <7,4>
5 <23,56> <12,50> <3,36> <30,6>
6 <20,0> < 2,56> <5,46> <20,99>
7 <30,0> < 9,0> <15,0> <27,0>

5. MatSat [1..4,1..4] : Matriks satuan
1 2 3 4
1 1 0 0 0
2 0 1 0 0
3 0 0 1 0
4 0 0 0 1
6. MatSym [1..6,1..6] : Matriks simetris
1 2 3 4 5 6
1 1 0 10 0 4 33
2 0 12 0 0 3 4
3 10 0 11 0 4 3
4 0 0 0 1 0 2
5 4 3 4 0 8 1
6 33 4 3 2 1 0

Contoh Pemakaian matriks:
- matriks banyak digunakan dalam komputasi numerik untuk representasi dalam finite element
- seperti penggunaan matriks dalam matematika. Perhitungan "biasa" terhadap matriks : penjumlahan, perkalian dua matriks, menentukan determinan,
menginvers sebuah matriks, memeriksa apakah sebuah matriks : simetris, matriks satuan. Hanya saja dalam algoritma, semua "perhitungan" itu menjadi tidak primitif, harus diprogram
- dalam perhitungan ilmiah di mana suatu sistem diwakili oleh matriks (elemen hingga dalam teknik sipil dan mesin)
- dalam persoalan pemrograman linier dan operational research.
- dalam persoalan algoritmik : untuk menyimpan informasi yang cirinya ditentukan oleh 2 komponen (yang nantinya diterjemahkan dalam baris dan kolom) dan diakses langsung.
Contoh : merepresentasi "cell" pada sebuah spreadsheet, merepresentasi "ruangan" pada sebuah gedung bertingkat,...

Notasi algoritmik dari matriks :
NamaMatriks (indeks1,indeks2)
Domain :
- Domain matriks sesuai dengan pendefinisian indeks
- Domain isi matriks sesuai dengan jenis matriks
Konstanta :
- Konstanta untuk seluruh matriks tidak terdefinisi,
- Konstanta hanya terdefinisi jika indeks dari matriks terdefinisi

IMPLEMENTASI Fisik 1 :
Karena sering dipakai, type primitif yang namanya matrix sudah dianggap ada, seperti halnya type dasar array. Hanya saja kalau type array ditentukan oleh satu indeks, maka type matrix mampu menangani 2 indeks, yang diinterpretasikan oleh pemrogram seperti baris dan kolom.

Contoh (lihat Gambar): Perhatikanlah "semantik" dari setiap pendefinisian berikut :
MatFrek : matrix ['A'..'E',1..7] of integer
Sebuah matriks yang merepresentasi frekuensi huruf 'A' s/d 'E', untuk 7 buah teks. Maka MatFrek(i,j) berarti Frekuensi huruf ke-i untuk teks ke-j

A: matrix [1..5,1..5] of real
Sebuah matriks seperti dalam matematika biasa

NamaHari: matrix [1..7,1..3] of string
Untuk matriks nama hari pada contoh-1 yang merepresentasi nama-nama ke 7 (tujuh) buah hari ([1..7]) dalam 3 (tiga) bahasa ([1..3]). Maka NamaHari[i,j] berarti Hari ke-i dalam bahasa ke-j

Untuk matriks yang merepresentasi hasil survey pada setiap titik koordinat pengamatan. Koordinat yang diukur adalah (1,1) s/d (4,7).dengan definisi
type Data :
MatSurvey: matrix [1..4,1..7] of Data
Maka, MatSurvey(i,j) berarti hasil Data pengukuran temperatur dan kecepatan angin pada grid kartesian (i,j)
Cara mengacu : melalui indeks
MatHari(i,j) , jika i dan j terdefinisi
TabNamaHari(1,7)
MatSurvey(3,5) untuk mengacu satu data survey
MatSurvey(3,5).Temp untuk mengacu data temperatur

IMPLEMENTASI Fisik 2 : Struktur fisik adalah tabel dari tabel (array of array)
Type dasar yang namanya matrix tidak ada, maka dibentuk dari type array. Maka matriks adalah array dari array.

MatFrek : array ['A'..'E'] of array [1..7] of integer
Sebuah matriks yang merepresentasi frekuensi huruf 'A' s/d 'E', untuk 7 buah teks. Maka MatFrek(i,j) berarti Frekuensi huruf ke-i untuk teks ke-j ditulis sebagai :
MatFrek(i,j)

A: array [1..5] of array [1..5] of integer
Sebuah matriks seperti dalam matematika ditulis sebagai :
A(i,j)

NamaHari: array [1..7] of array [1..3] of string
Sebuah matriks yang merepresentasi nama-nama ke 7 hari ([1..7]) dalam tiga bahasa ([1..3]), maka NamaHari(i,j) berarti Hari ke-i dalam bahasa ke-j ditulis sebagai :
NamaHari (i,j)

DataGeo : type
MatSurvey: array [1..4] of array [1..7] of DataGeo
Sebuah matriks yang merepresentasi hasil survey pada setiap titik koordinat pengamatan. Koordinat yang diukur adalah (1,1) s/d (7,4). Maka, MatSurvey(i,j) berarti hasil Data pengukuran temperatur dan kecepatan angin pada grid kartesian (i,j) ditulis sebagai MatSurvey(i,j)
Sedangkan untuk mengacu kepada data kecepatan angin : Matsurvey(i,j).Temp

Beberapa catatan mengenai matriks :
• Struktur matriks adalah struktur internal yang statis dan kontigu
• Alokasi memori sebuah matriks berukuran N x M selalu dilakukan sekaligus. Dari ruang memori berukuran N x M tsb, mungkin hanya "sebagian" yang dipakai.

IL/4_Adtmatri.doc/ADT MATRIKS 06/16/03 9:24 AM
Purchase@SoftInterface.com
Karena itu ada pengertian :
• Definisi ruang memori seluruh matriks
• Memori yang secara efektif dipakai oleh sebuah matriks tertentu
• Nilai yang disimpan dalam sebuah matriks dapat disimpan di dalam ruang memori dipesan.
• Matriks dapat menimbulkan persoalan dalam passing parameter. Karena itu sebaiknya parameter aktual dan parameter formal sama ukuran memorinya.

Perluasan dari matriks dua "dimensi" :
• Beberapa bahasa memungkinkan deklarasi variabel dengan lebih dari dua "dimensi" yaitu "indeks". Tidak disarankan untuk merancang struktur data internal dengan dimensi lebih dari 3!
• Pelajarilah fasilitas dari bahasa Pascal dan C untuk deklarasi, inisialisasi dan memproses matriks berdimensi 3 atau lebih amati perbedaannya jika ada.

ADT MATRIKS Dalam Bahasa Algoritmik

{ Definisi ABSTRACT DATA TYPE MATRIKS }
{ ************ HUBUNGAN DENGAN ADT LAIN ******************}
{ Tidak ada}
{ Alokasi elemen matriks selalu dilakukan sekaligus }
{ Definisi TYPE MATRIKS dengan indeks integer}
{ Ukuran minimum dan maksimum baris dan kolom }
type indeks : integer { indeks baris, kolom }
constant BrsMin : indeks =1
constant BrsMax : indeks =100
constant KolMin : indeks =1
constant KolMax : indeks =100
type el_type : integer
type MATRIKS :
< Mem : matrix(BrsMin..BrsMax,KolMin..KolMax) of el_type NbrsEff : integer {banyaknya/ukuran baris yg terdefinisi } NkolEff : integer {banyaknya/ukuran kolom yg terdefinisi } >
{ Invarian ADT : Matriks "kosong" : NbrsEff=0 dan NkolEff=0}
{ NbrsEff ≥ 1 dan NkolEff ≥ 1 }
{ Memori matriks yang dipakai selalu di "ujung kiri atas" }
{ ********************** Definisi METHOD **********************}
{ DEFINISI PROTOTIP PRIMITIF }
{ ** Konstruktor membentuk MATRIKS *}
procedure MakeMAT (NB:integer NK:integer)
{Membentuk sebuah MATRIKS "kosong" berukuran NB x NK di "ujung kiri" memori }
{ I.S. NB dan NK adalah valid untuk memori matriks yang dibuat }
{F.S. sebuah matriks sesuai dengan def di atas terbentuk }
{ ** Selektor "DUNIA MATRIKS ****}
function IdxBrsMin → indeks
{ Mengirimkan indeks Baris minimum Matriks apapun}
function IdxKolMin → indeks
{ Mengirimkan indeks Kolom minimum Matriks apapun }
function IdxBrsMax → indeks
{ Mengirimkan indeks Baris maksimum Matriks apapun }
function IdxKolMax → indeks
{ Mengirimkan indeks Kolom maksimum Matriks apapun }
function IsIdxValid (i,j: indeks) → boolean
{ Mengirimkan true jika I,j adalah indeks yang valid}

{ Untuk sebuah matriks M yang terdefinisi : }
function FirstIdxBrs (M: Matriks) → indeks
{ Mengirimkan indeks baris terkecil M}
function FirstIdxKol(M: Matriks) → indeks
{ Mengirimkan indeks kolom terkecil M}
function LastIdxBrs (M: Matriks) → indeks
{ Mengirimkan indeks baris terbesar M}
function LastIdxKol (M: Matriks) → indeks
{ Mengirimkan indeks kolom terbesar M}
function GetNBrsEff (M: Matriks) → integer
{ Mengirimkan Banyaknya Baris efektif M}
function GetNKolEff → integer
{ Mengirimkan Banyaknya Kolom efektif M}
function IsIdxEff (M: Matriks, i,j: indeks) → boolean
{ Mengirimkan true jika i,j adalah indeks efektif bagi M}
function GetElmt(M: Matriks, i,j : indeks) → el_type
{ Mengirimkan Elemen M dg nomor baris i dan nomor kolom j}
function GetElmtDiagonal(M: Matriks, i : indeks) → el_type
{ Mengirimkan Elemen M(i,i)}
{*** Operasi mengubah nilai elemen matriks: Set / Assign }
procedure SetBrsEff (Input/Output M: Matriks, Input NB : integer)
{I.S. M sudah terdefinisi }
{F.S. Nilai M.BrsEff diisi dengan NB, }
procedure SetKolEff (Input/Output M: Matriks, Input NK : integer)
{I.S. M sudah terdefinisi }
{F.S. Nilai M.NKolEff diisi dengan NK }
procedure SetEl (Input/Output M: Matriks, Input i,j : integer
input X : el_type)
{I.S. M sudah terdefinisi }
{F.S. M(i,j) bernilai X }
{Proses: Mengisi M(i,j) dengan X }

{ ****** Assignment MATRIKS *}
Procedure (Input Min: MATRIKS, Output MHsl: MATRIKS)
{ Melakukan assignment MHsl ← Min }

{ ******* KELOMPOK BACA/TULIS
procedure BacaMATRIKS (Output M: MATRIKS, Input NB,NK : integer)
{ I.S. IsIdxValid(NB,NK) }
{ F.S. M terdefinisi nilai elemen efektifnya, dan berukuran NB x NK }
{ Melakukan MakeMatriks(M,NB,NK) dan mengisi nilai efektifnya}
{ dari pembacaan dengan traversal per baris}
procedure TulisMATRIKS (Input M: MATRIKS)
{ I.S. M terdefinisi }
{ F.S. Sama dengan I.S, dan nilai M(i,j) ditulis ke layar}
{ Menulis Nilai setiap indeks dan elemen M ke layar }
{ dengan traversal per baris }
{ KELOMPOK OPERASI ARITMATIKA TERHADAP TYPE }
function "+" (M1,M2: MATRIKS) → MATRIKS
{ Precond : M1 berukuran sama dengan M2}
{ Mengirim hasil penjumlahan matriks: M1 + M2 }
function "-" (M1,M2: MATRIKS) → MATRIKS
{ Precond : M berukuran sama dengan M}
{ Mengirim hasil pengurangan matriks: salinan M1 M2 }
function "*" (M1,M2: MATRIKS) → MATRIKS
{ Precond : Ukuran Baris efektif M = Ukuran kolom efektif M}
{ Mengirim hasil perkalian matriks: salinan M1 * M2}
function "*" (M: MATRIKS, X: integer) → MATRIKS
{ Mengirim hasil perkalian setiap elemen M dengan X}
procedure "*" (M: MATRIKS, K : integer)
{ Mengalikan setiap elemen M dengan K}

{ ** Kelompok operasi relasional terhadap MATRIKS }
function "="(M1,M2: MATRIKS) → boolean
{ Mengirimkan true jika M1 = M2, }
{ yaitu NBElmt(M1) = NBElmt(M2) dan }
{ untuk setiap i,j yang merupakan indeks baris dan kolom}
{ M1(i,j) = M2(i,j) }
function StrongEQ (M1,M2: MATRIKS) → boolean
{ Mengirimkan true jika M1 "strongly equal" M2, }
{ yaitu FirstIdx(M1) = FirstIdx(M2) dan LastIdx(M1)=LastIdx(M2) dan }
{ untuk setiap i,j yang merupakan indeks baris dan kolom}
{ M1(i,j) = M2(i,j) }
function NEQ(M1,M2: MATRIKS) → boolean
{ Mengirimkan true jika not strongEQ(M1,M2) }

function EQSize(M1,M2: MATRIKS) → boolean
{ Mengirimkan true jika ukuran efektif matriks M1 sama dengan}
{ ukuran efektif M2 }
{ yaitu GetBrsEff(M1) = GetNBrsEff (M2) }
{ dan GetNKolEff (M1) = GetNKolEff (M2) }
function "<"(M1,M2: MATRIKS) → boolean
{ Mengirimkan true jika ukutan efektif M1 < Ukuran efektif M2}

{ *** Operasi lain ****}
function NBElmt(M:Matriks) → integer
{ Mengirimkan banyaknya elemen M }
{ ** Kelompok Test terhadap MATRIKS}
function IsBujurSangkar(M:Matriks) → boolean
{Mengirimkan true jika M adalah matriks dg ukuran baris dan kolom
sama}
function IsSymetri (M:Matriks) → boolean
{ Mengirimkan true jika M adalah matriks simetri : IsBujurSangkar(M)
dan untuk setiap elemen M, M(i,j)=M(j,i)}
function IsSatuan(M:Matriks) → boolean
{ Mengirimkan true jika M adalah matriks satuan: IsBujurSangkar(M)
dan Setiap elemen diagonal M bernilai 1 dan elemen yang bukan
diagonal bernilai 0 }
function IsSparse(M:Matriks) → boolean
{ Mengirimkan true jika M adalah matriks sparse: mariks "jarang"
dengan definisi : hanya maksimal 5% dari memori matriks yang efektif
bukan bernilai 0 }
function Invers1(M:Matriks) → MATRIKS
{ Menghasilkan salinan M dg setiap elemen "diinvers" }
{ yaitu dinegasikan}
function Invers(M:Matriks) → MATRIKS
{ Menghasilkan salinan M dg setiap elemen "diinvers" }
{ yaitu di-invers sesuai dengan aturan inversi matriks}
function Determinan → real
{ Menghitung nilai determinan M}
procedure traversalBrs (Input M : MATRIKS)
{ Melakukan traversal terhadap M, per baris}
{ I.S. M terdefinisi}
{F.S. setiap elemen M diproses dengan Proses P(el_type) yang
terdefinisi }
procedure traversalKol (Input M : MATRIKS)
{ Melakukan traversal terhadap M, per kolom per kolom}
{ I.S. M terdefinisi}
{F.S. setiap elemen M diproses dengan Proses P P(el_type) yang
terdefinisi }
procedure Invers1(Input/Output M : MATRIKS)
{ I.S. M terdefinisi }
{ F.S. M diinvers, yaitu setiap elemennya dinegasikan }
procedure Invers(Input/Output M : MATRIKS)
{ I.S. M terdefinisi }
{ F.S. M "di-invers", yaitu diproses sesuai dengan aturan invers
matriks }
procedure Transpose (Input/Output M : MATRIKS)
{ I.S. M terdefinisi, dan IsBujursangkar(M) }
{ F.S. M "di-transpose", yaitu setiap elemen M(i,j) ditukar nilainya
dengan elemen M(j,i)}

STRUKTUR DATA1

KULIAH STRUKTUR DATA

H A R I : S E N I N
PENGAMPU : EDI SUHARTO, ST
KUSHARTANTYA

MATERI MELIPUTI ANTARA LAIN :
1. Pengantar: Pengertian tentang struktur data secara umum. Mengulang sekilas tentang tipe-tipe data.
2. Tipe Bentukan
3. Matriks
4. Stack : Memahami cara kerja dan kegunaan Stack dengan materi Operasi dasar; Contoh Kegunaan; Implementasi.
5. Queue : Memahami cara kerja dan kegunaan Queue dengan materi Operasi dasar; Contoh Kegunaan; Implementasi.
6. Linked List : Memahami struktur data Linked List, operasi-operasi pada linked list antara lain penyisipan, penambahan dan penghapusan. Dapat mengimplementasikan linked list.
Single Linear linked list; Double Linear Linked List; Single Circular Linked List; Double Circular Linked List.
7. Tree (Pohon): Memahami definisi dan terminologi mengenai tree secara umum. Mengenali cara melakukan operasi untuk tiap-tiap elemen pada tree.

Komponen Penilaian :
• Tugas-Tugas, Praktikum 20 %
• Ujian Tengah semester 40 %
• Ujian Akhir Semester 40 %

Ketiga komponen tsb harus ada dan lengkap, jika salah satu komponen tidak ada atau tidak lengkap maka nilai akhir tidak akan diberikan.
Semua mhs yang mengulang harus mengikuti kuliah. Bagi yang perbaikan boleh tidak mengikuti kuliah bagian I (sampai dengan ujian tengah semester) tetapi tetap harus tetap mengerjakan tugas-tugas yang diberikan.
Referensi:
Inggriani Liem: Kuliah Struktur Data, Bandung ITB
Larry Nyhoff, Sanford Leestma: Advanced Programming in Pascal with Data Structures. Macmillan Publishing Company New York.
Nell Dale, Susan C. Lilly: Pascal Plus Data Structures, Algorithms, and Advanced Programming. D.C. Heath and Company.
P Insap Santoso: Struktur Data dengan Turbo Pascal.

1. PENGANTAR

Pengertian Struktur Data
Struktur data adalah cara menyimpan merepresentasikan data di dalam komputer agar dapat digunakan secara efisien.
Sedangkan data sendiri adalah representasi dari fakta dunia nyata. Yaitu fakta atau keterangan tentang kenyataan yang disimpan, direkam atau direpresentasikan dalam bentuk tulisan, suara, gambar, sinyal atau simbul.

Secara garis besar type data dapat dikategorikan menjadi :
1. Type data sederhana
a. Type data sederhana tunggal, misalnya Integer, real, boolean dan karakter
b. Type data sederhana majemuk, misalnya String
Sedangkan
2. Struktur Data meliputi
a. Struktur data sederhana misalnya array (larik), record (rekaman)
b. Struktur data majemuk
• Yang Linier : Stack, Queue, List dan Multilist
• Yang Non Linier : Pohon Biner, Graph.

Mengapa struktur data perlu dipelajari ? Karena dengan pemakaian struktur data yang tepat di dalam proses pemrograman akan menghasilkan algoritma yang jelas dan tepat, sehingga menjadikan program secara keseluruhan lebih efisien dan sederhana.
Struktur data yang ”baku” yang biasanya digunakan di bidang informatika adalah :
a. Stack
b. Queue
c. List Linier dan variasinya (Single, Double)
d. Tree (Pohon)
e. Graph

Tipe data dapat dikaji dari sisi kelas maupun level abstraksinya. Dilihat dari kompleksitasnya terdapat dua klas tipe data
1. Tipe data atomik: tipe data yang dipandang sebagai satu kesatuan tunggal dan tidak dapat dipecah-pecah lagi (non decomposible entity). Contoh : integer, char, float/real.
2. Tipe data berstruktur: tipe data yang dipandang sebagai satu kesatuan tunggal dan dapat dipecah-pecah lagi (decomposible entity). Contoh : Array, Record dll.

2. TIPE BENTUKAN

Tipe dasar sudah cukup untuk dapat dipakai memproses sebagian besar data yang ada, namun tipe dasar tidak cukup untuk memproses banyak data, apalagi data yang memiliki struktur tertentu.
Untuk menyelesaikan persoalan pengolahan data tertentu, suatu tipe data baru dapat dibentuk berdasarkan tipe data dasar (primitif).

Tipe Enum
Tipe enum adalah suatu tipe yang elemennya didefinisikan sendiri satu per satu. Dalam representasinya sebenarnya tipe enum ini adalah sebuah integer yang diberi nama. Dalam Pascal tipe ini didefinisikan dengan cara menyebut elemen-elemennya:
type
hari = (senin, selasa, rabu, kamis, jumat, sabtu, minggu);
warna = (merah, kuning hijau);

Tipe enum tidak bisa dibaca (dengan readln) atau ditulis (dengan writeln), tipe jenis ini hanya bisa diberi nilai dengan assignment.

Tipe Enumerasi
Tipe enumerasi adalah tipe yang elemen -elemennya bisa disebutkan satu persatu (bisa dicacah), integer, enum, dan karakter adalah contoh tipe enumerasi. Tipe real tidak bisa dicacah satu persatu, tipe string juga tidak bisa dicacah satu per satu.

Subtipe Integer
Integer memiliki range tertentu sesuai dengan jumlah bit yang dipakai oleh integer. Terkadang dalam kasus tertentu hanya diperlukan subrange (sebagian range) integer, misalnya untuk mengolah data jam yang berbasis 60 (seksadesimal), yang diperlukan hanyalah angka dari 0 sampai 59, angka di luar itu sifatnya tidak valid. Subtipe integer didefinisikan dengan menyebutkan range untuk tipe tersebut.
Type jam = 1..12;
menit = 0..59;
detik = 0..59;
Pengecekan run time dan compile time
Perhatikan bahwa jika Anda memiliki variabel m dengan tipe menit, lalu melakukan hal ini:
m:= 61;
maka kompilator akan menolak program karena ada pemeriksaan pada waktu kompilasi yang mencegah m diisi selain 0 sampai 59. Namun jika dalam program dilakukan hal ini:
readln(m);
maka kompilator tidak akan menolak jika pengguna memasukkan angka selain 0 sampai 59, dengan kata lain, kompilator hanya melakukan pengecekan waktu kompilasi (compile time), tapi tidak waktu eksekusi (run time).
Cara yang benar untuk membaca tipe menit agar masuk ke m adalah dengan membaca integer ke dalam variabel lain dan memeriksa hasil pembacaan, seperti ini:
var i:integer;
m: menit;
begin
repeat
readln(i);
until (i>=0) and (i<=59);
m:=i; (* bilangan yang dimasukkan ke m pasti sudah valid*)
end.

Tipe SET (himpunan)
Tipe himpunan adalah tipe yang bisa menerima himpunan nilai yang masing-masing elemennya adalah tipe enumerasi. Perhatikan: tidak semua bahasa pemrograman prosedural memiliki tipe SET.
Deklarasi tipe himpunan adalah:
type
hari = (senin, selasa, rabu, kamis, jumat, sabtu, minggu);
setkar = set of char;
harihari = set of hari;

Operasi yang tersedia untuk himpunan meliputi: gabungan (union), irisan (intersection), dan pengurangan elemen himpunan, serta pengecekan keanggotaan.
Tipe set tidak bisa dibaca dan ditulis secara langsung menggunakan read/readln/write/writeln.
Tipe Komposisi (Record)
Suatu tipe bisa disusun dari beberapa tipe, misalnya tipe mahasiswa bisa disusun dari tipe string untuk nama, tipe real untuk nilai, dan tipe integer untuk nomor urutnya. Deklarasi tipe komposisi dalam Pascal adalah:
type mahasiswa = record
nama:string;
urut: integer;
nilai:real;
end;
var mhs: mahasiswa;

Cara mengakses elemen tipe adalah dengan titik, misalnya:
writeln(mhs.nama);
Atau dengan blok with :
with mhs do
begin
writeln(nama);
end;

Jika bagian dari tipe bentukan merupakan tipe dasar yang bisa langsung dibaca atau tulis maka elemen tersebut bisa langsung dibaca atau ditulis, namun bagian tipe yang tidak bisa dibaca dan ditulis langsung tetap harus diperlakukan khusus.

Tabel Berdimensi Satu (Array)
Jenis variabel yang telah diberikan hanya bisa digunakan untuk menyimpan sebuah nilai saja. Dalam banyak kasus kita perlu menyimpan banyak nilai yang serupa untuk diproses, misalnya data nilai mahasiswa dalam suatu kelas untuk dihitung rata-ratanya.
Tabel adalah tipe data yang dapat menampung sejumlah data dengan tipe sejenis, jumlah data yang dapat disimpan dibatasi oleh kemampuan kompilator dan komputer. Deklarasi tabel integer yang terdiri dari 100 elemen adalah:
var
tabint : array [1..100] of integer;
Dengan deklarasi semacam itu sebuah tabel yang terdiri dari 100 elemen integer dibentuk, dan dapat diakses melalui indeksnya (antara 1 sampai 100, inklusif). Untuk mengakses elemen tabel ke-n gunakan sintaks: tabint[n].
Tabel dapat diproses menggunakan loop (biasanya loop for, karena indeks tabel sudah jelas), contoh berikut akan menjumlahkan seluruh elemen tabel integer yang dideklarasikan di atas (jumlah dan I bertipe integer):
jumlah:=0;
for i:=1 to 100 do jumlah:=jumlah+tabint[i];
writeln('Jumlah elemen tabel adalah:', jumlah);

String sebagai Array of Character
String sebenarnya adalah tabel berdimensi satu dengan elemennya berupa karakter, indeks ke-0 tabel berisi panjang string saat ini, dan indeks ke 1 dan seterusnya berisi data karakter yang ada pada string. Pada string seperti ini:
s := 'hello';
maka s[1] = 'h', s[2]='e', dst. Sedangkan ord(s[0]) akan berisi panjang string yaitu 5. Pengaksesan panjang string melalui elemen ke-0 tidak disarankan, karena tergantung pada implementasi Pascal, elemen string sebaiknya hanya diakses mulai dari elemen 1 sampai panjang string.

Tabel Berindeks Banyak (Tabel Multi Dimensi)
Terkadang kita perlu memiliki tabel dengan dimensi lebih dari satu. Matriks merupakan salah satu contoh table dengan banyak dimensi (tabel multi dimensi). Tabel multi dimensi dipandang oleh semua bahasa yang mengenal tipe data tabel satu dimensi, karena tabel dua dimensi bisa dipandang sebagai tabel dari tabel.
Dalam Pascal, tipe tabel multi dimensi dapat dideklarasikan seperti ini:
var
matriks : array [1..4, 1..4] of integer;

Pengaksesan elemen tabel dilakukan mirip seperti peng-aksesan tabel satu dimensi:
matriks[baris, kolom]:=nilai;
Pemrosesan tabel multi dimensi umumnya dilakukan dengan nested loop. Hal yang perlu diperhatikan dalam pemrosesan tabel dengan loop adalah bahwa indeks tabel tidak boleh lebih dari yang sudah dideklarasikan.

Sabtu, 12 November 2011

tingkatkan percaya diri anda dan orang terdeekat anda

Memiliki kepribadian pemberani dan percaya diri dalam melakukan segala hal adalah keinginan setiap orang. Usaha dengan cara-cara yang mereka ketahui untuk menghilangkan sifat penakut, pengecut, ragu-ragu, pemalu dan minder telah mereka lakukan. Namun sebagian besar usaha tersebut gagal karena keinginan itu tidak bisa menjangkau alam bawah sadar diri mereka. Ada beberapa metode untuk memasuki alam bawah sadar misalnya dengan latihan-latihan meditasi, yoga dan tai chi. Namun tidak semua orang bisa melakukannya. Ada cara mudah memasuki otak bawah sadar, yaitu dengan teknologi Gelombang Otak (Brainwave). CD ini mengandung subliminal message atau sugesti tersembunyi yang tidak terdengar pikiran sadar tapi bisa didengar dan langsung masuk ke alam bawah sadar.

Sugesti adalah saran yang berupa kalimat perintah atau pernyataan yang disampaikan kepada seseorang agar orang tersebut dapat berubah sesuai keinginan. Sedangkan Subliminal Message adalah sugesti yang dibuat dengan cara tertentu dengan frekuensi suara dibawah batas ambang pendengaran pikiran sadar. Tujuannya agar sugesti tersebut langsung masuk ke alam bawah sadar tanpa melalui proses penyaringan oleh pikiran sadar. Dengan cara inilah sebuah sugesti menjadi sangat efektif dan bertahan lebih lama (hasilnya permanen).

Ingat pelajaran IPA waktu SMU. Telinga manusia memiliki keterbatasan kemampuan pendengaran berdasarkan besar kecil frekuensi bunyi yang didengar. Frekuensi bunyi yang dapat didengar oleh manusia normal disebut dengan frekuensi audio. Batas terkecil disebut dengan Frekuensi Infrasonic, yaitu dibawah 20 hz, sedangkan batas terbesar disebut Frekuensi Ultrasonic yaitu diatas 20.000 hz. Di sini kami ingin sampaikan bahwa sepetinya ada hal penting yang tidak dibahas di buku pelajaran IPA waktu SMU, yaitu bahwa gelombang yang diluar batas pendengaran manusia (pendengaran pikiran sadar), sebetulnya bisa didengarkan oleh alam bawah sadar.

Sumber segala perasaan adalah alam bawah sadar, yaitu bagian dari pikiran kita yang tidak bisa kita kendalikan secara sadar. Anda pasti pernah merasakan bagaimana sulitnya menyembunyikan perasaan takut, malu, ragu-ragu, minder, sedih, marah, sakit hati, kecewa dsb. Anda pasti pernah punya keinginan untuk menghilangkan perasaan takut dan malu yang Anda rasakan, tetapi Anda tidak bisa melenyapkan perasaan itu begitu saja. Semakin Anda menolak, semakin kuat perasaan tersebut. Memang seperti itulah cara kerja alam bawah sadar dalam membentuk perasaan manusia.

Banyak pelanggan gelombangotak.com yang sudah menggunakan CD ini dan merasakan bertambahnya keberanian dan kepercayaan diri mereka. Saya sendiri pun sering mendengarkan CD ini apabila saya membutuhkan keberanian lebih untuk menghadapi suatu pekerjaan yang berat atau untuk menghadapi permasalahan dengan berani dan percaya diri. Sejauh ini CD ini sangat membantu kami untuk memberikan sugesti agar saya tetap tenang menghadapi segala kejadian yang tidak pasti dalam kehidupan. Berani dan percaya diri menimbulkan kewibawaan yang besar..!

tingkatkan percaya diri

Percaya diri itu seni. Jika Anda merasa belum percaya diri, maka Anda bisa menjadi percaya diri. Jika Anda sudah merasa percaya diri, maka Anda bisa menjadi lebih percaya diri.

Percaya diri itu dinamis, ia bisa naik dan turun, berubah dan berkembang. Apa yang perlu Anda lakukan, adalah menjaganya agar tetap berada di tingkat yang optimal dan sehat.

UNTUK APAPUN, ANDA HARUS BERBICARA

Dalam aktivitas apapun yang Anda lakukan, Anda akan melakukan tiga hal berikut ini:

1. Memimpin;
2. Menjual;
3. Mempresentasikan.

Dalam faktanya, Anda bahkan mungkin melakukan ketiganya sekaligus.

Jika Anda sedang memimpin, maka Anda pasti sedang menjual sesuatu agar diikuti oleh orang-orang yang Anda pimpin. Dan dalam melakukannya, Anda akan menyajikan atau mempresentasikan berbagai hal yang relevan.

Jika Anda sedang menjual sesuatu, Anda sedang mengupayakan posisi memimpin, agar prospek Anda mau mengambil keputusan sesuai dengan yang Anda inginkan sebagai pihak yang menjual. Dan sekali lagi, Anda pasti mempresentasikan berbagai hal yang relevan.

Jika Anda sedang berpresentasi, maka Anda bisa dipastikan sedang menjual sesuatu. Dan karena Anda sedang berusaha menjual sesuatu, maka Anda pasti berupaya untuk memimpin audience, agar mendengarkan Anda, agar menyimak presentasi Anda, agar memahami maksud dan tujuan Anda, dan agar teryakinkan sesuai tujuan presentasi Anda.

Dalam melakukan semua aktivitas di atas, media paling umum yang akan Anda gunakan adalah komunikasi verbal alias berbicara.

Muara dari semua aktivitas itu, atau hasil akhir dari semua aktivitas itu, akan sangat ditentukan oleh kualitas bicara Anda. Sebelum sampai ke persoalan teknis seperti struktur bicara, intonasi, gaya bahasa atau bahkan pilihan kata dan kalimat, aspek mendasar dari kualitas bicara Anda adalah tingkat percaya diri Anda saat melakukannya.

Singkatnya, Anda harus menaburkan aura percaya diri saat berbicara. Karena dari situlah segala hasil akhir akan ditentukan. Jadi, titik awal Anda untuk semua aktivitas itu, adalah meraih rasa percaya diri yang lebih baik.

Berikut ini adalah kompilasi berbagai alasan untuk percaya diri, yang dikumpulkan dari para pakar manajemen, kepemimpinan, komunikasi dan motivasi.

PERCAYA DIRI BERARTI TAHAN BANTING

Jika Anda percaya diri, maka Anda akan lebih tahan terhadap berbagai tekanan, karena punya tempat berpijak dan cara berpikir yang kokoh dan kuat.

Jika Anda percaya diri, maka Anda akan lebih mampu menghadapi variasi dari situasi pribadi, sosial dan bisnis yang makin ketat dan makin keras belakangan ini.

Jika Anda percaya diri, maka Anda akan lebih tahan untuk berhadapan dengan orang lain yang makin hari makin kritis. Ingatlah bahwa tekanan yang makin kuat tidak hanya dialami oleh diri Anda sendiri, melainkan juga oleh setiap orang lain yang hidup bersama Anda di dunia ini.

Jika Anda percaya diri, maka Anda akan lebih mampu menghadapi orang lain yang makin hari makin keras dan bukan tidak mungkin makin menyebalkan.

Jika Anda percaya diri, maka Anda akan lebih mampu menghadapi berbagai apresiasi yang realistik dan objektif.

Pada akhirnya, jika Anda percaya diri, maka Anda akan lebih memiliki kontrol terhadap berbagai situasi dan keadaan yang penting untuk apapun kepentingan Anda.

PERCAYA DIRI BERARTI MAMPU MENGONTROL

Percaya diri Anda dibangun dengan berlatih untuk mengontrol berbagai hal. Dengan tingkat percaya diri yang makin baik, akan Anda akan lebih mampu mengontrol berbagai hal. Dengan percaya diri yang lebih tinggi, Anda akan mampu mengontrol berbagai aspek dari kehidupan Anda.

Dengan mampu mengontrol berbagai aspek diri pribadi Anda, Anda akan lebih jernih dalam melihat dan mengatur tujuan dan sasaran pribadi Anda. Dengan kejelasan dalam tujuan dan sasaran Anda, maka Anda akan lebih mampu dalam mengarahkan perilaku Anda menuju kepada keberhasilan Anda.

PERCAYA DIRI BERARTI TAHU KAPASITAS DIRI

Dengan percaya diri, Anda akan memahami seluk beluk dan tingkat kapasitas yang Anda miliki. Dengan mengetahui kapasitas diri, Anda akan mampu melakukan analisis SWOT untuk diri pribadi Anda.

Dengan memahami aspek SWOT diri Anda sendiri, maka Anda akan tahu persis dari mana harus memulai dan kemana akan berakhir.

PERCAYA DIRI BERARTI SUCCESS ORIENTED

Dengan percaya diri, Anda menggeser fokus diri dari jebakan ketakutan akan kegagalan dan kerugian, ke cara pandang yang optimis tentang berbagai kesempatan dan keberhasilan. Anda akan menjadi orang yang success oriented.

Dengan percaya diri, Anda tidak akan merasa cukup hanya dengan 'positive thinking', tapi lebih dari itu, Anda akan menuntut 'positive knowing'.

Dengan 'positive knowing', Anda akan menjadi orang yang ahli di bidangnya. Anda akan menjadi orang yang expert, ahli dan pakar. Itulah jalan menuju kesuksesan Anda.

PERCAYA DIRI BERARTI PERBAIKAN KUALITAS NETWORKING

Dengan percaya diri, Anda akan meningkatkan kualitas personality Anda. Dengan kenaikan personality Anda, maka Anda juga akan menaikkan kualitas 'relationship' Anda.

Seorang pemimpin atau pengusaha atau pejabat yang memulai dari bawah, kemudian terus naik sampai ke tingkatan tertentu di bidangnya, tidak hanya berhubungan dengan orang-orang di bawahnya. Lebih dari itu, ia juga akan meningkatkan kualitas networkingnya ke tingkat yang lebih tinggi dan lebih luas.

Ia akan terlibat dengan orang-orang yang juga lebih tinggi kualitasnya, lebih tinggi keahliannya, dan lebih baik tingkat percaya dirinya. Dengan itu, percaya dirinya akan makin meningkat. Dan dengan itu semua, peluang keberhasilannya juga akan meningkat.

Dengan percaya diri, Anda akan bertemu dengan orang yang lebih menyenangkan, orang yang lebih baik kualitasnya, orang yang lebih terdidik, orang yang lebih memberi kesempatan dan peluang, orang yang lebih menarik, dan orang yang lebih nikmat bagi Anda untuk berhubungan dengan mereka.

PERCAYA DIRI BERARTI KONTROL TEMPERAMEN YANG LEBIH BAIK

Di dalam ilmu sosial, ada istilah 'hukum korespondensi', yang mengatakan bahwa 'dunia luar' di luar diri Anda, adalah sebuah cermin sempurna dari 'dunia dalam' di dalam diri Anda.

Percaya diri Anda harus dimulai dari dalam. Dan jika Anda berhasil memperbaiki kualitas 'dunia dalam' Anda, maka 'dunia luar' akan mengikutinya.

Jika Anda sukses dengan berhasil meraih percaya diri, maka kesuksesan juga akan terjadi pada 'dunia luar' Anda. Jika Anda berhasil meraih percaya diri, maka Anda berpeluang besar untuk meraih keberhasilan dalam kehidupan diri pribadi, kehidupan sosial, kehidupan pendidikan, dunia karir dan dunia bisnis Anda.

Keberhasilan meraih percaya diri, berarti keberhasilan meraih kontrol terhadap temperamen pribadi. Itu berarti, Anda juga punya peluang besar untuk mengontrol temperamen 'dunia luar' Anda.

Ingat ini:

- Indahnya bulan ada di hati Anda;
- Pemandangan langit dan lautan luas beserta bintang gemintang, ada di mata Anda. Batasannya pun, tergantung kualitas penglihatan Anda;
- Panasnya terik matahari dan api, ada di kulit Anda;
- Bau busuk dunia ini, adanya di hidung Anda;
- Pedasnya cabai dan panasnya merica, ada di lidah Anda;
- Dunia dan seisinya, ada di dalam diri Anda.

Jika Anda punya kontrol terhadap temperan diri, maka Anda pantas mengontrol temperamen dunia dan seisinya. Ramah atau tidaknya dunia ini pada Anda, Anda sendiri yang menentukannya.

Dan untuk mencapainya, mulailah dengan mempercayai diri Anda sendiri. Tuhan telah menciptakan Anda dengan sempurna, dan Ia menginginkan Anda mempercayai hal itu.

PERCAYA DIRI BERARTI MAMPU MENGHAMBAT UPAYA SABOTASE DIRI

Percayalah bahwa setiap hambatan, hampir bisa dipastikan datang dari dalam diri sendiri. Setiap hambatan akan men-sabotase dengan mencegah diri Anda dari mengambil tindakan.

Tindakan adalah segala aktivitas yang membuat hidup Anda menjadi lebih baik. Resep keberhasilan adalah tindakan, dan untuk bisa bertindak, Anda perlu percaya diri.

PERCAYA DIRI BERARTI HIDUP SISTEMATIS

Sistematis berarti efisien dan efektif. Dengan percaya diri, Anda akan bertindak. Dan bertindak atas dasar percaya diri, akan membuat Anda mampu mengambil keputusan dan menentukan pilihan. Dengan kemampuan itu, tindakan Anda akan tepat, akurat, efisien dan efektif.

PERCAYA DIRI BERARTI PENINGKATAN KEMAMPUAN BELAJAR

Hidup Anda adalah sekolah Anda. Cara belajar Anda mengikuti dua pola, yaitu shaping alias pembentukan dan modelling alias teladan. Percaya diri akan membuat Anda menjadi orang yang lebih mampu dalam melakukan self development, pengembangan dan perbaikan, dan lebih mampu dalam mengambil suri tauladan serta melakukan berbagai inovasi sebagai kelanjutannya.

PERCAYA DIRI BERARTI YAKIN AKAN FUNGSI DIRI

Dengan percaya diri, Anda akan lebih yakin bahwa keseluruhan diri Anda akan berfungsi dengan baik. Dengan percaya diri Anda akan mampu mendorong diri Anda untuk total, maksimal dan optimal. Dengan semua itu, Anda akan mencapai kemandirian dan kemerdekaan.

PERCAYA DIRI BERARTI FOKUS PADA DUNIA LUAR

Tidak percaya diri disebabkan oleh kesibukan dalam mengkhawatirkan diri sendiri. Dengan percaya diri, Anda akan disibukkan oleh dunia luar. Dengan percaya diri Anda akan menjadi orang yang lebih melayani, lebih bermanfaat, dan lebih memberi nilai kepada dunia luar.

Dengan percaya diri Anda akan berorientasi keluar. Dengan percaya diri, Anda akan lebih berhasil dalam memimpin dan menjual.

PERCAYA DIRI BERARTI HIDUP YANG LEBIH NYAMAN DAN MENYENANGKAN

Dengan percaya diri Anda akan lebih menikmati diri sendiri, lebih menikmati dunia luar. Hidup Anda akan penuh dengan kegembiraan, dengan hanya sedikit kekhawatiran. Dunia Anda akan lebih nyaman dan menyenangkan. Dengan percaya diri, Anda bisa membuat 'hidup lebih hidup'.

PERCAYA DIRI BERARTI PESAN POSITIF

Dengan percaya diri, Anda akan mengkomunikasikannya kepada dunia di luar Anda. Dengan percaya diri, Anda akan membuat orang lain menjadi percaya diri. Dengan percaya diri, Anda akan lebih meyakinkan. Percaya diri adalah pesan. Pesan yang amat penting untuk dikomunikasikan kepada orang yang terlibat dengan Anda. Dengan
percaya diri, sekali lagi Anda akan berhasil dalam memimpin dan menjual.

PERCAYA DIRI BERARTI PELUANG UNTUK MENUMBUHKAN KHARISMA

Dengan percaya diri, Anda berpeluang besar untuk menumbuhkan tingkat maksimal dari percaya diri, yaitu kharisma. Dengan percaya diri, Anda akan menciptakan jalan untuk menjadi orang yang selalu didengar kata dan perintahnya.

DARI MANA DATANGNYA PERCAYA DIRI?

Percaya diri datang dari kemampuan berkomunikasi secara verbal, dengan berbicara.
Dengan berbicara, Anda akan berbicara pada diri sendiri dan berbicara pada orang lain.

Berbicara kepada diri sendiri akan menjalankan proses manajemen diri. Andalah orang yang paling tahu harus mengatakan apa pada diri sendiri.

"Saya bisa" atau "Saya tidak bisa".
"Saya akan berhasil" atau "Saya akan gagal".
"Saya harus melakukan ini" atau "Saya memang menginginkan ini".
"Saya yang menentukan" atau "Bukan Saya yang menentukan".
"Saya yang memilih" atau "Orang lain yang memilih".
"Terserah Saya" atau "Terserah orang lain".

Berbicara kepada orang lain akan menjalankan proses manajemen diri orang lain.

"Anda harus begini atau harus begitu".
"Saya meminta Anda melakukan ini atau itu".
"Saya ingin hasilnya begini atau begitu".
"Saya yang menentukan, bukan Anda yang menentukan".
"Saya yang memerintah Anda yang mengikuti".
"Saya yang menjual dan Anda yang membeli".
"Jika Anda ingin berhasil, ikuti saran Saya".

Jadi, mulailah segala keberhasilan Anda dengan percaya diri saat berbicara.

rifai_phay

menu

Jumat, 16 Desember 2011

250 FAKTA UNIK DI-DUNIA

Jumat, 09 Desember 2011

REKURSI DAN ITERATIF

Teknologi Terbaru 2012 : Meja Masa Depan

Jumat, 02 Desember 2011

perjuangan seorang anak

Selasa, 29 November 2011

membuat anak menjadi jenius

Klasifikasi, Jenis dan Macam Data - Pembagian Data Dalam Ilmu Eksak Sains Statistik / Statistika

klasifikasi data

Sabtu, 26 November 2011

pengertian array dan record

Klasifikasi, Jenis dan Macam Data - Pembagian Data Dalam Ilmu Eksak Sains Statistik / Statistika

Jumat, 25 November 2011

menambahkan menubar pada blog

Rabu, 23 November 2011

PASCAL

PEMROGRAMAN MYSQL

STRUKTUR DATA

STRUKTUR DATA1

Sabtu, 12 November 2011

tingkatkan percaya diri anda dan orang terdeekat anda

tingkatkan percaya diri

Label

selamat menikmati karya saya

BACAAN FAVORIT

luwuk kota berair