This is default featured slide 1 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.This theme is Bloggerized by Lasantha Bandara - Premiumbloggertemplates.com.

This is default featured slide 2 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.This theme is Bloggerized by Lasantha Bandara - Premiumbloggertemplates.com.

This is default featured slide 3 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.This theme is Bloggerized by Lasantha Bandara - Premiumbloggertemplates.com.

This is default featured slide 4 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.This theme is Bloggerized by Lasantha Bandara - Premiumbloggertemplates.com.

This is default featured slide 5 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.This theme is Bloggerized by Lasantha Bandara - Premiumbloggertemplates.com.

SMADAV VER 8.7 PRO

Kali ini Kang Helmy ingin bagi-bagi anti virus gratis untuk anda. Bagi yang berkenan silahkan download sepuasnya, jika tidak berkenan juga enggak ada yang dirugikan.
Selamat mencoba semoga bermanfaat.

Waspadai Demam Berdarah

 
Demam berdarah (DB) adalah penyakit demam akut yang disebabkan oleh virus dengue, yang masuk ke peredaran darah manusia melalui gigitan nyamuk dari genus Aedes, misalnya Aedes aegypti atau Aedes albopictus. Terdapat empat jenis virus dengue berbeda, namun berelasi dekat, yang dapat menyebabkan demam berdarah. Virus dengue merupakan virus dari genus Flavivirus, famili Flaviviridae. Penyakit demam berdarah ditemukan di daerah tropis dan subtropis di berbagai belahan dunia, terutama di musim hujan yang lembab. Organisasi Kesehatan Dunia (WHO) memperkirakan setiap tahunnya terdapat 50-100 juta kasus infeksi virus dengue di seluruh dunia


JENIS-JENIS DEMAM BERDARAH

Demam berdarah (klasik)

Demam berdarah menunjukkan gejala yang umumnya berbeda-beda tergantung usia pasien. Gejala yang umum terjadi pada bayi dan anak-anak adalah demam dan munculnya ruam. Sedangkan pada pasien usia remaja dan dewasa, gejala yang tampak adalah demam tinggi, sakit kepala parah, nyeri di belakang mata, nyeri pada sendi dan tulang, mual dan muntah, serta munculnya ruam pada kulit. Penurunan jumlah sel darah putih (leukopenia) dan penurunan keping darah atau trombosit (trombositopenia) juga seringkali dapat diobservasi pada pasien demam berdarah. Pada beberapa epidemi, pasien juga menunjukkan pendarahan yang meliputi mimisan, gusi berdarah, pendarahan saluran cerna, kencing berdarah (haematuria), dan pendarahan berat saat menstruasi (menorrhagia).

Demam berdarah dengue (hemoragik)

Pasien yang menderita demam berdarah dengue (DBD) biasanya menunjukkan gejala seperti penderita demam berdarah klasik ditambah dengan empat gejala utama, yaitu demam tinggi, fenomena hemoragik atau pendarahan hebat, yang seringkali diikuti oleh pembesaran hati dan kegagalan sistem sirkulasi darah. Adanya kerusakan pembuluh darah, pembuluh limfa, pendarahan di bawah kulit yang membuat munculnya memar kebiruan, trombositopenia dan peningkatan jumlah sel darah merah juga sering ditemukan pada pasien DBD Salah satu karakteristik untuk membedakan tingkat keparahan DBD sekaligus membedakannya dari demam berdarah klasik adalah adanya kebocoran plasma darah. Fase kritis DBD adalah seteah 2-7 hari demam tinggi, pasien mengalami penurunan suhu tubuh yang drastis. Pasien akan terus berkeringat, sulit tidur, dan mengalami penurunan tekanan darah. Bila terapi dengan elektrolit dilakukan dengan cepat dan tepat, pasien dapat sembuh dengan cepat setelah mengalami masa kritis. Namun bila tidak, DBD dapat mengakibatkan kematian.

Sindrom Syok Dengue

Sindrom syok adalah tingkat infeksi virus dengue yang terparah, di mana pasien akan mengalami sebagian besar atau seluruh gejala yang terjadi pada penderita demam berdarah klasik dan demam berdarah dengue disertai dengan kebocoran cairan di luar pembuluh darah, pendarahan parah, dan syok (mengakibatkan tekanan darah sangat rendah), biasanya setelah 2-7 hari demam. Tubuh yang dingin, sulit tidur, dan sakit di bagian perut adalah tanda-tanda awal yang umum sebelum terjadinya syok. Sindrom syok terjadi biasanya pada anak-anak (kadangkala terjadi pada orang dewasa) yang mengalami infeksi dengue untuk kedua kalinya. Hal ini umumnya sangat fatal dan dapat berakibat pada kematian, terutama pada anak-anak, bila tidak ditangani dengan tepat dan cepat. Durasi syok itu sendiri sangat cepat. Pasien dapat meninggal pada kurun waktu 12-24 jam setelah syok terjadi atau dapat sembuh dengan cepat bila usaha terapi untuk mengembalikan cairan tubuh dilakukan dengan tepat. Dalam waktu 2-3 hari, pasien yang telah berhasil melewati masa syok akan sembuh, ditandai dengan tingkat pengeluaran urin yang sesuai dan kembalinya nafsu makan.


Ciri ciri demam berdarah

Adapun ciri ciri demam berdarah bila sudah menyerang manusia adalah
1.      Tanpa sebab yang jelas tiba-tiba suhu badan bisa naik disertai dengan demam dan panas selama dua sampai tujuh hari berturut-turut.
2.      Demam tersebut tidak bisa sembuh meski sudah diberi obat penurun panas dan demam.
3.      Perut terasa mual dan selalu ingin muntah serta nyeri. Selain itu nafsu untuk makan dan minum hilang.
4.      Nafas menjadi tidak normal dan sesak.
5.      Otot di seluruh bagian tubuh terasa pegal dan nyeri.
6.      Mata terasa tidak nyaman untuk melihat, terutama ketika memandang ke samping.
7.      Kepala mudah pusing dan pening serta terasa berat.
8.      Kulit menjadi nampak kemerahan, terutama di bagian muka.
9.      Proses BAB menjadi tidak lancar dan bila keluar warnanya juga tidak normal (hitam).
10.  Bila suhu badan terus meninggi, kepala terus pusing dan terjadi muntah darah serta hilang kesadaran.



Pertolongan pada penderita demam berdarah

1.      Bila seseorang kondisi tubuhnya telah menunjukan ciri ciri demam berdarah seperti yang diuraikan di atas, maka pertolongan pertama yang perlu diberikan adalah :
2.      Berilah air minum sebanyak-banyaknya untuk menghindari terjadinya kekurangan cairan di tubuh penderita.
3.      Berilah kompres di bagian kepala dengan kain atau handuk yang dicelup pada air dingin untuk menurumkan deman dan pusing serta panas.
4.      Berilah makan makanan yang mengandung trombosit, misalnya jambu biji merah.
5.      Usahakan agar penderita terus mendapat asupan makanan yang cukup, meski nafsu makannya tidak ada.
6.      Setelah melakukan empat hal di atas namun penderita tidak menunjukan adanya kemajuan yang berarti dan ciri ciri demam berdarah tidak hilang, maka segera saja dibawa ke rumah sakit agar bisa mendapat pertolongan dan pengobatan secepatnya dari dokter.

5 Tanaman Obat Untuk Demam Berdarah

Pepaya (Carica papaya)
 
  • Untuk ramuan DBD, digunakan daun pepaya jantan (pepaya gandul). Daun pepaya mengandung berbagai enzim seperti papain, karpain, pseudokarpain, nikotin, kontinin, miosmin, dan glikosida karposid.
  • Manfaat empiris daun pepaya gandul adalah getah daun muda untuk obat pencahar, daunnya merangsang sekresi empedu serta sebagai obat sakit perut, demam malaria, dan penyakit cacing serta membantu proses pencernaan.
  • Daun pepaya sudah digunakan sebagai bahan ramuan obat di 23 negara dan mendapat prioritas sebagai tanaman obat utama menurut WHO.
  • Hasil penelitian mengenai khasiat daun pepaya menunjukkan bahwa papain pada daun pepaya memiliki efek terapi pada penderita inflamasi atau pembengkakan organ hati, mata, kelamin, dan usus halus. Pembengkakan organ hati ditemukan pada penderita demam berdarah. Di samping itu, daun pepaya juga memiliki aktivitas anti oksidan, anti koagulan, serta menyembuhkan luka lambung dan usus.

Meniran (Phyllanthus niruri)

 
  • Meniran memiliki khasiat sebagai obat anti virus. Senyawa yang ditemukan pada meniran antara lain adalah triterpenoid, flavoniod, tanin, alkaloid, dan asam fenolat.
  • Secara empiris, rebusan daun meniran sering dimanfaatkan sebagai obat tradisional untuk mengobati penyakit hati, sebagai diuretik untuk hati dan ginjal, kolik, penyakit kelamin, obat batuk, ekspektoran, antidiare, seriawan / panas dalam, dan sebagai tonik lambung.
  • Hasil penelitian menunjukkan bahwa meniran berfungsi menghambat DNA polimerase dari virus hepatitis B dan virus hepatitis sejenisnya, menghambat enzim reverse transcriptase dari retrovirus, sebagai anti bakteri, anti fungi, anti diare, dan penyakit gastrointestinal lainnya. Meniran juga memiliki fungsi meningkatkan ketahanan tubuh penderita dengan cara memacu fagositosis sel makrofag, fungsi proliferatif limfosit T, antibodi IgM dan IgG, aktivitas hemolitik, sitotoksisitas sel NK, dan khemotaksis neutrofil dan makrofag.

Kunyit (Curcuma domestica)

 
  • Kunyit telah lama dimanfaatkan dalam ramuan obat tradisional untuk mencegah dan mengobati berbagai macam penyakit, seperti stomakik, stimulan, karminatif, haematik, hepato-protektor, mengobati luka lambung dan ulser, sebagai pewarna makanan, bumbu, anti spasmodik, anti imflamasi, gangguan pencernaan, dan sebagai insektisida, bahan kosmetik, dan anti oksidan.
  • Rimpang kunyit mengandung minyak atsiri (turmeron, zingiberene) dan zat berkhasiat dari golongan kurkuminoid (kurkumin I, II, dan III).
  • Hasil penelitian menunjukkan bahwa kunyit memiliki aktivitas sebagai anti mikroba (berspektrum luas), antivirus HIV, anti oksidan, anti tumor (menginduksi apostosis), menghambat perkembangan sel tumor payudara, anti invasi sel kanker, anti reumatoid artritis (rheumatik), dan untuk mengobati penyakit pencernaan (tukak lambung).

Temu Ireng (Curcuma aeruginosa)

 

  • Temu ireng telah banyak dimanfaatkan secara empiris untuk mengobati sel-sel hati yang rusak. Pada penderita demam berdarah, terjadi kerusakan sel-sel hati.
  • Secara empiris temu ireng juga bermanfaat untuk mengobati kolik, luka lambung dan usus, asma, batuk, menambah nafsu makan, memper cepat pengeluaran lokhia setelah melahirkan, mencegah obesitas, rematik, anthelmintik, dan sebagai sumber tepung.
  • Temu ireng mengandung minyak atsiri (turmeron, zingiberene), kurkuminoid (kurkumin I, II, dan III) serta alkaloid, saponin, pati, damar, dan lemak.

Jambu Biji (Psidium guajava)

 

  • Daun jambu biji sudah banyak dimanfaatkan dalam pengobatan tradisional. Secara empiris, daun jambu biji bersifat anti biotik dan telah dimanfaatkan untuk anti diare, sedangkan buahnya untuk obat pencahar, tanin mempersempit urat darah.
  • Daun jambu biji mengandung tanin, minyak atsiri, minyak lemak, dan minyak malat, sedangkan buahnya mengandung vitamin C yang tinggi.
  • Hasil penelitian yang dikutip dari berbagai sumber menunjukkan daun jambu biji terbukti dapat menghambat aktivitas enzim  reverse transcriptase dari virus dengue, tanin menghambat enzim reverse transcriptase maupun DNA polymerase dari virus serta menghambat pertumbuhan virus yang berinti DNA maupun RNA.
  • Hasil uji klinis menunjukkan bahwa pemberian ekstrak kering daun jambu biji selama 5 hari mempercepat pencapaian jumlah trombosit >100.000/µl, pemberian ekstrak kering setiap 4-6 jam meningkatkan jumlah trombosit >100.000/µl setelah 12-14 jam, tanpa menimbulkan efek samping yang berarti. Dengan demikian, ekstrak daun jambu biji dapat digunakan untuk pengobatan kuratif demam berdarah.
Pencegahan

1.      Menguras bak mandi sekurang-kurangnya 1 minggu sekali
2.      Menutup rapat-rapat tempat penampungan air
3.      Mengganti air Vas bunga/tanaman air seminggu sekali
4.      Mengganti air tempat minum burung
5.      Menimbun barang-barang bekas yang dapat menampung air
6.      Menabur bubuk abete atau altosid pada tempat-tempat penampungan air yang sulit dikuras atau di daerah yang air bersih sulit didapat, sehingga perlu penampungan air hujan
7.      Memelihara ikan di tempat-tempat penampungan air
Takaran abate : 1 sendok peres (+ 10 gram) untuk 100 liter air
Takaran altosid : 1/4 sendok peres (+ 2,5 gram) untuk 100 liter

Dari berbagai sumber

    Anti Hack

    Sebelumnya ane ngucapin Minal Aidzin Wal Faizin, Mohon Maaf Lahir dan Batin di Idul Ftiri 1432 H. Tentunya banyak sekali kesalahan yang pernah ane lakukan. baik sengaja maupun tidak sengaja, dan sebaliknya pintu maaf saya buka lebar-lebar untuk para sahabat dan pembaca semua. Semoga hal buruk apa yang pernah kita lakukan yang membuat persahatan kita menjadi sedikit terganggu, menjadi lebur bagai kertas putih kembali, seperti manakala saat kita merasakan keindahan dan kebahagiaan bersama, sehingga hal baik yang kita lakukan menjadi satu amalan yang diridhoi oleh Allah SWT.

    Nah.... sekarang intinya nih.
    Jaringan internet menggunakan WIFI adalah merupakan jaringan yang gak ribet dan hemat biaya. Selain perlengkapannya begitu mudah (cuman pake laptop yang punya wifi, HP wifi, atau accespoint sederhana) juga bisa dikatakan jaringan ini relatif stabil dibanding kita menggunakan jaringan kartu (GSM, CDMA non 3g). Kecepatan wifi ini secara teori adalah 54M, walau kenyatannya hanya 10% - 30% yang kita gunakan, namun demikian cukup lumanya untuk browsing dan download dengan kecepatan antara 29 - 50 kBps.

    Untuk jaringan WIFI dengan tipe RT/RW net, bisa digunakan untuk 100 jaringan atau lebih, walau maksimalnya adalah 50 jaringan saja. Biasanya client cukup mengetikkan username dan password nya kemudian lagsung nyambung ke jaringan, dan menggunakan jaringan secara berbagi dengan clint yang lain.

    Dari sambungan ini, clien selain bisa menggunakan internet juga bisa melihat dokument share dari seluruh anggota yang saat itu online bersama. Bahkan bisa mengopi file di dalamnya, tanpa harus permisi pada empunya. Hanya saja untuk masalah ini bukan masalah besar, artinya proses copy tersebut tidak sampai menggangu jalannya internet. Yang paling menjengkelkan adalah beberapa pengguna yang ingin menguasai jaringan itu sendirian. Biasanya mereka menggunakan Netcut, dengan memutuskan jaringan (cut) orang lain, yang berakibat jaringan lainnya tidak bisa berfungsi atau hanya perputar2 loading yang gak berhenti2 sampai pelaku menaktifkan mengembalikan jaringan tersebut. 

    Netcut sendiri, mempunyai antinya yaitu NetcutDefender, dengan NetcutDefender ini, orang lain tidak akan bisa meng-cut jaringan kita. Hanya saja program ini cukup banyak makan memori, sehingga komputer terasa lebih lambat 20 - 30% dari biasanya. 

    Nah... saya ada pakek sorftware AntiArp, selain  program ini ringan, juga memiliki kelebihan cek koneksi, cek hack dan beberapa fasilitas lain yang cukup berguna untuk kita. Sementara sih saya pake yang trial 15 hari, cuman kalau habis masanya, kita bisa download2 lagi dan instal ulang lagi, maka waktunya 15 hari lagi. Bagi saudara2 yang gak suka trial, ya buy aja pada situsnya.

    Bagaimana cara ngecek ip yang menyabotasi jaringan
    Selain mengunakan Netcut, pengguna lain juga bisa menggunakan software tertentu untuk menguasai jaringan, tanpa meng-cut user lain.. ... dalam hal ini tidak saya sampaikan, takut entar di salah gunakan... he.he..  untuk mengeceknya anda bisa menggunakan IP Scaner atau program yang sejenis, dan silahkan cek.. ping dari masing2 ip, jika menunjukkan angka -xxx, maka kelihatan IP tersebut sekarang sedang menggunakan software penyabot. Untuk mengatasi perusuh tersebut, anda bisa lihat pada ulasan saya di pioner computer.

    Oke deh sekian dulu... semoga bermanfaat.

    Blog Tidak Bisa DiCopy

    Bagi para sahabat yang mau ngopi situs / blog yang enggak bisa dicopy/klik kanan, kayak blog ane nih.....Kang Helmy mau kasih bocoran... biar dikatain ilmu senjata makan tuan, enggak apa-apa yang penting para sahabat tercinta seneng....ane dah Alhamdulillah, apa lagi di Bulan Ramadhan yang tinggal beberapa hari ini, kali aja bisa bermanfaat.
    Nah....tanpa panjang lebar, (khusus untuk Firefox)..... langsung aja :
    1.  Klik menu TOOLS
    2.  Pilih OPTION
    3.  Pilih tab KONTEN
         Muncul kotak dialog di bawah ini :

    Cara Mengatasi Sariawan dalam 1 malam

    Weh... kesibukan yang semakin lama semakin padat, sehingga blog tidak keurus sampai lamaaa..sekali. Sebenarnya ada keinginan untuk kembali mengaktifkan blog dan kumpul bareng sahabat-sahabat terbaik saya, namun apa daya... he..he. Di sela-sela waktu yang sempit ini, saya akan memberikan sedikit pengalaman pribadi, barangkali para pembaca pernah mengalami hal yang sama, bisa sedikit memberikan solusi.


    Seriawan (disebut pula sariawan) atau stomatitis aphtosa adalah suatu kelainan pada selaput lendir mulut berupa luka pada mulut yang berbentuk bercak berwarna putih kekuningan dengan permukaan agak cekung. Munculnya Seriawan ini disertai rasa sakit yang tinggi.

    Seriawan merupakan penyakit kelainan mulut yang paling sering ditemukan. Sekitar 10% dari populasi menderita dari penyakit ini, dan wanita lebih mudah terserang daripada pria.

    Ada beberapa faktor penyebab yang diduga menjadi penyebab munculnya seriawan, seperti luka tergigit, mengonsumsi makanan atau minuman panas, alergi, kekurangan vitamin C dan zat besi, kelainan pencernaan, kebersihan mulut tidak terjaga, faktor psikologi, dan kondisi tubuh yang tidak fit.

    Seriawan di tempat yang sama selama dua minggu hingga satu bulan dapat dijadikan indikasi adanya kanker rongga mulut. Stomatitis Aphtous/Ulcer bukan hanya disebabkan karena kekurangan Vitamin C, namun sebaliknya SA dikenal disebabkan oleh alergi citrus atau alergi makanan yang mengandung asam, kondisi imun yang lemah, obat-obatan tertentu, trauma fisik (ataupun penggunaan gigi palsu baru), dsb.

    Penyakit kekurangan vitamin C sendiri adalah Scurvy atau kegagalan proses sintesis kolagen yang ditandai dengan gusi mudah berdarah, pendarahan kulit (purpura) dsb.


    Beberapa minggu yang lalu saya mengalami hal yang sama, dan kemarin juga mengalami hal serupa. Dan alhamdulillah hanya semalam, pagi ini sudah sembuh seperti sedia kala, tentu saja ini adalah harapan semua orang khan.

    Langsung saja ke TKP, yang saya lakukan tadi malam dan beberapa minggu yang lalu adalah :

    1. Saya minum ester C 2 tablet

    2. Kemudian kumur dengan Zensodine (pasta gigi) kumur cuman sekali. Pada saat kumur, saya usahakan luka pada gusi terbuka (agak keras), dan jangan takut sakit.

    3. Sebelum tidur, saya tetesi luka saya dengan obat tetes GOM

    Dan... terbukti pagi ini sudah sembuh total.

    Semoga bisa membantu, dan bagi para sahabat yang tidak sempat terbalas komennya saya mohon maaf yang sebesar-besarnya.

    Obat Nyamuk Elektrik

    Lama gak pernah sambang Blog, ternyata banyak sahabat mampir tak terbalas, pada kesempatan ini saya sangat-sangat minta maaf. Sebagai ganti kekecewaan pada sodara-sodara tercinta, ada sebuah software lama, tapi sampe sekarang masih berfungsi cukup baik, yaitu Anti-Mosquito (Obat Nyamuk), software ini katanya menciptakan suara Ultrasonic yang membuat para nyamuk Enggak betah dan pindah ke lokasi jauh (kali aja telinganya sakit he..he..he..) dan suara itu tidak bisa didengar oleh telinga manusia. Jadi relatif aman lah..
    Tampilannya seperti ini :
    Kita tinggal tekan ACTIVATE, dan silahkan rasakan, kalau Sdr. Nyamuk dan kawan2 pada pergi entah kemana. Sayangnya software ini bisa fungsi kalau kita nyalakan komputer aja, cuman minimal kita gak perlu beli obat nyamuk untuk mengamankan dan menkondusifkan kegiatan ngetik mengetik kita di pagi/siang/malam.
    Dah seperti biasa silahkan download DI SINI, semoga bermanfaat bagi anda semua.

    Materi Free Pascal


    1.2          HIRARKI PENULISAN PROGRAM
    Kompetensi :
    1.2.1  Bagaimana  struktur penulisan listing program pada FP
    1.2.2  Apa saja perintah yang dituliskan dalam program
    1.2.3  Bagaimana cara menjalankan
    1.2.4  Bagaimana cara menyimpan, membuka, dan menutup FB


    Materi :
    1.2.1      Bagaimana struktur listrik program FP

    Program ……….. ;       {Nama program}
    Var  ….. : ….. ;             {Variabel : jenis karakter}
    Type  …..= ..… ;           {Variabel = Isi variable}
    Const ..... = ..... ;           {Variabel = nilai variabel}

    Begin                            {Awal program à wajib}
                Begin                 {Awal proses dalam sub program}
                End;                  {Akhir proses dalam sub program}
    End.                              {Akhir program àwajib}


    1.2.2      Apa saja perintah-perintah yang dituliskan dalam program
    Dalam hal ini kita ambil beberapa perintah sederhana saja, antara lain :

    WRITE( ...... )               {Tuliskan ......   untuk text beri tanda ‘ text ‘}
    WRITELN(....., .....)      {Tulisan ....., simpan dalam variabel ... turun satu baris}
    READ(....)                     {Simpan input dalam variabel ....}
    RADLN(....)                  {Simpan input dalam variabel ..., dan turun 1 baris}
    GOTOXY(..., ....)          {Arahkan kursor pada kolom ... , baris ....}
    Contoh Listing program sebagai berikut:


    Program Halo1;
    {*Dibuat oleh : .......... tanggal.......*}

    Uses Wincrt;

    Begin
             Writeln(‘Halo calon programer ‘);
             Writeln (‘Nama saya ......’);                               {Titik2 tulis nama anda}
             Writeln(‘Hoby saya .....’);                                   {Tulis hobby anda}
             Writeln(‘Mari belajar Free Pascal dengan saya’);
             Readln;                                                           {Tahan tampilan}
    End.


    Program Halo2;
    {*Dibuat oleh : .......... tanggal.......*}

    Uses Wincrt;
    Var nama, hobby : string;

    Begin
             Writeln(‘Halo calon programer’);
             Write(‘Nama saya : ’); Readln(nama);
             Write(‘Hobby saya: ‘);Readln(hobby);
             Write(‘Mari belajar Free Pascal dengan ‘,nama,’ hobbyku ‘,hobby);
             Readln;                                                          
    End.

    Program halo3;
    {*Dibuat oleh : .......... tanggal.......*}

    Uses Wincrt;
    Var nama, alamat:string;
                Umur:integer;
    Begin
                Write(‘Biodata aktivasi anda ‘);
                Write(‘Nama anda : ‘);   Readln(nama);
                Write(‘Alamat anda : ‘; Readln(alamat);
                Write(‘Umur anda : ‘)    Real(umur);
                Write(‘==============================’)
                Writeln(‘Halo  Anda telah teraktivasi sebagai calom programer’);
                Writeln(‘Dengan biodata : Nama ‘,nama,’ alamat ‘, alamat,’ umur ‘,umur,’ tahun’);
                Readln;
    End.

    1.2.3      Bagaimana cara menjalankan
    Sebelum menjalankan arahkan dulu penyimpanan program2 di atas pada Folder yang telah dibuat sebelumnya :
    Pilih File à Save / Save As à Klik tanda [  ...\  ] pada kotak dialog sampai mengarah pada folder sebagai mana pertemuan kita kali ini adalah PERTEMUAN 1

    Setelah tersimpan, ada beberapa perintah yang harus kita ketahui :
    a.    Menjalankan program :  Alt + Run  / Klik Run
    Catatan : program tidak bisa di run apabila ada beberapa kesalahan penulisan, dalam hal ini anda harus benar-benar teliti dalam menuliskan perintah-perintah program)

    b.    Menampilkan hasil secara penuh : Alt + D + U / Alt + F5 /
    klik Debug à  User Screen

    c.    Menampilkan hasil secara mandiri : Alt + F + D /
    Klik File à Command Shell
    Kemudian pada C:\FPC\SIMPANAN\PERTEMUAN1>  ketik nama program, misal Halo1, kemudian tekan Enter
    Catatan : Setelah kita melakukan Run, maka Otomatis program kita menjadi EXE, artinya sudah menjadi file Eksekutor yang siap dijalankan secara mandiri dengan veri DOS-Promt
    Untuk kembali ke FP, ketik pada :\FPC\SIMPANAN\PERTEMUAN1>  EXIT
    Kemudian Enter

    1.2.4      Bagaimana cara menyimpan, membuka dan menutup program
    Cara menyimpan telah saya sampaikan di atas, cara menutup adalah klik pada kotak Hijau di ujung kiri atas pada listing program, contohnya sebagai berikut :

    1.3          Mengerjakan Soal-Soal
    Untuk lebih memahami pembelajaran pertemuan ini, kerjakan secara mandiri soal-soal berikut ini :


    Soal 1
    1.    Nama program adalah TUGAS_1_1
    2.    Hasil program adalah sebagai berikut :


    Nama Anda           :    GEORGE SARIDIN
    TTL                        :    17 Agustus 1945
    Alamat                   :    Jl. Pelan2 No. 9 Singojuruh
    Pekerjaan              :    Manager
    Perusahaan           :    PT. Maju Terus Pantang Mundur        


    Soal 2

    1.    Nama program adalah TUGAS_1_2
    2.    Hasil program adalah sebagai berikut :

    ======================================
    BIODATA PESERTA OSN
    SMAN DARUSSHOLAH SINGOJURUH
    TAHUN 2011
    ======================================
    Nama                      :    NAMA ANDA
    Umur                      :    UMUR ANDA
    Alamat                   :    ALAMAT ANDA
    Kelas                      :    KELAS
    Jenis Program      :    FREE PASCAL
    ======================================
    Aktivasi data         :   26 Januari 2011
    ======================================    



    SIMPAN FILE TUGAS INI PADA FOLDER PERTEMUAN 1 &
    JAWABAN SOAL2 INI DIKUMPULKAN PADA PERTEMUAN BERIKUTNYA.



    Pertemuan 2
    2.1.        PENGENALAN PENULISAN ANGKA
    Kompetensi :
    2.1.1        Apa jenis2 karakter angka dan bagaimana spesifikasinya
    2.1.2        Apa saja operator hitung pada Free Pascal
    2.1.3        Bagaimana cara menuliskan rumus pada Free Pascal

    Materi :
    2.1.1        Apa Jenis2 karakter angka dan bagaimana spesifikasinya
    Dalam hal ini kita batasi beberapa jenis saja

    Jenis
    Batasan
    Ukuran
    Byte
    0 ... 255
    1
    Integer
    - 2147483648 ... 2147483648
    2, 4, 8
    Real
    - 2,1063+1 ..  2,1063 -1
    19 - 20
    Untuk penulisan umum bisanya menggunakan integer. Tetapi Tips kita adalah semakin sedikit menggunakan memory itu semakin baik.

    2.1.2        Apa saja operator hitung pada Free Pascal
    Dalam hal ini kita batasi yang umum saja

    Matematika
    Free Pascal
    Keterangan
    +
    +
    Tambah
    -
    -
    Kurang
    x
    *
    Kali
    :
    /
    Bagi
    22
    2^2
    Pangkat
    4^(1/2)
    Akar
    Lebih kecil
    Lebih besar
    £
    <=
    Lebih kecil sama dengan
    ³
    >=
    Lebih besar sama dengan
    ¹
    <> 
    Tidak sama dengan

    2.1.3        Bagaimana cara menuliskan rumus pada Free Pascal
    Cara menuliskan rumus adalah sebagai berikut :

    Matematika
    Free Pascal
    Keterangan
    X = 2+ 2
    X:= 2+2
    X sama dengan 2 + 2
    X = 4 : 2
    X:=4/2
    X sama dengan 4 : 2
    X = 4 + Nilai
    X:=4+nilai
    X sama dengan 4 + variabel nilai



    Contoh :

    Program Hitung_lingkaran;
    {*Dibuat oleh : .......... tanggal.......*}

    Uses Wincrt;
    Conts P =3.14;                                                {P = p =  22/7 atau 3,14}
    Var jari:byte;                                                   {Jari-jari lingkaran}
    Begin
               Writeln(‘Jari-jari         :  ’ ,jari);
               Write(‘Luas lingkaran : ‘ ,p*jari^2);        {Luas = p r2}
    End.


    Program Hitung_Bujursangkar;
    {*Dibuat oleh : .......... tanggal.......*}

    Uses Wincrt;

    Var lebar, panjang:byte;
              Hasil:byte;

    Begin
             Write(‘Pangjang Bujursangkar    : ‘); Read(pangjang);
             Write(‘Lebar Bujursangkar     : ’); Read(lebar);
             Hasil:=panjang*lebar;
             Writeln(‘Luas Bujursangkar    : ‘,Hasil);
    End.



    2.2.        PENGENALAN LOGIKA IF THEN ELSE
    Kompetensi :
    2.3.1        Apa yang dimaksud logika dalam pemrograman
    2.3.2        Bagaimana hierarki IF THEN ELSE

    Materi :
    2.3.1        Apakah yang dimaksud logika dalam pemrograman
    Logika di sini adalah pilihan jawaban jika terjadi dua kemungkinan yang berbeda.

    2.3.2        Bagaimana hierarki IF THEN ELSE
    Contoh kasus umum adalah :
    Jika hari ini hujan agar kita tidak basah maka, kita gunakan payung, jika tidak , harus berteduh sampai hujan selesai.

    Dalam logika program maka :
    IF kondisi = tidak basah THEN kita gunakan payung ELSE harus berteduh sampai hujan selesai


    Contoh 1:
    IF  variabel = uji THEN statemen1 ELSE statemen2

    Contoh 2:
    IF  variabel = uji THEN
    Begin
                  statemen1 ;
    ELSE
                  statemen2;
    end.

    Contoh 2:
    IF variabel = uji THEN
    begin
               IF variabel = uji2 THEN
               Begin
                            Statemen1;
               End;
    ELSE
               Begin
                            Statemen2;
               End;      
    end.

    2.3.3        Bagaimana cara menggunakan IF THEN ELSE
    Perhatikan contoh di bawah ini :

    2.3.        PENGENALAN LOGIKA CASE  OF ELSE
    Kompetensi :
    2.3.1        Bagaimana hierarki CASE OF ELSE
    2.3.2        Bagaimana menggunakan CASE OF ELSE
    Materi :
    2.3.1        Bagaimana hierarki CASE OF ELSE
    Sebelum mengenal lebih jauh, maka ada pertanyaan, mengapa kita menggunakan CASE OF ELSE? Pengujian ini dilakukan apabila kita memiliki lebih dari 2 opsi pilihan.

    Contoh 1 :
    Kita menjual 5 jenis kue, dengan harga :
    -       Kue a harga Rp. 50,-
    -       kue b harga Rp. 100,-
    -       kue c harga Rp. 150,-
    -       kue d harga Rp. 200,-
    -       kue e harga Rp. 250,-
    Jika pembeli memilih kue a, maka secara otomatis harganya Rp. 50,-

    Contoh  2 :
    Menghitung kredit Bank dalam 3 jenis angsuran : 1  satu tahun; 2 dua tahun; 3 tiga tahun. Dengan bunga 2% maka dapat diperkirakan :
    -       1 tahun adalah HUTANG / 12 bulan + 25% x HUTANG
    -       2 tahun adalah HUTANG / 24 bulan + 25% x HUTANG
    -       3 tahun adalah HUTANG / 36 bulan + 25% x HUTANG

    2.3.2        Bagaimana menggunakan CASE OF ELSE
    Dari contoh kasus di atas maka dapat kita gambarkan dalam listing program adalah :
    Contoh 1:
    Var kue:string;
    begin
                Writeln(‘Beli Kue : ‘,kue);
                CASE kue OF
                A:Writeln(‘Harga adalah = ‘,’Rp. 50,-’);
                B:Writeln(‘Harga adalah = ‘,’Rp. 100,-’);
                C:Writeln(‘Harga adalah = ‘,’Rp. 150,-’);
                D:Writeln(‘Harga adalah = ‘,’Rp. 200,-’);
                E:Writeln(‘Harga adalah = ‘,’Rp. 250,-’);
    End.
    Catatan : mengapa Rp. 50 ditulis sebagai STRING? Karena Rp. Adalah STRING
    Contoh 2:
    Var hutang,kredit:integer;
    Hasil : integer;
    Begin
                Writeln(‘Hutang anda     : ‘,hutang);
                Writeln(‘Lama kredit      : ‘,kredit);
                CASE  kredit OF
                1:hasil:=(hutang/12)+(25%*hutang);
                2:hasil:=(hutang/24)+(25%*hutang);
                3:hasil:=(hutang/36)+(25%*hutang);

                Writeln(‘Angsuran jenis : ‘,kredit, ‘adalah ‘,hasil,’ per bulan’);
    ELSE
                Writeln(‘Angsuran tidak dikenal’);
                 END;
    End.

    Soal 1
    1.       Nama program adalah TUGAS_1_3
    2.       Hasil program adalah sebagai berikut :
    ==============================================          
    INPUT DATA UMUR
    ==============================================          
    Nama Anda            :    .....
    Tanggal                  :    ......
    Bulan                      :    ......
    Tahun                     :    ......
    Hari ini Saudara ....  telah berumur ... hari ... bulan ... tahun
    ==============================================          

    Soal 2
    Sebuah warnet mempunya 2 paket, paket 1 adalah per jam dan paket 2 adalah  member,
    Dengan ketentuan : jika menggunakan paket 1 maka nilai perjamnya adalah Rp. 3.000,- sedangkan untuk paket 2 maka Per 10 jamnya membayar Rp. 25.000,-

    Seorang pelanggan telah merental selama 5 jam, maka jika ia menggunakan paket 1 berapa dia harus membayar? Dan jika menggunakan paket 2 berapa dia harus membayar?

    Buatlah program paket di atas dengan tampilan sebagai berikut :

    ==================================
    PERHITUNGAN KEUANGAN WARNET
    ==================================
    Nama Pelanggan         :    .....
    Lama Rental                 :    .....
    Paket digunakan         :    ......                           {berisi 1 atau 2 (jenis paket}
    ==================================
    Biaya rental                 :    Rp. .......                    {hasil jika menggunakan paket 1 atau 2}
    ==================================


    SIMPAN FILE TUGAS INI PADA FOLDER PERTEMUAN 2 &
    JAWABAN SOAL2 INI DIKUMPULKAN PADA PERTEMUAN BERIKUTNYA.



    Pertemuan 3

    3.1.            PENGENALAN looping FOR  TO DO
    Kompetensi :
    3.1.1        Apa maksud looping
    3.1.2        Bagaimana hierarki For To Do
    3.1.3        Bagaimana cara menggunakan For to Do

    Materi :
    3.1.1        Apa maksud looping
    Looping adalah perulangan, yang dimaksud perulangan adalah beberapa proses yang dilakukan berkali-kali secara sama, dengan maksud tertentu.

    Contoh:
    Pada sebuah deret angka antara 1 s/d 10, kita disuruh menentukan mana yang angka ganjil dan mana yang bukan.

    Perulangannya adalah dengan menguji angka 1, 2, 3.... 10 dengan ketentuan yang sama, sehingga akan ditemukan angka-angka yang ganjil dalam deret angka tersebut.

    3.1.2        Bagaimana Hierarki FOR TO DO
    Fungsi For To Do  ada 2 Jenis antara lain :
    FOR TO DO = nilai semakin besar
    FOR DOWN TO = nilai semakin kecil

    Hierarki / Sintaks :
    FOR variabel:= awal TO akhir DO statement
    FOR variabel:= akhir DOWN TO awal DO statement

    FOR variabel:=awal TO akhir                 FOR variabel:= akhir TO awal
    Begin                                                                         Begin
             Statement;                                              statement;
    End;                                                         end;

    3.1.3        Bagaimana cara menggunakan FOR TO DO
    Kita coba membuat program sebagaimana contoh kasus pada point di atas:

    Contoh :
     Var  i : byte;

    Begin
                FOR i:=1 TO 10 DO
                Begin
                            IF i mod 2 <> 0 THEN ELSE writeln(‘angka : ‘,i ,’adalah ganjil’)
    End;
    End.


    3.2.            PENGENALAN looping WHILE DO
    Kompetensi :
    3.2.1        Mengapa kita gunakan While Do
    3.2.2        Bagaimana hierarki While Do
    3.2.3        Bagaimana cara menulis While Do

    Materi :
    3.2.1        Mengapa kita gunakan While Do
    Perulangan While Do ini adalah perulangan proses sampai dengan. Bedanya dengan For To Do, batasan akhir atau awal ditentukan jelas, namun untuk While Do ini batasan dapat dilakukan dengan kondisi atau rumus tertentu.

    Sehingga perulangan ini dapat digunakan untuk menentukan batasan yang kita sendiri belum jelas jumlahnya.

    Contoh1 :
    Dari deret angka 1 s/d 100, berapa jumlah angka yang dapat dibagi 5.

    Contoh2:
    Berapa nilai penyusutan barang selama 5 tahun, jika diketahui bahwa per bulannya terjadi penyusutan sebesar 2%.

    3.2.2        Bagaimana hierarki While Do

    WHILE ekspresi DO statement

    WHILE ekspresi DO
    Begin
                Statemen1;
                Statemen2;
                Statement.....
    End;

    3.2.3        Bagaimana cara menulis While Do
    Sebagaimana kasus di atas, maka cara menulis While Do adalah sebagai berikut :

    Contoh1 :

    Var i, x : integer
    Begin
              i := 1;
    x:=0;
    WHILE  i = 100  DO
    Begin
              IF i mod 5 <>0 then
    Begin
    i:=i+1;
    else
    X :=x+1;
    i:=i+1;
    End;
    End;
    Writeln(‘Jumlah : ‘, x);
    End.



    Contoh 2:
    Var  i,susut:real;
    Begin
                While i
    End;