Kamis, 18 Oktober 2012

program ubah huruf (PASCAL)


========================================================================
program lat1;
uses wincrt;
var a,c,d: string;
b,x : integer;
 
begin
a:='wongso dikromo singodimejo';(*kata yang akan di ganti huruf vokalnya*)
b:= length(a);(*menghitung jumlah karakter dari kata tersebut*)



   for x:= 1 to b do begin (*perulangan digunakan untuk membentuk array*)
           if a[x] in ['o'] then begin(* []= array, ketika pada array terdapat huruf 'o' maka diganti 'a'*)
           a[x]='a';
   end;
   end;

writeln(d);
end.

========================================================================



Mencocokan Kunci Jawaban (PASCAL)


====================================================================

program kuncijawaban;
uses wincrt; (* untuk turbopascal pd windows menggunakan wincrt*)
var x,y,v,w:string; a,b,c:integer;

begin
c:= 0;(*variabel yg digunakan untuk skor akhir*)
write('masukan kunci jawaban: '); readln(x);
write('masukan jawaban: ');
readln(y);



a:=length(x); (*menghitung jumlah karakter kunci jawaban*)
             for b:=1 to a do begin (*perulangan dibutuhkan untuk mengecek tiap jawaban berulang sebanyak jawaban *)
                 v:=copy(x,b,1); (*mengambil string kunci jawaban 1 karakter untuk dicocokan *)
                 w:=copy(y,b,1); (* mengambil string jawban yang akan dicocokan dengan kunci*)

             if v= w(*jika jawaban = kunci*)
             then begin
                  c:=c+4;
                   end

             else if v=' ' then begin(*jika jawaban kosong*)
                  c:=c+0;
                  end
             else begin (*jika jawaban salah*)
                  c:=c-1;
                  end;           
                 
                end;

writeln('skor akhir :',c);
readln;
end.
========================================================================



membalik huruf pada pascal


Program MENGGUNAKAN PASCAL;

Manipulasi String

Membalik huruf
=================================================================
program balikhuruf;
uses wincrt;
var a,b: integer; c,d,e:string;

begin
c:='SAPEEL MAYA';  (*huruf yang akan dibalik dari belakang kedepan*)
a:=length(c); (*menghitung panjang string*)
e:=''; (*variable yang nantinya akan diisi dengan kata yang dibalik*)
            for b:= a downto 1 do (*memakai perulangan agar  tiap perintah diulang sebanyak karakater dari kata dimulai dari urutan terbelakang *)
            begin
                                  d:=copy(c,b,1);(*mengambil substring dari kata SAPEEL MAYA*)
                                e:=e+d;
           end;
 write(e);

end.

========================================================================
menggunakan turbopascal for windows


Output

Minggu, 30 September 2012

save our earth



Peduli lingkungan….

Era global warming yang lagi ngetren dengan nama pemanasan global… di sebabkan karena manusia itu sendiri. Tanpa kita sadari kita telah merubah dunia….. mungkin emang udah takdirnya manusia itu sebagai alat penghancur bumi…. Padaha kita di turunkan sebagai makhluk Khalifah…sebagai penjaga bumi…. Terus.. kenapa kita ngga sadar jua sama keadaan yang sekarang…????
            Betapa malangnya si “bumi” tersebut tiap hari di lukai oleh manusia yang tanpa terimakasih sama bumi karena udah bisa tinggal selama berabad-abad lamanya…..
Global warming… apasi global warming itu?? Mungkin banyak yang udah tau tentang global warming… tapi di sini gw bakal bahas sekilas tentang global warming…
Global Warming..
 biasa di sebut pemanasan global.. peristiwa meningkatnya suhu bumi.. sebenernya kita udah rasain sekarang akibat ulah kita sendiri… saat siang hawa lebih panas … es  di kutub utara dan selatan mencair.. menyebabkan volume air di laut menjadi bertambah… akhirnya bisa menenggelamkan pulau- pula kecil di belahan bumi….
            Kenapa bisa terjadi global warming???
·         Terjadinya Efek Rumah Kaca
·         Menipisnya lapisan Ozon
·         Terlalu banyak CFC,CO2,CO
·         Pohon yang tiap tahunnya berkurang krena Ilegal Logging (penebangan liar)

Hal-hal di atas saling berhubungan dan saling beketerkaitan..
            Pertama tama CO2,CO, CFC.. dihasilkan dari asap kendaraan.. asap rokok.. AC(Air Conditioner)
Semua senyawa-senyawa tersebut melambungke angkasa… dan menyebabkan timbulnya seperti kaca yang membuat panas sinar matahari tidak bisa kelua dari bumi… yang menyebabkan suhu di bumi semakin panas…. Selain itu senyawa-senyawa itupun yang membuat lapisan ozon menipis..
Saatnya Beraksi
            Sekarang saatnya kita beraksi. Khususnya jiwa muda yang baru beranjak dewasa ,, dan masih punya banyak semangat.. buat memelihara bumi kita….toh akhirnya bumi ini yang bakal menjadi tempat tinggal anak dan cucu kita….
Mulai dari hal kecil kaya mebuang sampah pada tempatnya… menanam bibit pohon… melaksanakan 3R(Reuse, Recycle, Reduce)…
·         Reuse    : Mengunakan kembali barang yang sudah tak terpakai menjadi lebih berguna.
·         Recycle : mendaur ulang barang bekas menjadi barang baru.
·         Reduce              : Mengurangi energi yang berlebihan seperti pemakaian listrik,gas.


Dan masih banyak lagi hal-hal yang bisa kita lakukan buat bumi tercinta kita….Saatnya kita yang berterima kasih sama bumi.. yang udah menampung kita….

Save our earth… keep our environment… for our future

Sekian artikel yang gw buat.. mudah-mudahan bisa bermanfaat dan bisa membuat jiwa muda bergerak.
Wasalamualaikum Wr.Wb

Jumat, 28 September 2012

Augmented Reality

 Apasih augmented reality itu?? Jika kita terjemahkan perkata.. kata “augmented” itu sendiri mempunyai arti menambah,memperbanyak,menbesarkan… reality sendiri bermakna realitas atau nyata..

Augmented Reality itu sendiri merupakan teknologi yang baru dalam dunia audio visual. Seperti arti perkatanya Augmented reality adalah  teknologi yang menggabungkan ”hal” yang ada didunia maya ke dalam dunia nyata dan diproyeksikan kedalam dunia nyata,
Hal yang didunia maya?? Yang dimaksud Hal didunia maya disini yaitu berupa benda,suara,sentuhan maupun penciuman . Dunia nyata dan dunia Maya berinteraksi secara realtime menggunakan internet…

teknologi ini masih terbilang baru.. dan saya yakin Augmented reality akan membuat hal yang masih dalam angan-angan menjadi kenyataan... contoh kita lihat dalam film iron man dimana mr.Stark mempunyai pertner kerja yang bernama Jarvis, Jarvis tidak berbentuk sperti manusia.. tetapi hanya bekerja dalam bentuk suara dan membantu mr stark menggunakan alat-alat.







hal tersebut juga bisa dibilang Augmented reality.. tapi teknologi yang sekarang belum bisa mencapai secanggih itu.. tidak menutup kemungkinan si JArvis akan benar - benar menjadi nyata...


berikut ini merupakan penerapan augmented reality dalam game Yu-gi-oh.. jadi kita tidfak perlu susah susah untuk berimajinasi bagaimana bentuk monster dalam kertu ketika memainkan kartu tersebut..




sekian penjelasan kali ini semoga bermanfaat wasalamualaikum.....

Rabu, 26 September 2012

life is struggle


Ya.. hidup memang pernuh perjuangan… sebagaimana hidup yang lg gw jalanin… banyak kegagalan,kekecewaan dan kenyataan yang tak sejalan… hidup penuh cobaan apalagi jika kita lagi dalam keadaan menerima kenyataan pahit. Kadang pikiran negative selalu muncul.. keyakinan hati akan jalan yang kita tempuh diuji.. membuat semangat menurun apalagi keinginan untuk maju… ga mudah mengembalikan passion yang udah kita dapet selama ini.. entah rasa iu memuai kemana… banyak pertanyaan dalam diri yang membuat kita ragu untuk melangkah… apalagi gw masih berstatus mahasiswa tingkat dua masih berusaha mencari jatidiri… kalo kata netral si “pertempuran hati”.. gw kira selama ini kata itu hanya sebuah gurauan lagu.. ternyata gw mengalami yang namanya pertempuran hati… tapi coba kita flashback .. what we’ve done…?? Kta udah dapet banyak hal yang kita lewatin sebelum ini… perjuangan gw selama ini … usaha gw.. feel gw buat dapetin ini… tiba tiba stuck di situ.. bingung mesti kemana…. Bingung harus ngapain.. semua terasa useless…





            Gw mencoba melihat sekitar gw.. dan  mencoba melihat orang yang telah mendapatakan kesuksesan… contohnya regina… kita kenal regina the winner Indonesian idol.. kita lihat apa yang udah di lakukan sebelum jadi kontestan Indonesian idol…??
Dia tidak memulai dengan hal yang bagus.. yang gw kagum dari dia adalah dia tidak berhenti mencoba untuk masuk Indonesian idol.. bahkan dia telah mengalami kegagalan masuk indonesian idol sebanyak 6 kali…. Disini gw ngga bermaksud untuk menjelekan usaha regina.. tp gw kegigihan dia yang patut dicontoh…  “GIGIH dan PANTANG MENYERAH” itu yang gw dapet dari perjuangan regina menuju jawara… keep it on!

Coba kita liat lagi pemain legenda Manchester United “Erric Cantona”. Dirinya sempat ditolak oleh Sheffield Wednesday.. klub yang ketika itu merupakan klub yang diperhitungkan di inggris.. tetapi eric cantona tetap mempertahankan kemampuan sepak bolanya dengan kata lain dia tidak mengalami kemunduran pada saat itu…
Yang saya dapatkan dari sejarah eric cantona adalah dia mempertahankan skill atau kapabilitas dirinya sebagai pemain bintang meskipun dia meraih kegagalan sebelumnya..

            Orang orang diatas bisa dibilang motivasi untuk teteap bertahan dari segala kondisi yang gw alami… hal-hal yang harus gw pegang adalah keGIGIHan, PANTANG MENYERAH dan MEMPERTAHANKAN kemampuan yang udah gw dapet selama ini…
            Hidup yang gw jalanin ngga seindah kemauan hati gw.. terkadang kita harus menyusuri jalan bersemak penuh duri untuk menemukanair terjun yang masih natural dan indah..

Keep it on! Life is full of struggle… just trust yourself..




Senin, 07 Mei 2012

program maksimum sort pada pascal

kali ini saya akan memposting program yang telah saya buat yaitu maksimum sort pada pascal

maksimum sort sendiri merupakan pengurutan data pada pascal dengan cara mencari nilai tertinggi dan mengurutkannya hingga nilai terendah ... prosesnya hampir sama seperti bubble sort

pertama2 kita ketik kode programnya,.... anda bisa memakai free pascal, turbo pascal maupun turbo pascal for windows...

dibawah ini merupakan kode programnyaa...

dan output programnya


segitiga angka perulangan (while) pada delphi



 Membuat program segitiga angka pada delphi.... saya menulis program ini dengan harapan dapat berguna bagi yang membutuhkannya suatu hari.....
program ini berasal dari program pascal yang diterapkan pada delphi

pertama tama kita buat form pada delphi seperti berikut




form diatas memakai component pallete 1 lstbox dan 1 button 




lalu klik 2x pada button dan isi code programnya
lalu isi pada code editor seperti berikut



maka ketika di run akan berjalan seperti berikut....
ketika kita klik button akan muncul segitiga program  


sekian program dari saya mudah2an bermanfaat....
bagi anda yang tertarik pada bidang programming latihan sangat diperlukan.. terus mencoba adalah kuncinya...

Kamis, 19 April 2012

Manusia dan Cinta Kasih


Manusia dan Cinta  Kasih 
Ilmu Budaya Dasar

Definisi
Menurut kamus umum bahasa Indonesia karya W.J.S Purwadarminta, cinta adalah rasa sangat suka (kepada) atau (rasa) suka (kepada) ataupun rasa sangat tertarik hatinya.
    Kasih artinya perasaan sayang atau cinta kepada atu maruh belas kasihan.
  Cinta kasih dapat diartikan sebagai perasan suka(sayang) kepada seseorang yang disertai menaruh belas kasihan




    Cinta dan kasih,memiliki perbedaan diantara keduanya
    Cinta memiliki pengertian mendalamnya rasa dan kasih lebih rasa keluarnya
    Dengan kata lain bersumber dari cinta yang mendalam itulah kasih lebih dapat diwujudkan secara nyata
    Cinta merupakan landasan dalam kehidupan perkawinan
    Cinta adalah pengikat yang okoh antara manusia dengan tuhannya sehingga manusia menyembah Tuhan dengan ikhlas , mengikuti perintahnya dan berpegang teguh padanya
    Dalam buku seni mencinta (Erich Fromm) menyebutkan bahwa cinta itu memberi bukan menerima
v  Memberi merupakan hal yang paling tiggi dalam kemampuan
v  Memberi ialah hal – hal yang sifatnya manusiawi,bukan materi
  Cinta selalu menyatakan unsur – unsur dasar tertentu yaitu pengasuhan ,pengenalan, tanggung jawab, dan perhatian
  Tanggung Jawab dalam arti benar adalah sesuatu yang benar sukarela dalam penyelenggaraan atas hubungan fisik
   Perhatian berarti memperhatian pribadi lain  hendaknya berkembang dan membuka diri sebagaimana adanya
     Pengenalan berarti keinginan mengetaui rahasia manusia
  Dr. Sarlito W.Sarwono mengatakan bahwa cinta memiliki tiga unsur : keterikatan, keiniman, dan kemesraan
v  Keterikatan : perasaan untuk hanya bersama dia
v  Kemesraan : adanya rasa ingin mebelai atau dibelai
v  Keintiman: kebiasaan dan tingkah laku antara anda dengan dia
 Dr. Sarlito W.Sarwono mengemukakan tidak semua unsur cinta sama kuatnya dan cinta eperti itu dinamakan cinta yang pincang
  Dr.Abdlulah Nasih Ulwan,dalam buku management cinta. Cinta adalah perasaan jiwa dan gejolak hati yang mendorong seseorang untuk mencintai kekasihnya dengan pebuh gairah , lembut, dan kasih sayang
   Cinta adalah fitrah yang murni yang tak dapat terisahkan dengan kehidupannya
  Cinta selalu menyatakan unsur – unsur dasar tertentu yaitu pengasuhan ,pengenalan, tanggung jawab, dan perhatian
  Tanggung Jawab dalam arti benar adalah sesuatu yang benar sukarela dalam penyelenggaraan atas hubungan fisik
  Perhatian berarti memperhatian pribadi lain  hendaknya berkembang dan membuka diri sebagaimana adanya
   Pengenalan berart keinginan mengetaui rahasia manusia
   Dalam surat at taubah Allah SWT berfirman tentang tigkatan cinta
                “Katakanlah: jik bapak-bapak,anak-anak,saudra-saudara,istri-istri keluargamu,harta kekayaan yang kamu usahakan,erniagaan yang kamu khatirkan kerugiannya dan rumah-rumah tepat tinggal yang kamu sukai: adalah lebih kamu cintai daripada Allah dan Rasul-nya dan berjihad dijalanNya maka tunggulah sampai Allah mendatangkan  keputusannya. Dan Allah tidak akan memeri petunjuk kepada orang-orang fasik”
    Cinta tertngi terhadap Allah ,Rasulullah dan berjalan di jalanNya
    Cinta tingkat menengah adalah cinta epada orang tua
    Cinta tngkat terendah  adalah mengutamakan keluarga,kerabat,tempat tingal dan harta
  Bagi setiap orang islam yang bertakwa sudah keharusan bahwa cinta kepada Allah , RasulNya dan berjihad dijalanNya adalah merupakan cinta yang tida ada duanya
    Hal diatas merupakan konsekwensi iman dan keharusan dalam islam bahkan pendorong utama didalam menunjang tinggi agama
•    Hakikat cinta menengah adalah suatu energi yang datang dari perasaan hati dan jiwa.
    Berangkat dari perasaan lembut yang ditanamkan oleh tuhan dalam hati dan jniwa seseorang inilah akan terbentuk perasaan kasih sayang dan cinta dari seseorang tehadap orang lain
  Cinta tingkat  terendah merupakan cinta yang paling keji,hna dan mersak rasa kemanusiaan karena tu cinta rendahan bentuknya beraneka ragam  misalnya:
v  Cinta kepada thagut(syetan)
v  Cinta berdasarkan hawa nafsu
v  Cinta yang lebih mengutamakan kecintaan kepada anak,orang tua,istri,perniagaan dan tempat tinggal.

 Hikmah cinta sangat besar,hanya oran yag diberi pemahaman dan kecerdasan saja yang bisa merenungkannya. Diantara hikmah-hikmah tersebut adalah:
v  Cinta merupakan ujian yang berat dan pahit dalam kehidupan seseorang manusia karena alam setap cinta akan menhgalami berbagai macam rintangan
v  Fenomena cinta yang melekat dalam jiwa manusia merupakan pembangkit dan pendorong yang paling besar dalam melestarikan lingkungan
v  Fenomena cinta merupakan faktor utamadam kelanjutan hidup manusia,dalam kenal-mengenal diantara mereka.
v  Fenomena cinta merupakan pengikat paling kuat di dalam hubungan antar anggota keuarga , kerukunan bermasyarakat,mengasihi esama makhluk hidup, menegakkan keamanan , ketentraman dan keselamatan di segala penjuru bumi.


bagian 3
bagian 4
bagian 5




Referensi dan sumber


(lihat selengkapnya)

Selasa, 03 Januari 2012

motivasi saya


MOTIVASI…
                Sejak SMA saya bermotivasi untuk melanjutkan kuliah ke perguruan tinggi negeri. Tetapi ketika saya tidak bisa menembus perguruan tinggi negeri saya tidak putus asa.. saya menyadari adanya peluang – peluang di sekitar saya seperti perguruan tinggi swasta.. langkah saya tidak terhenti di snmptn… saya mula mempunyai target dan mimpi baru… salah satunya  yaitu bayanya beasiswa yang dihadirkan di di Univ Gunadarma… maka itu saya bermotivasi masuk di Univ Gunadarma untuk mendaptkan peluang peluang besar…  diri saya termotivasi oleh beasiswa yadiberikan univ.Gunadarma.. dan saya bercita-cita bisa mendapatkan beasiswa S2 dari di Univ Gunadarma..
                Alasan saya masuk di Univ Gunadarma  adalah yang pertama saya tidak di terima di PTN, yang kedua menurut saya Gunadarma merupakan PTS yang mempunyai kualitas sangat baik.. dengan harapan jika saya masuk IT GUnadarma … saya dapat dengan mudah mendapatkan pekerjaan dengan gaji yang mencukupi.. selain itu saya percaya Gunadarma dapat menjadi sarana yang mengantarkan saya menjadi orang yang kompetitif dan professional di dunia kerja yang akan datang …. Dan saya berharap mendapat banyak pengalaman yang dapat membuat saya menjadi orang yg punya skill teruji selama berada di Univ Gunadarma….
Cukup sekian alasan dan motivasi yang sudah saya paparkan diatas mudah2an dan membuat para pembaca dapat termotivasi.
Wasalamualaikum warohmatullahiwabarokatuh.

Gunadarma University

motivasi saya


MOTIVASI…
                Sejak SMA saya bermotivasi untuk melanjutkan kuliah ke perguruan tinggi negeri. Tetapi ketika saya tidak bisa menembus perguruan tinggi negeri saya tidak putus asa.. saya menyadari adanya peluang – peluang di sekitar saya seperti perguruan tinggi swasta.. langkah saya tidak terhenti di snmptn… saya mula mempunyai target dan mimpi baru… salah satunya  yaitu bayanya beasiswa yang dihadirkan di universitas gunadarma… maka itu saya bermotivasi masuk gunadarma untuk mendaptkan peluang peluang besar…  diri saya termotivasi oleh beasiswa yadiberikan univ.Gunadarma.. dan saya bercita-cita bisa mendapatkan beasiswa S2 dari universitas Gunadarma…