Posted by: mlente on: November 14, 2008
Posted by: mlente on: May 23, 2009
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 ^^
Posted by: mlente on: March 24, 2009
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
Posted by: mlente on: February 28, 2009

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 ”
Posted by: mlente on: February 27, 2009
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 OKTerakhir 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
Posted by: mlente on: January 14, 2009
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.
Posted by: mlente on: January 2, 2009
Setelah saya berputar-putar dengan sedikit berputus asa mencari bagaimana cara untuk mereset printer saya agar ketika membaca waste tank 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 waste tank ! ( 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 waste tank // Jalankan program MP Tool dan mulai untuk mereset tinta.
Semoga informasi ini berguna dan bisa membantu bagi anda yang membutuhkan.
Posted by: mlente on: December 28, 2008
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
Posted by: mlente on: December 22, 2008
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;
beginfor 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
Posted by: mlente on: December 20, 2008
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.
Posted by: mlente on: December 14, 2008
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