TERUS BERBAGI UNTUK INDONESIA TERCINTA

Rabu, 18 September 2013

JEJARING SOSIAL TERPOPULER DI DUNIA



Saat membaca tugas yang dikumpulkan oleh para siswa, ada sedikit ganjalan yang menggelitik di benak saya. Kenapa dari semua siswa ketika mereka di ajak untuk bercerita tentang pengalamannya menggunakan internet kesemuanya memiilih facebook  dan twitter sebagai bahasan utamanya. Kenapa mereka tidak mencoba untuk menggali lebih dalam lagi tentang manfaat internet? Padahal ada banyak sekali manfaat internet yang bisa mereka dapatkan selain bermain di social media. Tapi namanya juga anak - anak, kita wajib untuk terus mengarahkan mereka supaya bisa lebih mencintai pelajaran apapun, salah satunya adalah internet. Nah buat para siswa yang masih suka update statusnya tiap detik, berikut adalah beberapa social media yang sedang populer di dunia. Semoga ini bisa menginpirasi kalian para siswa khususnya untuk tidak hannya puas menjadi pengguna, tetapi juga berusaha untuk membuat jejaring sosial sendiri.


Rabu, 27 Maret 2013

MATERI ULANGAN TENGAH SEMESTER GENAP

Diberitahukan kepada seluruh siswa - siswi SMP Negeri 1 Ponorogo, bahwa kegiatan mid semester akan di selenggarakan pada tanggal 1 sampai dengan 5 april 2013. Materi TIK / PTD untuk kelas VII adalah Ms. Excel mulai dari pengenalan Ms. excel hingga penggunaan Fungsi If String And Or, sedangkan untuk materi kelas VIII adalah Pascal mulai dari pengenalan Pascal hingga penggunan Fungsi If Than Else dan For To Do.
Besar harapan Bu Crysna anak - anak bisa mempersiapkan diri dengan sebaik - baiknya. Tidak lupa tetap menjunjung tinggi nilai kejujuran, karena ulangan adalah alat ukur kalian dalam belajar dan alat ukur guru dalam mengajar. Mudah - mudahan semua siswa dapat mencapai hasil yang maksimal...amin...

Rabu, 13 Maret 2013

DOWNLOAD LISTING PROGRAM PASCAL

Assalamu'alaikum saudara2 ku semua...mudah2an kita selalu diberi kesempatan untuk terus belajar, berbagi dan mengabdi....Amin... 
Baiklah saudara2 ku semuanya, kali ini saya akan memberikan sedikit hasil utak utik saya mengenai pascal tingkat dasar, dimana semua listing program ini Insya Allah sudah saya jelaskan kepada para siswa saya di SMPN 1 Ponorogo, dan hasilnya Alhamdulillah mereka dapat membuat program dari kasus2 yang saya berikan selama pelajaran dengan hasil memuaskan. Namun listing program pascal di bawah ini memang sangatlah sederhana, karena diberikan untuk siswa smp yang mengedepankan pemahaman konsep. Tapi semoga dengan konsep pemrograman dasar yang mantap, diharapkan ke depan para siswa bisa menjadi programmer yang handal yang mampu bersaing di dunia komputer internasional. Amin...
Berikut akan saya berikan link yang dapat saudara2 ku download, mudah2an dapat bermanfaat bagi kita semua. Amin. Insya Allah ke depan akan saya postingkan lagi hasil utak utik saya berikutnya. 
SILAHKAN DI DOWNLOAD...(jangan lupa kritik dan sarannya ya saudara2 ku...terima kasih...)

Pascal Tingkat Dasar :
1.  Penjumlahan Bilangan
2.  Perkalian Bilangan
3.  Pembagian Bilangan
4.  Menghitung Luas Segitiga
5.  Menghitung Luas Persegi Panjang
6.  Menghitung Luas Lingkaran
7.  Menghitung Luas Layang - Layang
8.  Menghitung Luas Belah Ketupat
9.  Konversi Menit
10. Konversi Detik
11. Menghitung Selisis Usia

Pascal dengan menggunakan Fungsi If Then Else :
1.  Menghitung Diskon Belanja
2.  Memberi Predikat Keterlambatan
3.  Memberi Keterangan Nilai
4.  Memberi Predikat Kelulusan
5.  Memberi Keterangan Bilangan

Pascal dengan menggunakan Fungsi Case Of :
1.  Memberi Predikat Usia

Pascal dengan menggunakan Fungsi For To Do :
1.  Penjumlahan Bilangan Statis
2.  Penjumlahan Bilangan Dinamis
3.  Data Siswa


Minggu, 24 Februari 2013

DAMPAK PEMANASAN GLOBAL BAGI KESEHATAN

Pemanasan global (Global Warming) memberi dampak pada berbagai aspek kehidupan manusia, termasuk pada bidang kesehatan. The Washington Post menggambarkannya dalam sebuah diagram yang menarik:


Pada gambar di atas, kita dapat melihat bagaimana pemanasan global akan mempengaruhi perubahan lingkungan seperti: perubahan cuaca dan lautan, pergeseran ekosistem dan degradasi lingkungan.
Perubahan cuaca dan lautan dapat berupa peningkatan temperatur secara global (panas) yang dapat mengakibatkan munculnya penyakit-penyakit yang berhubungan dengan panas (heat stroke) dan kematian, terutama pada orang tua, anak-anak dan penyakit kronis. Temperatur yang panas juga dapat menyebabkan gagal panen sehingga akan muncul kelaparan dan malnutrisi. Perubahan cuaca yang ekstrem dan peningkatan permukaan air laut akibat mencairnya es di kutub utara dapat menyebabkan penyakit-penyakit yang berhubungan dengan bencana alam (banjir, badai dan kebakaran) dan kematian akibat trauma. Timbulnya bencana alam biasanya disertai dengan perpindahan penduduk ke tempat-tempat pengungsian dimana sering muncul penyakit, seperti: diare, malnutrisi, defisiensi mikronutrien, trauma psikologis, penyakit kulit, dan lain-lain.
Pergeseran ekosistem dapat memberi dampak pada penyebaran penyakit melalui air (Waterborne diseases) maupun penyebaran penyakit melalui vektor (vector-borne diseases). Mengapa hal ini bisa terjadi? Kita ambil contoh meningkatnya kejadian Demam Berdarah. Nyamuk Aedes aegypti sebagai vektor penyakit ini memiliki pola hidup dan berkembang biak pada daerah panas. Hal itulah yang menyebabkan penyakit ini banyak berkembang di daerah perkotaan yang panas dibandingkan dengan daerah pegunungan yang dingin. Namun dengan terjadinya Global Warming, dimana terjadi pemanasan secara global, maka daerah pegunungan pun mulai meningkat suhunya sehingga memberikan ruang (ekosistem) baru untuk nyamuk ini berkembang biak.
Degradasi Lingkungan yang disebabkan oleh pencemaran limbah pada sungai juga berkontribusi pada waterborne diseases dan vector-borne disease. Ditambah pula dengan polusi udara hasil emisi gas-gas pabrik yang tidak terkontrol selanjutnya akan berkontribusi terhadap penyakit-penyakit saluran pernafasan seperti asma, alergi, coccidiodomycosis, penyakit jantung dan paru kronis, dan lain-lain.
Demikian besar pengaruh pemanasan global terhadap kesehatan kita. Masihkah kita menutup mata terhadap semua ancaman ini? Lets take action now!

Rabu, 20 Februari 2013

PENGGUNAAN FUNGSI CASE OF PADA PASCAL

Assalamu'alaikum...udah jam 00.30 dini hari masih di depan laptop. Masih asik baca tutorial di internet, eh...jadi kepingin entry postingan lagi deh...
Para pembaca yang budiman, kali ini saya akan mencoba membahas tentang penggunaan fungsi case of di pascal. Sebenarnya fungsi case of hampir sama dengan if then else, hanya saja dengan menggunakan case of, listing program akan semakin singkat dan efisien. Bisa dibayangkan seandainya kita menggunakan permisalan dengan fungsi if, pasti akan sangat panjang sekali. Tetapi dengan menggunakan ada fungsi case of akan lebih singkat pekerjaan kita.
Berikut kasus dimana kita diminta untuk membuat predikat pada umur. Ada beberapa rentang umur dengan predikat tertentu. Untuk lebih jelasnya, silahkan anda lihat listing program di bawah ini :

program case_of_age;
uses crt;
var predikat:string;
    usia:byte;


begin
clrscr;
       write('TULISKAN USIA ANDA = ');
       readln(usia);
       case usia of
            0..1  :predikat:='baby';
            2..11 :predikat:='kid';
            12..17:predikat:='teenager';
            18..23:predikat:='young adult';
            24..39:predikat:='an adult';
            40..54:predikat:='middle age';
            55..64:predikat:='middle old';
       else
           predikat:='old';
       end;
           write('PREDIKAT USIA ANDA ADALAH = ',predikat);
           readln;
end.


Demikian tadi bahasan kita tentang penggunaan fungsi case of. Semoga bermanfaat dan sampai ketemu lagi di bahasan berikutnya.

Selasa, 19 Februari 2013

IF THEN ELSE pada Pascal

Assalamu'alaikum...ketemu lagi...masih seneng main - main dengan Pascal kan?
Para pembaca yang budiman, pada kesempatan kali ini kita akan membahas tentang penggunaan fungsi IF THEN ELSE pada Pascal. Pada dasarnya fungsi ini menggunakan logika yang hampir sama dengan kasus dalam Excel, namun dengan menggunakan bahasa yang berbeda. Sebagai contohnya kita akan membuat sebuah program untuk memberikan keterangan pada sebuah kasus menghitung diskon.

Senin, 18 Februari 2013

AYO MENGENAL PASCAL


Struktur Program Pascal
Struktur dari suatu program Pascal terdiri dari sebuah judul program (program heading) dan suatu blok program (program block) atau badan program (body program). Blok program dibagi menjadi dua bagian, yaitu bagian deklarasi (declaration part) dan bagian pernyataan (statement part). Bagian Deklarasi dapat terdiri dari deklarasi label (labels declaration), deklarasi konstanta (constants declaration), deklarasi tipe (type declaration), deklarasi variabel (variables declaration), deklarasi prosedur (procedures declaration) dan deklarasi fungsi (function declaration). Secara ringkas, struktur suatu program Pascal dapat terdiri dari:
1. Judul Program
2. Blok Program
a. Bagian Deklarasi
Deklarasi label
Deklarasi konstanta
Deklarasi tipe
Deklarasi variabel
Deklarasi prosedur
Deklarasi fungsi