Jika tadi (22 Mei 2009) malam jam 9.30 sampai selesai kita menonton acara The Master di RCTI tentang the best of Joe Sandy, kita akan melihat salah satu trik yang dia mainkan yaitu trik Magic Square. Sajian trik ini adalah, 16 kolom tabel berisi angka-angka yang apabila dijumlahkan secara vertikal, horisontal, melintang, atau menjumlahkan 4 kotak tabel, maka akan menemukan jumlah/hasil yang sama.

Saya akan memberikan contoh trik magic square ini :

dari contoh diatas nampak bahwa apabila kita menghitung ke samping, keatas, melintang maka akan menemukan jumlah yang sama, yaitu 123.

Sebenarnya, trik ini tidaklah sesulit yang kita bayangkan, semuanya ini hanyalah permainan logika matematika saja, tidak lebih dari penjumlahan dan pengurangan.

Rumus yang digunakan adalah :

Baris pertama dari contoh diatas adalah 50,20,39,14, kita sebut setiap baris dengan kode A, B, C, dan D

Baris pertama merupakan baris kunci dari apa yang akan kita hitung selanjutnya.

Nah, sekarang, rurmus bagaimanakah yang digunakan ? simple saja.

untuk baris kedua rumusnya adalah :  C-1,D+1, A-1, B+1 // dari contoh diatas : 39-1 = 38,14+1=15,50-1=49, dan 20+1=21 , kita perhatikan di baris ke 2, bahwa nilai yang saya masukkan diatas adalah hasil perhitungan menggunakan rumus penjumlahan dan pengurangan tadi.

untuk baris ketiga rumusnya adalah : D+2, C+2, B-2, A-2

untuk baris keempat rumusnya adalah : B-1, A-3, D+3, C+1

setelah melihat rumus tersebut, coba anda lakukan perbandingan dengan contoh yang saya berikan diatas, nampak bahwa apa yang saya tuliskan pada contoh diatas adalah hasil dari perhitungan menggunakan rumus-rumus tersebut.

silahkan mencoba

Saya disini hanya membagi ilmu perhitungan matematis dari trik magic square ini, tidak ada niatan saya untuk mencari-cari/melakukan reveal atas pertunjukkan sulap, disetiap sulap pastilah ada sebuah rahasia, namun itu bukanlah tugas kita untuk mencari-cari rahasia itu. sebagai penonton yang baik, anggap semua itu hanya sebagai sebuah hiburan pelepas lelah

salam “bukan the master” mlente ^^

Awalnya saya mengalami banyak kesulitan ketika mencoba untuk melakukan instalasi OSX pada pc x86 saya, bermacam masalah, mulai dari selalu muncul gambar apel dengan tanda silang, lalu muncul lagi masalah partisi yang tidak terbaca, masalah lagi proses boot yang selalu gagal, akhirnya setelah berkonsultasi dengan mbah google dan menteri bagian persilatan di kaskus – mbah rakha prasasti , dengan sukses saya berhasil melakukan instalasi dan bisa menjalankan OSX pada cpu saya.

Share aja buat yang ingin bisa menikmati OSX pada pc x86 anda,

1. yang perlu diperhatikan, bahwa hackintosh/osx x86 tidak selalu mensupport hardware anda, termasuk dengan tipe chipset yang ada pada pc anda, jadi apabila ketika proses instalasi muncul gambar selayar penuh dengan logo apel ditengah dan muncul tanda seperti tanda lingkaran dengan garis melintang, maka batalkan saja dulu rencana anda melakukan instalasi, karena ada hw yang membuat proses instalasi terhenti.

2. apabila anda tidak menjumpai layar halangan tersebut namun prosesnya berjalan normal, maka anda setidaknya akan bisa dengan sukses menjalankan OSX pada pc anda.

3. sebelum proses instalasi dimulai, anda perlu melakukan format/partisi pada hdd anda, yang perlu diperhatikan bahwa partisi untuk oSX berbeda sama sekali dengan windows, , masuk ke menu disk utility dan untuk mac os x partisi yang dipilih adalah format mac os extended (journaled).

4. setelah proses format berjalan lancar, maka kita lanjutkan proses instalasi, keluar daRi disk utility, dan klik continue pada welcome screen, dan pastikan setelah itu anda memilih customize untuk memilih driver-driver yang akan diinstall sesuai dengan apa yang ada di pc anda, ini termasuk tipe chipset, card lan, vga, sound dll

5. setelah anda yakin bahwa anda telah benar memilih, klik done , dan mulai proses instalasi, tunggu sampai proses selesai dan setelah selesai, pc akan merestart dirinya sendiri.

6. apabila semua lancar, maka OSX telah terinstall dengan sukses di PC anda, dan anda sudah bisa menikmatinya di PC anda

iklan ini dipajang pada tanggal 27 februari 2009, bagaimana pandangan anda terhadap iklan ini ?

ada ahli yang berpendapat bahwa ” sudah saatnya kontak politik semacam ini dilakukan/dibuat oleh parpol2 agar masyarakat tau dan berani meminta jaminan atas janji2 mereka ketika kampanye “.

kontrak politik semacam ini memang bagus dan bisa memberikan jaminan kepada pemilih, tp jika kita melihat iklan diatas, ada yang namanya ” Syarat dan Ketentuan BERLAKU ”

lihat saja bintang-bintang kecil yang menghiasi di masing-masing janji itu

saya kok malah merasa bahwa iklan ini hanya bersifat mempermainkan masyarakat saja, jika seseorang memang mau dengan ikhlas mengabdi kepada negara, mengabdi kepada kemajuan bangsa, mengabdi kepada pengembangan masyarakat, saya rasa iklan tersebut malah akhirnya menunjukkan ketidakikhlasan parpol tersebut untuk melayani masyarakat.

ketika kita lakukan analisa terhadap janji dengan bintang **** ” Syarat ini berlaku jika PDIP mengontrol pemerintahan Presiden 2009 dan 30 % kursi DPR RI dikuasai PDIP ” , secara orang awam mengartikan ” maka jika PDIP tidak duduk sebagai pemimpin RI dan jika hanya mendapatkan kursi dibawah 30 % maka janji tersebut secara mutlak tidak akan kami laksanakan ” , aneh bin klenger dan mlente ! saya bukanlah orang politik, tp saya hanya senang membaca dan ketika saya membaca saya suka untuk menelaah maksud dari apa yang saya baca , bukannya saya mencoba untuk menjelek-jelekkan PDIP, tp menurut saya iklan tersebut malah akhirnya akan menjatuhkan PDIP sendiri, mohon maaf bu megawati, anda malah akan semakin terpuruk dengan munculnya iklan ini, boleh tanya dong bu .. siapa sing yang usul untuk bikin kontrak politik dengan syarat dan ketentuan berlaku ala provider selular ini ?

iklan ini memang pantas untuk masuk ke blog saya … dan pantas untuk mendapat tropi ” MLENTE BANGET ”

sudah dua hari ini komputer saya terkena error ” generic host process ” , searching google, nyari2 artikel tentang hal ini, ternyata disebabkan oleh virus conficker, muter2 akhirnya dapet juga pemecahannya, ada bbrp pemecahan tp yang paling mudah adalah menutup port 445 dan 135.

Solusi permasalahan :

Buka registry editor, start – run – ketik regedit – ok
masuk ke HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\NetBT\Parameters, kemudian pada kolom sebelah kanan cari TransportBindName dan klik 2x
Setelah itu kosongkan parameter pada Value data dan klik OK

Terakhir masuk ke HKEY_LOCAL_MACHINE\Software\Microsoft\OLE, cari EnableDCOM pada kolom sebelah kanan dan klik 2x. Pada kolom parameter Value data secara default akan terisi Y, ganti Y menjadi N kemudian klik OK.

Tutup regedit dan aplikasi lainnya kemudian restart

cara selanjutnya // cara kedua dengan melakukan patch pada windows, patch  KB89439 dan KB921883 , tp untuk patch ini saya tidak melakukannya, karena dengan menggunakan cara pertama saja masalah sudah selesai

ada lagi cara ketiga yaitu menggunakan Svchost Fix Wizard 1.0 , cuma saya sendiri cuma sempet donlod aja ga sempet nyoba, informasinya adalah software ini bisa melakukan perbaikan terhadap svchost termasuk generic host process nya

Silahkan copy paste untuk teman-teman sekampus atau siapapun yang membutuhkan listing program pascal untuk mencari bilangan prima seperti dibawah ini :

uses wincrt;
var a,b,c,d,e:longint;
begin clrscr;
write(‘Input Bilangan Prima Sampai Nilai : ‘); readln(c);
writeln(‘2′:7);
for a:=3 to c do
begin
for b:= 2 to a-1 do
begin
if a mod b = 0 then begin
d:=a ; end else begin e:=a; end;end;
if a=d then
begin
b:= a-1;
end else
writeln(e:7);
end;
end.

Setelah saya berputar-putar dengan sedikit berputus asa mencari bagaimana cara untuk mereset printer saya agar ketika membaca catridge tidak selalu mengeluarkan pesan error ” tinta akan habis ” dan juga keluar ” tinta habis ” yang menyebabkan seluruh proses print, copy, dan scan tidak berjalan sama sekali.

Dengan bantuan doa dan selalu meminta bantuan mbah google dalam mencari solusi seperti ini, akhirnya saya menemukan cara yang jos gandos mancleng ora gawe puyeng.

Sebelumnya siapkan kesabaran hati untuk menjalani eksekusi proses reset ini, soalnya udah nyari lama ga dapet-dapet trus sambil emosi mbaca posting ini ya malah nambah mumet nantinya.

Ok, lets start to reset the catridge ! ( Nganggo Basa Inggris men wong landa bisa maca )

1. Download MP Tool

2. Press and HOLD your printer power button // (Tekan dan Tahan tombol power pada printer)

3. Unplug your printer power cable ( keep hold your printer power button – do not release it ) // Lepaskan kabel power printer namun tetap tekan tombol power pada printer

4. Plug your printer power cable and press the Printer Stop/Reset button, then release the printer power button // Pasang kembali kabel power printer dan tekan tombol Stop/Reset pada printer, setelah itu lepaskan tahanan pada tombol power printer

5. The Alarm light will be on and your computer will detect a new hardware // Alarm akan menyala dan pada sisi komputer akan mendeteksi hardware baru terinstall

6. Run the MP Tool software and you can start to reset the catridge // Jalankan program MP Tool dan mulai untuk mereset tinta.

Semoga informasi ini berguna dan bisa membantu bagi anda yang membutuhkan.

Sebagian ummat Islam masih membiasakan diri mengerjakan sholat lima waktu di rumah atau di kantor tempat ia bekerja. Sangat sedikit yang membiasakan sholat lima waktunya berjamaah di masjid atau musholla di mana azan dikumandangkan. Bahkan ada sebagian saudara muslim yang membiasakan dirinya sholat seorang diri alias tidak berjama’ah. Padahal terdapat sekian banyak pesan dari Nabi Muhammad shollallahu ’alaih wa sallam yang menganjurkan ummat Islam –terutama kaum pria- sholat berjama’ah di masjid tempat di mana azan dikumandangkan.

عَنْ عَبْدِ اللَّهِ قَالَ مَنْ سَرَّهُ أَنْ يَلْقَى اللَّهَ غَدًا مُسْلِمًا فَلْيُحَافِظْ عَلَى هَؤُلَاءِ الصَّلَوَاتِ حَيْثُ يُنَادَى بِهِنَّ فَإِنَّ اللَّهَ شَرَعَ لِنَبِيِّكُمْ صَلَّى اللَّهُ عَلَيْهِ وَسَلَّمَ سُنَنَ الْهُدَى وَإِنَّهُنَّ مِنْ سُنَنِ الْهُدَى وَلَوْ أَنَّكُمْ صَلَّيْتُمْ فِي بُيُوتِكُمْ كَمَا يُصَلِّي هَذَا الْمُتَخَلِّفُ فِي بَيْتِهِ لَتَرَكْتُمْ سُنَّةَ نَبِيِّكُمْ وَلَوْ تَرَكْتُمْ سُنَّةَ نَبِيِّكُمْ لَضَلَلْتُمْ وَمَا مِنْ رَجُلٍ يَتَطَهَّرُ فَيُحْسِنُ الطُّهُورَ ثُمَّ يَعْمِدُ إِلَى مَسْجِدٍ مِنْ هَذِهِ الْمَسَاجِدِ إِلَّا كَتَبَ اللَّهُ لَهُ بِكُلِّ خَطْوَةٍ يَخْطُوهَا حَسَنَةً وَيَرْفَعُهُ بِهَا دَرَجَةً وَيَحُطُّ عَنْهُ بِهَا سَيِّئَةً وَلَقَدْ رَأَيْتُنَا وَمَا يَتَخَلَّفُ عَنْهَا إِلَّا مُنَافِقٌ مَعْلُومُ النِّفَاقِ وَلَقَدْ كَانَ الرَّجُلُ يُؤْتَى بِهِ يُهَادَى بَيْنَ الرَّجُلَيْنِ
حَتَّى يُقَامَ فِي الصَّفِّ (صحيح مسلم)

Ibn Mas’ud radhiyallahu ’anhu berkata: “Barangsiapa ingin bertemu Allah esok hari sebagai seorang muslim, maka ia harus menjaga benar-benar sholat pada waktunya ketika terdengar suara adzan. Maka sesungguhnya Allah subhaanahu wa ta’aala telah mensyari’atkan (mengajarkan) kepada Nabi shollallahu ’alaih wa sallam beberapa SUNANUL-HUDA (perilaku berdasarkan hidayah/petunjuk) dan menjaga sholat itu termasuk dari SUNANUL-HUDA. Andaikan kamu sholat di rumah sebagaimana kebiasaan orang yang tidak suka berjama’ah berarti kamu meninggalkan sunnah Nabimu Muhammad shollallahu ’alaih wa sallam. Dan bila kamu meninggalkan sunnah Nabimu Muhammad shollallahu ’alaih wa sallam pasti kamu tersesat. Maka tidak ada seseorang yang bersuci dan dia sempurnakan wudhunya kemudian ia berjalan ke masjid di antara masjid-masjid ini kecuali Allah subhaanahu wa ta’aala mencatat bagi setiap langkah yang diangkatnya menjadi kebaikan yang mengangkat derajatnya dan bagi setiap langkah yang diturunkannya menjadi penghapus kesalahannya. Dan sungguh dahulu pada masa Nabi Muhammad shollallahu ’alaih wa sallam tiada seorang tertinggal dari sholat berjama’ah kecuali orang-orang munafiq yang terang kemunafiqannya. Sungguh adakalanya seseorang itu dihantar ke masjid didukung oleh dua orang kanan kirinya untuk ditegakkan di barisan saf.” (HR Muslim 3/387).

Berdasarkan hadits di atas sekurangnya terdapat beberapa pelajaran penting:
Pertama, seseorang yang disiplin mengerjakan sholat saat azan berkumandang akan menyebabkan dirinya diakui sebagai seorang muslim saat bertemu Allah subhaanahu wa ta’aala kelak di hari berbangkit. Sungguh suatu kenikmatan yang luar biasa…! Pada hari yang sangat menggoncangkan bagi semua manusia justru diri kita dinilai Allah subhaanahu wa ta’aala sebagai seorang hamba-Nya yang menyerahkan diri kepada-Nya. Kita tidak dimasukkan ke dalam golongan orang kafir, musyrik atau munafiq.

مَنْ سَرَّهُ أَنْ يَلْقَى اللَّهَ غَدًا مُسْلِمًا فَلْيُحَافِظْ عَلَى هَؤُلَاءِ الصَّلَوَاتِ حَيْثُ يُنَادَى بِهِنَّ

”Barangsiapa ingin bertemu Allah esok hari sebagai seorang muslim, maka ia harus menjaga benar-benar sholat pada waktunya ketika terdengar suara adzan.”

Kedua, menjaga sholat termasuk kategori aktifitas SUNANUL-HUDA (perilaku atau kebiasaan berdasarkan pertunjuk Ilahi). Barangsiapa memelihara pelaksanaan kewajiban sholat lima waktu setiap harinya berarti ia menjalani hidupnya berdasarkan petunjuk dan bimbingan Allah subhaanahu wa ta’aala. Berati ia tidak membiarkan dirinya hidup tersesat sekedar mengikuti hawa nafsu yang dikuasai musuh Allah subhaanahu wa ta’aala, yakni syaitan.

فَإِنَّ اللَّهَ شَرَعَ لِنَبِيِّكُمْ صَلَّى اللَّهُ عَلَيْهِ وَسَلَّمَ سُنَنَ الْهُدَى وَإِنَّهُنَّ مِنْ سُنَنِ الْهُدَى

”Maka sesungguhnya Allah subhaanahu wa ta’aala telah mensyari’atkan (mengajarkan) kepada Nabi shollallahu ’alaih wa sallam beberapa SUNANUL-HUDA (perilaku berdasarkan hidayah/petunjuk) dan menjaga sholat itu termasuk dari SUNANUL-HUDA.”

Ketiga, sholat di rumah identik dengan meninggalkan sunnah Nabi Muhammad shollallahu ’alaih wa sallam. Padahal tindakan meninggalkan sunnah Nabi Muhammad shollallahu ’alaih wa sallam merupakan gambaran raibnya cinta seseorang kepada Nabinya Muhammad shollallahu ’alaih wa sallam. Sebaliknya, bukti cinta seseorang akan Nabi Muhammad shollallahu ’alaih wa sallam adalah kesungguhannya untuk melaksanakan berbagai sunnah beliau, Nabi Muhammad shollallahu ’alaih wa sallam.

وَلَوْ أَنَّكُمْ صَلَّيْتُمْ فِي بُيُوتِكُمْ كَمَا يُصَلِّي هَذَا الْمُتَخَلِّفُ فِي بَيْتِهِ لَتَرَكْتُمْ سُنَّةَ نَبِيِّكُمْ

”Andaikan kamu sholat di rumah sebagaimana kebiasaan orang yang tidak suka berjama’ah berarti kamu meninggalkan sunnah Nabimu Muhammad shollallahu ’alaih wa sallam.”

Keempat, meninggalkan sunnah Nabi akan menyebabkan seseorang menjadi TERSESAT. Berarti tidak lagi hidup di bawah naungan bimbingan dan petunjuk Allah. Sungguh mengerikan, bilamana seorang muslim merasa menjalankan kewajiban sholat, namun karena ia kerjakannya tidak di masjid, maka hal itu menyebabkan dirinya menjadi tersesat dari jalan yang lurus…! Na’udzubillaahi min dzaalika.

وَلَوْ تَرَكْتُمْ سُنَّةَ نَبِيِّكُمْ لَضَلَلْتُمْ

”Dan bila kamu meninggalkan sunnah Nabimu Muhammad shollallahu ’alaih wa sallam pasti kamu tersesat.”

Kelima, barangsiapa menyempurnakan wudhu lalu berjalan ke masjid, maka hal itu akan mendatangkan kenaikan derajat dan penghapusan kesalahan.

وَمَا مِنْ رَجُلٍ يَتَطَهَّرُ فَيُحْسِنُ الطُّهُورَ ثُمَّ يَعْمِدُ إِلَى مَسْجِدٍ مِنْ هَذِهِ الْمَسَاجِدِ إِلَّا كَتَبَ اللَّهُ لَهُ بِكُلِّ خَطْوَةٍ يَخْطُوهَا حَسَنَةً وَيَرْفَعُهُ بِهَا دَرَجَةً وَيَحُطُّ عَنْهُ بِهَا سَيِّئَةً

”Maka tidak ada seseorang yang bersuci dan dia sempurnakan wudhunya kemudian ia berjalan ke masjid di antara masjid-masjid ini kecuali Allah subhaanahu wa ta’aala mencatat bagi setiap langkah yang diangkatnya menjadi kebaikan yang mengangkat derajatnya dan bagi setiap langkah yang diturunkannya menjadi penghapus kesalahannya.”

Keenam, Ibnu Mas’ud radhiyallahu ’anhu menggambarkan bahwa pada zaman Nabi Muhammad shollallahu ’alaih wa sallam masih hidup di tengah para sahabat radhiyallahu ’anhum jika ada yang tertinggal dari sholat berjamaah maka ia dipandang identik dengan orang munafiq sejati

وَلَقَدْ رَأَيْتُنَا وَمَا يَتَخَلَّفُ عَنْهَا إِلَّا مُنَافِقٌ مَعْلُومُ النِّفَاقِ

”Dan sungguh dahulu pada masa Nabi Muhammad shollallahu ’alaih wa sallam tiada seorang tertinggal dari sholat berjama’ah kecuali orang-orang munafiq yang terang kemunafiqannya.”

Ketujuh, di zaman Nabi Muhammad shollallahu ’alaih wa sallam sedemikian bersemangatnya orang menghadiri sholat berjamaah di masjid sampai-sampai ada yang dipapah dua orang di kiri-kanannya agar ia bisa sholat berjamaah di masjid

وَلَقَدْ كَانَ الرَّجُلُ يُؤْتَى بِهِ يُهَادَى بَيْنَ الرَّجُلَيْنِ حَتَّى يُقَامَ فِي الصَّفّ

”Sungguh adakalanya seseorang itu dihantar ke masjid didukung oleh dua orang kanan kirinya untuk ditegakkan di barisan saf.”

Ya Allah, berkahi, mudahkan dan kuatkanlah kami untuk selalu sholat lima waktu berjama’ah di masjid bersama saudara muslim kami lainnya. Amin.-

Intinya, Kalau umat islam dapat sholat berjamaah di Masjid, Maka ukuwah islam akan terjalin erat sehingga tidak terjadi penyimpangan-penyimpangan seperti Ahmadiyah, Gusdurisme, atau FPI dan semacamnya. Semua dapat dicari jalan keluarnya.

disadur dari kaskus.us

uses wincrt;
var
indek:integer;
kata,ngisilagi:string;
pilihan:char;

{Bismillah, pada sinau bareng mayuh, ngapurane wingi ora bisa upload,
jebulane anu nganggo procedure yah, aku olihe sing biasa, dadine ya kudu dikutak-katik dewek,
jan sewengi mbetetet,langsung baen ya pak2 kabeh}

{Kiye sing nang ngisor jenenge function seduluran karo procedure mlebu kluarga deklarasi, fungsine nggo
mendeklarasikan variabel ‘cilik; men bisa ngrubah ben dadi lowcase, soale nang pascal langka perintah lowcase,
sing ana mung upcase tok,
nek ‘cilik:=chr(ord(c))’ kiye bahasa kerene char function, dadi anu wis ana rumuse.
mudeng? lanjut pak..}

function cilik(c : char) : char;
begin
if (c >= #65) and (c <= #90) then
cilik := chr(ord(c) + 32)
else
cilik := c;
end;

{siki mulai procedure sing pertama, tek jenengi procedure menu, nek arep diubah ya ngonoh, fungsine
nggo deklarasi pilihan ben mengko bisa dipanggil lewat case of, mengko neng ngisor toli ana,
priwe? 86? siap 86! lanjut..}

procedure menu;
begin
writeln(‘*********************’);
writeln(‘       >>MENU<<      ‘);
writeln(‘*********************’);
writeln(‘1. Upper’);
writeln(‘2. Lower’);
writeln(‘3. Keluar’);
writeln;
writeln;
write(‘Pilihan Kamoe:’);readln(pilihan);
end;

{procedure sing ke 2 kiye fungsine nggo ngrubah maring huruf gedhe}
procedure kapital;
begin

{for indek ngisor kiye artine= variabel input ‘kata’ sing dimasukna mulai sekang
digit siji nganti ‘length’ utawane sedawane kata kuwe dirubah maring kapital,
nek arep diganti dadi
‘for indek:=1 to 300 do’ ya bisa, artine sing di rubah maring kapital digit 1 nganti 300.
ps: upcase perintah inti sing merekna dadi kapital.}

for indek:=1 to length(kata) do
kata[indek]:=upcase(kata[indek]);
writeln(kata);
end;

{nek sing ngisor kiye procedure sing terakhir (mbok bener mung dikongkon gawe 3 procedure tok kone dosene?,
deleng si nang slide)
kiye sing ana hubungane karo deklarasi function mau nduwur kae, nek langka deklarasi function sing nduwur
kae arep ngasi mencret ya
procedure ora bakal gelem dadi}

procedure hurufkecil;
begin

for indek := 1 to length(kata) do
kata[indek] := cilik(kata[indek]);
writeln(kata);

end;

{label kiye sing nggo pilihan arep ngisi maning ora…
betul sekali! nganggo perintah goto}

label
lagi;
{nah kiye program utamane, nek kiye tah wis pada pinter mbok? ben minggu gawe laporan koh
ya wis paham lah ya, nek urung ya sms bae maring dosene, takon}

begin
lagi:
clrscr;
writeln(‘                  ==============================’);
writeln(‘                        Program Sulap Huruf     ‘);
writeln(‘                  ==============================’);
writeln;
write(‘Masukan Kata:’);
readln(kata);
writeln;
writeln;
menu;
case pilihan of
‘1′ : kapital;
‘2′ : hurufkecil;
‘3′ : donewincrt;

end;

write(‘Mo Nyulap Lagi?’);readln(ngisilagi);
if ((ngisilagi=’y') or (ngisilagi=’Y')) then goto lagi else donewincrt;

end.

{Alhamdulillah, matur nuwun kanggo atensine,
salame dikirimna kanggo yayu tus, yu rukiyah, kang harjo, kang sapto, yu dar sing mbekayune yu tus kae, sing ayu dewek,
hehehe, selamat mencoba lah, sing ngganteng dewek

-hendrat sasongko-
08.11.0782

}

Kontributor   :

hendrat sasongko – http://sasongko.duniakata.net

Ayah ingin anak-anaknya punya lebih banyak kesempatan daripada dirinya, menghadapi lebih sedikit kesulitan, lebih tidak tergantung pada siapapun – dan (tapi) selalu membutuhkan kehadirannya.

Ayah hanya menyuruhmu mengerjakan pekerjaan yang kamu sukai.

Ayah membiarkan kamu menang dalam permainan ketika kamu masih kecil, tapi dia tidak ingin kamu membiarkannya menang ketika kamu sudah besar.

Ayah tidak ada di album foto keluarga, karena dia yang selalu memotret.

Ayah selalu tepat janji! Dia akan memegang janjinya untuk membantu seorang teman, meskipun ajakanmu untuk pergi memancing sebenarnya lebih menyenangkan.

Ayah akan tetap memasang kereta api listrik mainanmu selama bertahun-tahun, meskipun kamu telah bosan, karena ia tetap ingin kamu main kereta api itu.

Ayah selalu sedikit sedih ketika melihat anak-anaknya pergi bermain dengan teman-teman mereka.karena dia sadar itu adalah akhir masa kecil mereka.

Ayah mulai merencanakan hidupmu ketika tahu bahwa ibumu hamil (mengandungmu), tapi begitu kamu lahir, ia mulai membuat revisi.

Ayah membantu membuat impianmu jadi kenyataan bahkan diapun bisa meyakinkanmu untuk melakukan hal-hal yang mustahil, seperti mengapung di atas air setelah ia melepaskanya.

Ayah mungkin tidak tahu jawaban segala sesuatu, tapi ia membantu kamu mencarinya.

Ayah mungkin tampak galak di matamu, tetapi di mata teman-temanmu dia tampak lucu dan menyayangi.

Ayah sulit menghadapi rambutnya yang mulai menipis….jadi dia menyalahkan tukang cukurnya menggunting terlalu banyak di puncak kepala (*_~).

Ayah akan selalu memelihara janggut lebatnya, meski telah memutih, agar kau bisa “melihat” para malaikat bergelantungan di sana dan agar kau selalu bisa mengenalinya.

Masih ingat dengan Nasi Goreng Bikinan Ayah? terutama 17 agustusan…uhhh kangen..

Ayah selalu senang membantumu menyelesaikan PR, kecuali PR matematika terbaru.

Ayah lambat mendapat teman, tapi dia bersahabat seumur hidup.

Ayah benar-benar senang membantu seseorang… tapi ia sukar meminta bantuan.

Ayah terlalu lama menunda untuk membawa mobil ke bengkel, karena ia merasa dapat memperbaiki sendiri segalanya.

Ayah di dapur. Membuat memasak seperti penjelajahan ilmiah. Dia punya rumus-rumus dan formula racikannya sendiri, dan hanya dia sendiri yang mengerti bagaimana menyelesaikan persamaan-persamaan rumit itu. Dan hasilnya?… .mmmmhhh…” tidak terlalu mengecewakan” (^_~). Ayah akan sesumbar, bahwa dirinyalah satu- satunya dalam keluarga yang dapat memasak tumis kangkung rasa barbecue grill. (*_~).

Ayah mungkin tidak pernah menyentuh sapu ketika masih muda, tapi ia bisa belajar dengan cepat.

Ayah sangat senang kalau seluruh keluarga berkumpul untuk makan malam…walaupun harus makan dalam remangnya lilin karena lampu mati.

Ayah paling tahu bagaimana mendorong ayunan cukup tinggi untuk membuatmu senang tapi tidak takut.

Ayah akan memberimu tempat duduk terbaik dengan mengangkatmu dibahunya, ketika pawai lewat.

Ayah tidak akan memanjakanmu ketika kamu sakit, tapi ia tidak akan tidur semalaman. Siapa tahu kamu membutuhkannya.

Ayah menganggap orang itu harus berdiri sendiri, jadi dia tidak mau memberitahumu apa yang harus kamu lakukan, tapi ia akan menyatakan rasa tidak setujunya.

Ayah percaya orang harus tepat waktu. karena itu dia selalu lebih awal menunggumu di depan rumah dengan sepeda tuanya, untuk mengantarkanmu dihari pertama masuk sekolah

AYAH ITU MURAH HATI….. Ia akan melupakan apa yang ia inginkan, agar bisa memberikan apa yang
kamu butuhkan…. .

Ia membiarkan kamu ketika membersihkan kipas angin diluar rumah…

Ia membelikanmu lollipop merk baru yang kamu inginkan, dan ia akan menghabiskannya kalau kamu tidak suka…..

Ia menghentikan apasaja yang sedang dikerjakannya, kalau kamu ingin bicara…

Ia selalu berfikir dan bekerja keras untuk membayar spp mu tiap semester, meskipun kamu tidak pernah membantunya menghitung berapa banyak kerutan di dahinya….

Bahkan dia akan senang hati mendengarkan nasehatmu untuk menghentikan kebiasaan merokoknya.. ..

Ayah mengangkat beban berat dari bahumu dengan merengkuhkan tangannya disekeliling beban itu….

Ayah akan berkata “tanyakan saja pada ibumu” ketika ia ingin berkata “tidak”.

Ayah tidak pernah marah, tetapi mukanya akan sangat merah padam ketika anak gadisnya menginap di rumah teman tanpa izin

Dan diapun hampir tidak pernah marah, kecuali ketika anak lelakinya kepregok menghisap rokok dikamar mandi.

Ayah mengatakan “tidak apa-apa mengambil sedikit resiko asal kamu sanggup kehilangan apa yang kamu harapkan”

Pujian terbaik bagi seorang ayah adalah ketika dia melihatmu melakukan sesuatu persis seperti caranya….

Ayah lebih bangga pada prestasimu, daripada prestasinya sendiri….

Ayah hanya akan menyalamimu ketika pertama kali kamu pergi merantau meningalkan rumah, karena kalau dia sampai memeluk mungkin ia tidak akan pernah bisa melepaskannya.

Ayah mengira seratus adalah tip..; Seribu adalah uang saku..; Gaji pertamamu terlalu besar untuknya…

Ayah tidak suka meneteskan air mata …. ketika kamu lahir dan dia mendengar kamu menangis untuk pertama kalinya, dia sangat senang sampai-sampai keluar air dari matanya (ssst..tapi sekali lagi ini bukan menangis). Ketika kamu masih kecil, ia bisa memelukmu untuk mengusir rasa takutmu…ketika kau mimpi akan dibunuh monster… tapi…..ternyata dia bisa menangis dan tidak bisa tidur sepanjang malam, ketika anak gadis kesayangannya di rantau tak memberi kabar selama hampir satu bulan.

Kalau tidak salah ayah pernah berkata :” kalau kau ingin mendapatkan pedang yang tajam dan berkwalitas tinggi, janganlah mencarinya dipasar apalagi tukang loak, tapi datang dan pesanlah langsung dari pandai besinya. begitupun dengan cinta dan teman dalam hidupmu,jika kau ingin mendapatkan cinta sejatimu kelak, maka minta dan pesanlah pada Yang Menciptakannya”

Untuk masadepan anak lelakinya Ayah berpesan: “jadilah lebih kuat dan tegar daripadaku, pilihlah ibu untuk anak-anakmu kelak wanita yang lebih baik dari ibumu , berikan yang lebih baik untuk menantu dan cucu-cucuku, daripada apa yang yang telah ku beri padamu”

Dan Untuk masadepan anak gadisnya ayah berpesan: “jangan cengeng meski kau seorang wanita, jadilah selalu bidadari kecilku dan bidadari terbaik untuk ayah anak-anakmu kelak! laki-laki yang lebih bisa melindungimu melebihi perlindungan Ayah, tapi jangan pernah kau gantikan posisi Ayah di hatimu”

Ayah bersikeras,bahwa anak-anakmu kelak harus bersikap lebih baik daripada kamu dulu….

Ayah bisa membuatmu percaya diri… karena ia percaya padamu…

Ayah tidak mencoba menjadi yang terbaik, tapi dia hanya mencoba melakukan yang terbaik….

Dan terpenting adalah… Ayah tidak pernah menghalangimu untuk mencintai Tuhan, bahkan dia akan membentangkan seribu jalan agar kau dapat menggapai cintaNya, karena diapun mencintaimu karena cintaNya.

Dedicated for my father 1951-2006 // i will always love and remember all of your kindness

Tugas Pascal tentang looping/perulangan menggunakan fungsi for

uses wincrt;

var
kata: string;
i,j,pjg : byte;

begin
write(‘Masukkan Kata:’);readln(kata);

pjg:= length(kata);

for i:=1 to pjg do
begin
for j:=1 to i do
write(kata[j]);
writeln;
end;

for i:=1 to pjg do
begin
for j:=1 to pjg-i+1 do
write(kata[j]);
writeln;
end;
end.

Silahkan bagi yang memerlukan bisa langsung copy paste