Share 'n Learn

Belajar Bahasa Pemrograman Dasar C++

noreply@blogger.com (Serba Serbi Menggunakan Teknologi) — Fri, 25 Mar 2022 06:10:00 +0000

Bahasa C adalah bahasa pemrograman dasar yang sering dipakai dalam dunia pemrograman komputer. Disempurnakan kembali oleh para ahli untuk mendapatkan fasilitas lebih banyak sehingga disebut dengan C++.

Untuk beberapa perintah masih sama dengan yang digunakan oleh Bahasa C. Juga termasuk tentang aturan tipe data dan variabel.

Apa saja sih Tipe data yang dimaksud dan digunakan dalam Bahasa Pemrograman C++?

Tipe Data akan dipanggil dan disebutkan untuk mengisi Variabel dan Konstanta

Apa itu Variabel dan Konstanta?

Ilustrasi Deklarasi Variabel

Keranjang = Variable

tumpukan baju = nilai

Artinya: Keranjang dipakai untuk menyimpan tumpukan baju

Aturan Variable:

Terdiri dari kombinasi huruf, angka, dan underscore ().
Tidak boleh dimulai dengan angka.
Huruf kapital dan huruf kecil dianggap berbeda. Artinya “a1” dan ‘a1’ dianggap merupakan dua variable yang berbeda.
Tidak boleh menggunakan Bahasa perintah yang dipakai dalam program. contoh: pada c++; int, if, while, for, atau switch.
Tidak boleh menggunakan spasi (karakter putih).
Penamaan konstanta dan variabel sebaiknya mencerminkan nilai yang dikandungnya.

Contoh penamaan variable yang benar:

Ali, Felix, Andr34s

Contoh penamaan variable yang salah:

1Ali, #Felix, d!na

Contoh Penulisan dalam Pseudocode:

MEMBUAT KONSTANTA

Pseudocode : CONSTANT phi = 3.14

MEMBUAT VARIABEL

Pseudocode : DECLARE r = 30

KONSEP VARIABEL dan KONSTANTA

Konstanta dan variabel hanya menyimpan data secara sementara (Volatile / disimpan dalam RAM)
Nilai konstanta tidak dapat diubah selama program dijalankan, sedangkan nilai variabel dapat diubah selama program dijalankan.
Konstanta dan variabel hanya dapat menyimpan satu data
Nilai yang diambil dari suatu konstanta dan variabel adalah nilai yang terakhir

Nilai yang diakui dari suatu konstanta dan variabel adalah nilai yang terakhir

Contoh:

X yang diakui adalah x terakhir, yaitu berisi angka 50.

Nah, sekarang kita bahas tipe-tipe data yang dipakai dalam Variabel dan Konstanta yuk.

Ibaratnya kita punya keranjang baju yang akan kita isi pakaian. Pakaian bisa berupa: baju atasan, bisa celana, bisa juga sarung dan kain lainnya.

Nah... pakaian yang macam-macam itulah yang kita sebut dengan Tipe Data

yuk simak di link berikut ini Tipe Data dalam C++.

Tipe Data di dalam Variabel

Tipe data digunakan untuk merepresentasikan nilai suatu data (sesuai dengan bahasa pemrograman yang digunakan)

1. Bilangan Bulat (integer)

Tipe bilangan ini Dipakai untuk menyatakan bilangan yang tidak mempunyai pecahan desimal, misalnya 34, 8, 1203, -7, 4324553, dll.

2. Bilangan Pecahan

Bilangan riil (floating point) = Dipakai untuk menyatakan bilangan yang mempunyai pecahan desimal, misalnya 3.65, 0.0045, 29.0, dll.

3. Karakter / Teks

Karakter dipakai untuk menyatakan simbol (angka,huruf, special character).Teks merupakan Kumpulan dari karakter.

4. Boolean : true/ false

Dipakai untuk menyatakan nilai Benar/True/1 atau Salah/False/0.

Operator-operator Pemrograman

Merupakan Simbol yang digunakan untuk operasi data tertentu selama eksekusi program.

JENIS OPERATOR SECARA UMUM

1. Operator Penugasan

Digunakan untuk memberikan nilai ke dalam variable

X = 2, artinya nilai 2 dimasukkan ke variable X

2. Operator Aritmatika

Digunakan untuk operasi perhitungan

Operator	Operasi
+	Penjumlahan
-	Pengurangan
*	Perkalian
/	Pembagian
%	Sisa Pembagian
++	Penambahan dengan 1
--	Pengurangan dengan 1

3. Operator Pembanding

Simbol yang dipakai untuk membandingkan dua nilai/ variabel dan hasilnya adalah TRUE atau FALSE

Operator	Operasi
<	Kurang dari
>	Lebih dari
<=	Kurang dari sama dengan
>=	Lebih dari sama dengan
==	Sama dengan
!=	Tidak sama dengan

4. Operator Logika

Simbol yang dipakai untuk membandingkan dua ekspresi/ ungkapan boolean dan hasilnya adalah TRUE atau FALSE

Operator	Operasi
&&	AND
\|\|	OR
!	NOT

TABEL KEBENARAN

A	B	A && B	A \| \| B	!(A)	!(B)
B	B	B	B	S	S
B	S	S	B	S	B
S	B	S	B	B	S
S	S	S	S	B	B

Disalin dari Modul Pembelajaran Informatika Kelas X Semester 2

Belajar bisa dimana saja, kapan saja, dengan siapa saja. yuk mampir belajar juga dari pengalaman dan cerita di http://www.ruangaksaraku.com.

Latihan

Buatlah algoritma dan bahasa pemrograman C++ yang membutuhkan minimal 3 variabel, misalkan menghitung volume atau luas suatu bidang.

Tentukan contoh inputan dan keluarannya!

Untuk Siswa SMABOY kumpulkan di Teams sesuai kelas Anda ya.

Semoga bermanfaat

Cara Menggunakan Multimeter Analog

noreply@blogger.com (Serba Serbi Menggunakan Teknologi) — Mon, 23 Sep 2013 04:16:00 +0000

Multimeter sering disebut AVOmeter atau multitester, ada dua jenis AVO meter yaitu Analog dan Digital. Alat ini biasa dipakai untuk mengukur harga resistansi (tahanan), tegangan AC (Alternating Current), tegangan DC (Direct Current), dan arus DC. Bagian-bagian multimeter analog seperti ditunjukkan gambar di bawah ini:

Cara Menggunakan Multimeter Analog

Dari gambar multimeter dapat dijelaskan bagian-bagian dan fungsinya:

1. Sekrup pengatur kedudukan jarum penunjuk (Zero Adjust Screw), berfungsi untuk mengatur kedudukan jarum penunjuk dengan cara memutar sekrupnya ke kanan atau ke kiri dengan menggunakan obeng pipih kecil.

2. (2) Tombol pengatur jarum penunjuk pada kedudukanzero (Zero Ohm Adjust Knob), berfungsi untuk mengatur jarum penunjuk pada posisi nol. Caranya : saklar pemilih diputar pada posisi W (Ohm), test lead + (merah dihubungkan ke test lead €“ (hitam), kemudian tombol pengatur kedudukan 0 W diputar ke kiri atau ke kanan sehingga menunjuk pada kedudukan 0 W.

3. Saklar pemilih (Range Selector Switch), berfungsi untuk memilih posisi pengukuran dan batas ukurannya. Multimeter biasanya terdiri dari empat posisi pengukuran, yaitu :

4. Cara Menggunakan Multimeter Analog

5. Posisi W (Ohm) berarti multimeter berfungsi sebagai ohmmeter, yang terdiri dari tiga batas ukur : x 1; x 10; dan K W

6. Posisi ACV (Volt AC) berarti multimeter berfungsi sebagai voltmeter AC yang terdiri dari lima batas ukur : 10; 50; 250; 500; dan 1000.

7. Posisi DCV (Volt DC) berarti multimeter berfungsi sebagai voltmeter DC yang terdiri dari lima batas ukur : 10; 50; 250; 500; dan 1000.

8. Posisi DCmA (miliampere DC) berarti multimeter berfungsi sebagai mili amperemeter DC yang terdiri dari tiga batas ukur : 0,25; 25; dan 500.

9. Tetapi ke empat batas ukur di atas untuk tipe multimeter yang satu dengan yang lain batas ukurannya belum tentu sama.

10. Lubang kutub + (V A W Terminal), berfungsi sebagai tempat masuknya test lead kutub + yang berwarna merah.

11. Lubang kutub €“ (Common Terminal), berfungsi sebagai tempat masuknya test lead kutub – yang berwarna hitam.

12. Saklar pemilih polaritas (Polarity Selector Switch), berfungsi untuk memilih polaritas DC atau AC.

13. Kotak meter (Meter Cover), berfungsi sebagai tempat komponen-komponen multimeter.

14. Jarum penunjuk meter (Knife €“edge Pointer), berfungsi sebagai penunjuk besaran yang diukur.

15. Skala (Scale), berfungsi sebagai skala pembacaan meter.

16. Adapun cara pemakaian multimeter adalah pertama-tama jarum penunjuk meter diperiksa apakah sudah tepat pada angka 0 pada skala DCmA , DCV atau ACV posisi jarum nol di bagian kiri (lihat gambar 3a), dan untuk skala ohmmeter posisi jarum nol di bagian kanan (lihat gambar 3b). Jika belum tepat harus diatur dengan memutar sekrup pengatur kedudukan jarum penunjuk meter ke kiri atau ke kanan dengan menggunakan obeng pipih (-) kecil.

Kedudukan Normal Jarum Penunjuk Meter

BELAJAR MENGGUNAKAN MULTIMETER

REF#3

Seperti yang kita ketahui multimeter adalah alat ukur untuk mengukur arus listrik, tegangan, dan resistansi. Multimeter ada dua, yaitu multimeter analog dan digital. Tentu multimeter analog dapat mengukur lebih akurat dan lebih mudah digunakan daripada multi meter analog. Banyak orang yang masih merasa bingung dalam menggunakan alat tersebut dikarenakan buku panduan yang disertakan dalam pembelian terlalu simpel ataupun masih menggunakan bahasa inggris atau bahasa cina. Berikut artikel yang saya ambil tentang bagaimana cara menggunakan alat multimeter

Bentuk dari multimeter analog yang sering kita lihat adalah seperti yang ada disamping

Cara menggunakan Multimeter:
Mengukur tegangan DC

Atur Selektor pada posisi DCV.
Pilih skala batas ukur berdasarkan perkiraan besar tegangan yang akan di cek, jika tegangan yang di cek sekitar 12Volt maka atur posisi skala di batas ukur 50V.
Untuk mengukur tegangan yang tidak diketahui besarnya maka atur batas ukur pada posisi tertinggi supaya multimeter tidak rusak.
Hubungkan atau tempelkan probe multimeter ke titik tegangan yang akan dicek, probe warna merah pada posisi (+) dan probe warna hitam pada titik (-) tidak boleh terbalik.
Baca hasil ukur pada multimeter.

Mengukur tegangan AC

Atur Selektor pada posisi ACV.
Pilih skala batas ukur berdasarkan perkiraan besar tegangan yang akan di cek, jika tegangan yang di cek sekitar 12Volt maka atur posisi skala di batas ukur 50V.
Untuk mengukur tegangan yang tidak diketahui besarnya maka atur batas ukur pada posisi tertinggi supaya multimeter tidak rusak.
Hubungkan atau tempelkan probe multimeter ke titik tegangan yang akan dicek. Pemasangan probe multimeter boleh terbalik.
Baca hasil ukur pada multimeter.

Mengukur kuat arus DC

Atur Selektor pada posisi DCA.
Pilih skala batas ukur berdasarkan perkiraan besar arus yang akan di cek, misal : arus yang di cek sekitar 100mA maka atur posisi skala di batas ukur 250mA atau 500mA.
Perhatikan dengan benar batas maksimal kuat arus yang mampu diukur oleh multimeter karena jika melebihi batas maka fuse (sekring) pada multimeter akan putus dan multimeter sementara tidak bisa dipakai dan fuse (sekring) harus diganti dulu.
Pemasangan probe multimeter tidak sama dengan saat pengukuran tegangan DC dan AC, karena mengukur arus berarti kita memutus salah satu hubungan catu daya ke beban yang akan dicek arusnya, lalu menjadikan multimeter sebagai penghubung.
Hubungkan probe multimeter merah pada output tegangan (+) catu daya dan probe (-) pada input tegangan (+) dari beban/rangkaian yang akan dicek pemakaian arusnya.
Baca hasil ukur pada multimeter.

Mengukur nilai hambatan sebuah resistor tetap

Atur Selektor pada posisi Ohmmeter.
Pilih skala batas ukur berdasarkan nilai resistor yang akan diukur.
Batas ukur ohmmeter biasanya diawali dengan X (kali), artinya hasil penunjukkan jarum nantinya dikalikan dengan angka pengali sesuai batas ukur
Hubungkan kedua probe multimeter pada kedua ujung resistor boleh terbalik.
Baca hasil ukur pada multimeter, pastikan nilai penunjukan multimeter sama dengan nilai yang ditunjukkan oleh gelang warna resistor.

Mengukur nilai hambatan sebuah resistor variabel (VR)

Atur Selektor pada posisi Ohmmeter.
Pilih skala batas ukur berdasarkan nilai variabel resistor (VR)yang akan diukur.
Batas ukur ohmmeter biasanya diawali dengan X (kali), artinya hasil penunjukkan jarum nantinya dikalikan dengan angka pengali sesuai batas ukur.
Hubungkan kedua probe multimeter pada jedua ujung resistor boleh terbalik.
Sambil membaca hasil ukur pada multimeter, putar/geser posisi variabel resistor dan pastikan penunjukan jarum multimeter berubah sesuai dengan putaran VR.

Mengecek hubung-singkat / koneksi

Atur Selektor pada posisi Ohmmeter.
Pilih skala batas ukur X 1 (kali satu).
Hubungkan kedua probe multimeter pada kedua ujung kabel/terminal yang akan dicek koneksinya.
Baca hasil ukur pada multimeter, semakin kecil nilai hambatan yang ditunjukkan maka semakin baik konektivitasnya.
Jika jarum multimeter tidak menunjuk kemungkinan kabel atau terminal tersebut putus.

Mengecek diode

Atur Selektor pada posisi Ohmmeter.
Pilih skala batas ukur X 1K (kali satu kilo = X 1000).
Hubungkan probe multimeter (-) pada anoda dan probe (+) pada katoda.
Jika diode yang dicek berupa led maka batas ukur pada X1 dan saat dicek, led akan menyala.
Jika multimeter menunjuk ke angka tertentu (biasanya sekitar 5-20K) berarti dioda baik, jika tidak menunjuk berarti dioda rusak putus.
Lepaskan kedua probe lalu hubungkan probe multimeter (+) pada anoda dan probe (-) pada katoda.
Jika jarum multimeter tidak menunjuk (tidak bergerak) berarti dioda baik, jika bergerak berarti dioda rusak bocor tembus katoda-anoda.

Mengecek transistor NPN

Atur Selektor pada posisi Ohmmeter.
Pilih skala batas ukur X 1K (kali satu kilo = X 1000).
Hubungkan probe multimeter (-) pada basis dan probe (+) pada kolektor .
Jika multimeter menunjuk ke angka tertentu (biasanya sekitar 5-20K) berarti transistor baik, jika tidak menunjuk berarti transistor rusak putus B-C.
Lepaskan kedua probe lalu hubungkan probe multimeter (+) pada basis dan probe (-) pada kolektor.
Jika jarum multimeter tidak menunjuk (tidak bergerak) berarti transistor baik, jika bergerak berarti transistor rusak bocor tembus B-C.
Hubungkan probe multimeter (-) pada basis dan probe (+) pada emitor.
Jika multimeter menunjuk ke angka tertentu (biasanya sekitar 5-20K) berarti transistor baik, jika tidak menunjuk berarti transistor rusak putus B-E.
Lepaskan kedua probe lalu hubungkan probe multimeter (+) pada basis dan probe (-) pada emitor.
Jika jarum multimeter tidak menunjuk (tidak bergerak) berarti transistor baik, jika bergerak berarti transistor rusak bocor tembus B-E.
Hubungkan probe multimeter (+) pada emitor dan probe (-) pada kolektor.
Jika jarum multimeter tidak menunjuk (tidak bergerak) berarti transistor baik, jika bergerak berarti transistor rusak bocor tembus C-E.
Note : pengecekan probe multimeter (-) pada emitor dan probe (+) padakolektor tidak diperlukan.

Mengecek transistor PNP

Atur Selektor pada posisi Ohmmeter.
Pilih skala batas ukur X 1K (kali satu kilo = X 1000).
Hubungkan probe multimeter (+) pada basis dan probe (-) pada kolektor.
Jika multimeter menunjuk ke angka tertentu (biasanya sekitar 5-20K) berarti transistor baik, jika tidak menunjuk berarti transistor rusak putus B-C.
Lepaskan kedua probe lalu hubungkan probe multimeter (-) pada basis dan probe (+) pada kolektor.
Jika jarum multimeter tidak menunjuk (tidak bergerak) berarti transistor baik, jika bergerak berarti transistor rusak bocor tembus B-C.
Hubungkan probe multimeter (+) pada basis dan probe (-) pada emitor.
Jika multimeter menunjuk ke angka tertentu (biasanya sekitar 5-20K) berarti transistor baik, jika tidak menunjuk berarti transistor rusak putus B-E.
Lepaskan kedua probe lalu hubungkan probe multimeter (-) pada basis dan probe (+) pada emitor.
Jika jarum multimeter tidak menunjuk (tidak bergerak) berarti transistor baik, jika bergerak berarti transistor rusak bocor tembus B-E.
Hubungkan probe multimeter (-) pada emitor dan probe (+) pada kolektor.
Jika jarum multimeter tidak menunjuk (tidak bergerak) berarti transistor baik, jika bergerak berarti transistor rusak bocor tembus C-E.
Note : pengecekan probe multimeter (+) pada emitor dan probe (-) pada kolektor tidak diperlukan.

Mengecek Kapasitor Elektrolit (Elko)

Atur Selektor pada posisi Ohmmeter.
Pilih skala batas ukur X 1 untuk nilai elko diatas 1000uF, X 10 untuk untuk nilai elko diatas 100uF-1000uF, X 100 untuk nilai elko 10uF-100uF dan X 1K untuk nilai elko dibawah 10uF.
Hubungkan probe multimeter (-) pada kaki (+) elko dan probe (+) pada kaki (-) elko.
Pastikan jarum multimeter bergerak kekanan sampai nilai tertentu (tergantung nilai elko) lalu kembali ke posisi semula.
Jika jarum bergerak dan tidak kembali maka dipastikan elko bocor.
Jika jarum tidak bergerak maka elko kering / tidak menghantar.

Multimeter Rating: 3.5 Reviewer:SAMBORES ItemReviewed: Belajar Menggunakan Multimeter

Terimakasih telah membaca artikel tentang Belajar Menggunakan MultimeterKalian bisa menemukan artikel Belajar Menggunakan Multimeter ini dengan urlhttp://sambores.blogspot.com/2012/11/belajar-menggunakan-multimeter.html. Kalian boleh menyebar luaskannya atau mengcopy paste-nya jika artikel Belajar Menggunakan Multimeter ini bermanfaat bagi teman-teman, namun jangan lupa untuk meletakkan link Belajar Menggunakan Multimeter sebagai sumbernya.

Fakta Ilmiah Mengenai Efek Biologis dari Fluoride

noreply@blogger.com (Serba Serbi Menggunakan Teknologi) — Sun, 09 Jun 2013 14:30:00 +0000

Fluoride dalam air minum pada awalnya ditambahkan pada tahun 1940 untuk mencegah kerusakan gigi. Studi terbaru menunjukkan bahwa fluoride menyebabkan fluorosis gigi pada 10% dari populasi. Dampak fluoride bahkan lebih mengkhawatirkan daripada apa yang hanya terjadi di gigi. Penelitian juga menghubungkan flouride ke peningkatan risiko kanker (terutama kanker tulang) masalah mutasi gen reproduksi, neurotoksisitas (hiper atau depresi) dan fluorosis tulang (penurunan kepadatan).

Bahkan, pada tahun 1999, EPA's Headquarters Union of Scientists mengambil sikap menentang fluoridasi dalam air minum. Fluoride yang digunakan dalam fluoridasi air tidak memiliki persetujuan FDA dan dianggap oleh FDA sebagai "obat yang belum disetujui". Penggunaan yang tepat dari obat apa pun membutuhkan pemahaman tentang berapa kadar yang diperbolehkan. Karena fluoride sudah ditambahkan dalam banyak makanan dan minuman, sebuah estimasi jumlah total asupan fluoride yang ada adalah suatu keharusan. Penelitian menunjukkan bahwa fluoridasi tidak perlu, karena kita sudah menerima 300% bahkan lebih dari jumlah harian yang direkomendasikan American Dental Association.

1. Paparan fluoride mengganggu sintesis kolagen dan menyebabkan kerusakan kolagen pada tulang, tendon, otot, kulit, tulang rawan, paru-paru, ginjal dan trakea.

A.K. Susheela dan Mohan Jha, "Pengaruh Fluorida pada Komposisi kortikal dan cancellous tulang," IRCS Medical Sciences: Library Compendium, Vol. 9, No.11, pp. 1021-1022 (1981); YD Sharma, "Pengaruh Sodium Fluoride pada Berbagai pemicu cross-link Kolagen," Toxicological Letters, Vol. 10, pp. 97-100 (1982); AK Susheela dan D. Mukerjee, "Keracunan Fluoride dan Pengaruh Biosintesis Kolagen pada Jaringan Osseus dan Nonosseous," European Research Toksikologi, Vol. 3, No.2, hlm 99-104 (1981); Y.D. Sharma, "Variasi dalam Metabolisme dan Pematangan Kolagen setelah Konsumsi Fluoride,"Biochemica et Biophysica Acta, Vol. 715, hlm 137-141 (1982); Marian Drozdz dkk, "Studi tentang Pengaruh Senyawa Fluoride pada Metabolisme Jaringan ikat dalam Pertumbuhan Tikus" dan "Pengaruh Sodium Fluoride Dengan dan Tanpa Paparan simultan ke Hidrogen Fluorida pada Metabolisme Kolagen,"Journal of Medicine Toksikologi, Vol. 4, hlm 151-157 (1984).

2. Fluoride merangsang pembentukan granula serta konsumsi oksigen dalam sel darah putih, tetapi menghambat proses ini ketika sel darah putih menghadapi serangan dari agen asing dalam darah.

Robert A. Clark, "Reaksi iodinasi neutrofil diinduksi oleh Fluoride: Implikasi bagi degranulasi dan aktivasi metabolik," Blood, Vol. 57, pp. 913-921 (1981).

3. Fluoride menguras cadangan energi dan kemampuan sel darah putih untuk menghancurkan agen-agen asing dengan baik melalui proses fagositosis. Sekecil 0,2 ppm fluoride sudah dapat merangsang produksi superoksida dalam sel darah putih, yang hampir menghapuskan fagositosis. Bahkan sejumlah mikro-molar fluoride, di bawah 1 ppm, mungkin secara serius menekan kemampuan sel darah putih untuk menghancurkan agen patogen.

John Curnette, et al, "Aktivasi semburan pernapasan Neutrofil pada Manusia yang dimediasi Fluoride," Journal of Clinical Investigation, Vol. 63, hlm 637-647 (1979); WL Gabler dan PA Leong,, "Penghambatan Leukosit Polymorphonumclear oleh Fluoride," Journal of Dental Research, Vol. 48, No 9, hal 1933-1939 (1979), WL Gabler, dkk, "Pengaruh Fluoride pada Pembangkitan Kinetika Superoksida oleh Fluoride," Journal of Dental Research, Vol.. 64, hal. 281 (1985); A. S. Kozlyuk, et al, "Status kekebalan Anak di Lingkungan Terkontaminasi Zat Kimia," Zdravookhranenie, Edisi 3, hlm 6-9 (1987).

4. Fluoride membingungkan sistem kekebalan tubuh dan menyebabkan ia menyerang jaringan tubuh sendiri, dan meningkatkan tingkat pertumbuhan tumor pada individu rentan kanker.

Alfred Taylor dan Nell C. Taylor, "Pengaruh Sodium Fluoride pada Pertumbuhan Tumor," Proceedings of the Society for Experimental Biology and Medicine, Vol. 119, p. 252 (1965); Shiela Gibson, "Pengaruh Fluoride pada Fungsi Sistem Kekebalan," Complementary Medical Research, Vol. 6, hlm. 111-113 (1992); Peter Wilkinson, "Penghambatan Sistem Kekebalan pada Fluorida Tingkat Rendah," Kesaksian untuk Pengadilan Tinggi Skotlandia di Edinburgh dalam Kasus McColl vs Strathclyde Regional Council, hlm 17.723 - 18.150, 19.328-19.492, DW Allman dan M. Benac, "Pengaruh Garam anorganik Fluoride pada Urine dan siklik Konsentrasi AMP di Vivo," Journal of Dental Research, Vol. 55 (Tambahan B), hlm. 523 (1976), S. Jaouni dan DW Allman, "Pengaruh Sodium Fluoride dan Aluminium pada Aktivitas Adenylate Cyclase dan phosphodiesterase," Journal of Dental Research, Vol. 64, hal. 201 (1985).

5. Fluoride menghambat pembentukan antibodi dalam darah.

SK Jain dan AK Susheela, "Pengaruh Sodium Fluoride terhadap Pembentukan antibodi pada Kelinci," Environmental Research, Vol. 44, hlm 117-125 (1987).

6. Fluoride menekan aktivitas tiroid.

Viktor Gorlitzer Von Mundy, "Pengaruh Fluorin dan yodium pada proses metabolisme, Terutama di Gland Thyroid," Muenchener Medicische Wochenschrift, Vol. 105, hlm 182-186 (1963), A. Benagiano, "Pengaruh Sodium Fluoride pada Enzim dan Metabolisme Basal tiroid pada Tikus," Annali Di Stomatologia, Vol. 14, hlm 601-619 (1965); Donald Hillman, et al, "Hypothyroidism dan Anemia Terkait dengan fluoride pada Sapi Perah,"Journal of Dairy Science, Vol. 62, No.3, hlm,416-423 (1979), V. Stole dan J. Podoba, "Pengaruh Fluoride pada Biogenesis Hormon Tiroid," Nature, Vol. 188, No 4753, hlm 855-856 (1960); Pierre Galleti dan Gustave Joyet, "Pengaruh Fluor pada Metabolisme Yodium tiroid dan Hipertiroidisme,"Journal of Clinical Endokrinologi dan Metabolisme, Vol. 18, hlm 1102-1110 (1958).

7. Fluorida memiliki efek mengganggu pada berbagai jaringan dalam tubuh.

T. Takamorim "Perubahan jantung pada pertumbuhan Tikus Albino yang diberi makan variasi Fluorin," Simposium Toksikologi dari Fluorin, Bern, Swiss, Oktober 1962, hlm 125-129, Vilber AO Bello dan Hillel J. Gitelman, "Paparan Tinggi Fluoride pada Pasien Hemodialisis," American Journal of Kidney Diseases, Vol. 15, hlm 320-324 (1990), Y. Yoshisa, "Studi Eksperimental pada Keracunan Fluorin kronis," Japanese Journal of Industrial Health, Vol. 1, hlm 683-690 (1959).

8. Fluoride meningkatkan perkembangan kanker tulang.

J.K. Mauer, et al., "Kajian Dua Tahun karsinogenik Sodium Fluoride pada Tikus," Journal of National Cancer Institute, Vol. 82, hlm 1118-1126 (1990),Proctor and Gamble "Studi Karsinogenik dengan Sodium Fluoride pada Tikus"Presentasi untuk National Institute of Environmenrtal Health Sciences, 27 Juli, 1985;. SE Hrudley et al, "Fluoridasi Air Minum dan Osteosarkoma,"Canadian Journal of Public Health, Vol. 81, hlm 415-416 (1990), PD Cohn,"Laporan Singkat tentang Fluoridasi Asosiasi Air Minum dan Insiden Osteosarcoma pada Pria muda," New Jersey Department of Health, Trenton, New Jersey,, November 1992; MC Mahoney dkk., "Angka Insiden Kanker Tulang di New York," American Journal of Public Health, Vol. 81, hlm 81, 475 (1991), Irwin Herskowitz dan Isabel Norton, "Peningkatan Insiden Tumor Melanotic Setelah Terapi dengan Sodium Fluoride," Genetika Vol. 48, hlm 307-310 (1963), JA Disney, et al,. "Sebuah Studi Kasus dalam Pengujian Kebijakan konvensional: Program Bilas Mulut dengan Fluoride di Berbasis Sekolah di Amerika Serikat," Community Dentistry and Oral Epidemiology, Vol. 18, hlm 46-56 (1990), DJ Newell, "Fluoridasi dalam Air dan Kanker - Sebuah Asosiasi?," Applied Statistics, Vol. 26, No 2, hlm 125-135 (1977).

9. Fluoride menyebabkan penuaan dini pada tubuh manusia.

Nicholas Leone, et al., "Aspek Medis dari Fluoride yang berlebihan dalam Air Minum," Public Health Reports, Vol. 69, hlm 925-936 (1954); J. David Erikson, "Angka Kematian pada Beberapa Kota dengan fluoride dan tanpa fluoride pada Persediaan Air Minumnya," New England Journal of Medicine, Vol. 298, hlm 1112-1116 (1978); "Desa Dimana Masyarakatnya tua Sebelum Waktunya," Stern Magazine, Vol. 30, hlm 107-108, 111-112 (1978).

10. konsumsi Fluoride dari larutan kumur dan pasta gigi pada anak-anak sangat berbahaya bagi perkembangan biologis, rentang hidup dan kesehatan umum.

Yngve Ericsson dan Britta Forsman, "Sisa Fluoride Dari larutan kumur dan Pasta gigi Pada Anak Prasekolah," Caries Research, Vol. 3, hal 290-299 (1969), WL Augenstein, et al,. "Tertelan Fluoride Pada Anak: Suatu Tinjauan Dari 87 Kasus," Pediatrics, Vol. 88, hlm 907-912, (1991); Charles Wax, "Laporan Lapangan Investigasi," State of Maryland Department of Health and Mental Hygiene, 19 Maret 1980, 67 halaman; George Waldbott, "Intoxication massal pada Over-Fluoridasi di Air Minum." Clinical Toxicology, Vol. 18, No.5, hlm 531-541 (1981).

Fakta lain

Isi pasta gigi berfluoride ukuran keluarga sudah cukup untuk membunuh anak dengan berat 11,5 Kg.

Pada tahun 1991, Akron (Ohio) Regional Poison Center melaporkan bahwa "kematian telah dilaporkan setelah seorang anak menelan 16 mg/kg fluoride. Hanya 1/10 dari satu ons fluoride bisa membunuh orang dewasa dengan berat 45,5 Kg. Menurut Regional Poison Center," pasta gigi fluoride dapat berisi hingga 1 mg/gram fluoride. "Bahkan Proctor and Gamble, pembuat Crest, mengakui bahwa tabung pasta gigi berukuran keluarga secara teoritis mengandung cukup fluoride untuk membunuh seorang anak."

Fluorida telah digunakan untuk memodifikasi perilaku dan suasana hati manusia.

Ini adalah sedikit fakta bahwa senyawa fluoride yang ditambahkan ke dalam air minum tahanan dapat membuat mereka jinak dan mencegah mereka untuk memberontak, baik di kamp-kamp penjara Nazi dalam Perang Dunia II maupun di gulag Soviet di Siberia.

Fluorida secara medis dikategorikan sebagai racun protoplasma, itulah sebabnya mengapa mereka digunakan untuk membunuh tikus.

Journal of American Medical Association bertanggal 18 September 1943, menyatakan, "fluorida adalah racun protoplasma umum yang mengubah permeabilitas membran sel dengan menghambat enzim tertentu. Mekanisme yang tepat dari tindakan tersebut tidak jelas."

Fluoride meningkatkan tingkat kematian umum kanker.

Pada tahun 1975 Dr John Yiamouyiannis menerbitkan sebuah survei awal yang menunjukkan bahwa masyarakat di daerah fluoridasi memiliki tingkat kematian kanker yang lebih tinggi dibandingkan dengan daerah non-fluoridasi. The National Cancer Institute berusaha menyanggah studi. Kemudian pada tahun 1975 Yiamouyiannis bergabung dengan Dr. Dean Burk, kimiawan kepala National Cancer Institute (1939-1974) untuk melakukan penelitian lain yang kemudian dimasukkan dalam catatan kongres oleh anggota kongres Delaney, yang merupakan penulis asli dari Amandemen Delaney, yang melarang penambahan zat penyebab kanker pada makanan yang digunakan untuk konsumsi manusia.

sumber: http://www.info-kes.com/2013/04/fakta-ilmiah-mengenai-efek-biologis.html
baca juga: http://www.fluoridealert.org/
http://iebe03.wordpress.com/2011/11/15/bahaya-fluoride-dalam-air-minum-kemasan-dan-pasta-gigi/

Contoh Soal Pascal menggunakan perintah FOR segitiga bintang

noreply@blogger.com (Serba Serbi Menggunakan Teknologi) — Tue, 04 Jun 2013 14:40:00 +0000

1. uses crt;

2. var

3. i : integer;

4. begin

5. clrscr;

6. FOR i := 1 TO 5 DO

7. begin

8. FOR j := 1 TO i DO

9. write('*');

10. writeln;

11. end;

12. readln;

13. End.

Question for you

1. Apakah program tersebut Compiled Failed atau Compile Successfull jika dijalankan pada komputer?

2. Baris ke berapa sajakah yang menyebabkan Compiled Failed?

3. Apa yang perlu ditambahkan dan dibaris ke berapakah harus diletakkan?

4. Menurut Anda, Apa tampilan hasilnya (outputnya) jika program tersebut dijalankan di komputer?

5. Jelaskan ilustrasi proses dan hasil program tersebut!

Pembahasan

1. Compile Failed

2. baris ke 3 karena tidak dikenali j sebagai varibel

3. baris ke-3 perlu ditambah j hingga menjadi i,j : integer;

4. hasil di layar adalah

***

****

*****

5. ilustrasi prosesnya adalah

Kisi-Kisi UAS Kelas X Semester 2 2013

noreply@blogger.com (Serba Serbi Menggunakan Teknologi) — Sun, 02 Jun 2013 03:30:00 +0000

Kisi-Kisi UAS Kelas X Semester 2 2013

Manajemen File

Sistem Operasi,
BIOS & CMOS,
Shortcut menu,

Pascal

write vs writeln,
perintah dalam pascal,
sintaks FOR, While, Repeat, Array,
Cara penulisan perintah/ sintaks,
Cara kerja perintah

Pengolah kata Ms.Word

Page Setup,
Tabulasi,
Daftar Isi Otomatis vs Manual,
Page Number,
Header/ Footer,
Mail Merge,
Tabel,
Format Teks,
Drop Cap
Shortcut menu,

Contoh Soal Pascal menggunakan perintah FOR

noreply@blogger.com (Serba Serbi Menggunakan Teknologi) — Fri, 31 May 2013 14:32:00 +0000

penggunaan FOR TO DO bertingkat

1. uses crt;
2. var
3. i : integer;
4.
5. begin
6. clrscr;
7. FOR i := 1 TO 2 DO
8. begin
9. FOR j := 1 TO 3 DO
10. writeln(i,'-',j);
11.
12. end;
13.
14. readln;
15. End.

Question for you
1. Apakah program tersebut Compiled Failed atau Compile Successfull jika dijalankan pada komputer?
2. Baris ke berapa sajakah yang menyebabkan Compiled Failed?
3. Apa yang perlu ditambahkan dan dibaris ke berapakah harus diletakkan?
4. Menurut Anda, Apa tampilan hasilnya (outputnya) jika program tersebut dijalankan di komputer?
5. Jelaskan ilustrasi proses dari hasil program tersebut!

Pembahasan:

1. Compile Failed
2. sesuai tampilan di Compiler Messages, ada illegal counter variabel di baris 9
yaitu For J, dimana J belum dikenalkan dalam VAR

3. perlu tambahan pada VAR yaitu j : integer; atau i, j : integer;
4. 1-1
1-2
1-3
2-1
2-2
2-3
ini tampilan output dari layar FreePascal

5. alur/ algoritma dari program tersebut bisa dijelaskan seperti ini

ketika i = 1 maka j =1 dan writeln(i,'-',j) menghasilkan output 1-1 dan menciptakan kursor baru dibawah karena writeln;
!--- Ingat!!! i tidak akan berputar ke angka berikutnya bila j belum habis karena posisi j dibawah i
ketika i = 1 maka j =2 dan writeln(i,'-',j) menghasilkan output 1-2 dan menciptakan kursor baru dibawah
ketika i = 1 maka j =3 dan writeln(i,'-',j) menghasilkan output 1-3 dan menciptakan kursor baru dibawah

j nya sudah habis kan, baru deh jalankan i berikutnya

ketika i = 2 maka j =1 dan writeln(i,'-',j) menghasilkan output 2-1 dan menciptakan kursor baru dibawah karena writeln;
ketika i = 2 maka j =2 dan writeln(i,'-',j) menghasilkan output 2-2 dan menciptakan kursor baru dibawah
ketika i = 2 maka j =3 dan writeln(i,'-',j) menghasilkan output 2-3 dan menciptakan kursor baru dibawah

Contoh Soal Pascal menggunakan perintah WHILE .... DO

noreply@blogger.com (Serba Serbi Menggunakan Teknologi) — Tue, 28 May 2013 00:18:00 +0000

Perhatikan susunan algoritma dan program Pascal berikut

1. Uses crt;

2. Var

3. i : integer;

4. Begin

5. Clrscr;

6. i := A;

7. j := 0;

8. While i <= 5 do

9. Begin

10. inc(i);

11. writeln(i);

12. inc(j)

13. End;

14. Readln;

15. End.

Question for you

1. Apakah program tersebut Compiled Failed atau Compile Successfull jika dijalankan pada komputer?

2. Baris ke berapa sajakah yang menyebabkan Compiled Failed?

3. Apakah pengganti yang cocok untuk A?

4. Menurut Anda, Apa tampilan hasilnya (outputnya) (output) jika program tersebut dijalankan di komputer?

5. Jelaskan ilustrasi proses dari hasil program tersebut!

Good Luck ^_^

--------------------------

Perhatikan susunan algoritma dan program Pascal berikut

1. Uses crt;

2. Var

3. i : integer;

4. Begin

5. Clrscr;

6. i := A;

7. j := 0;

8. While i <= 5 do

9. Begin

10. inc(i);

11. writeln(i,'-',j);

12. inc(j)

13. End;

14. Readln;

15. End.

Question for you

1. Apakah program tersebut Compiled Failed atau Compile Successfull jika dijalankan pada komputer?

2. Baris ke berapa sajakah yang menyebabkan Compiled Failed?

3. Apakah pengganti yang cocok untuk A?

4. Menurut Anda, Apa tampilan hasilnya (outputnya) (output) jika program tersebut dijalankan di komputer?

5. Jelaskan ilustrasi proses dari hasil program tersebut!

Good Luck ^_^

Mengatur nomor halaman pada Makalah

noreply@blogger.com (Serba Serbi Menggunakan Teknologi) — Sun, 26 May 2013 21:57:00 +0000

Siapkan Makalah dengan susunan seperti gambar di atas SATU FILE tanpa nomor halaman
Klik halaman pertama (COVER) --> pilih menu INSERT --> Page Numbers --> pilih Bottom --> pilih Plain Number 2 (center)
Close Header & Footer. Cek nomor halaman, sudah ada
Double Klik pada Footer halaman Cover --> pada Tab menu DESIGN --> pilih Page Number --> Format Page Numbers --> pada pilihan Number Format pilih : i, ii, iii
klik halaman COVER --> pada tab menu DESIGN --> klik þ pada Different First Page ---> klik Close Header & Footer
cek halaman COVER tidak ada nomor halamannya
letakkan kursor di baris paling atas dan paling kiri pada halaman BAB 1 --> pilih menu tab Page Layout --> pilih Page Setup --> pada tab Layout --> klik þ pada Different First Page dan pilih Apply To : This Point Forward --> OK
Cek nomor halaman di BAB 1 hilang
klik halaman kedua dari Bab 1 --> pilih menu INSERT --> Page Numbers --> pilih Bottom --> pilih Plain Number 3 (kanan atas)
Close Header & Footer. Cek nomor halaman, sudah ada
Double Klik pada Footer halaman kedua dari BAB 1 --> pada Tab menu DESIGN --> matikan menu Link To Previous sambil diperhatikan tulisan Same as Previous hilang dari halaman tsb. kemudian hapus page number di bagian footer dan header (sesuai pilihan yg diinginkan/ tidak sama dgn daftar isi)
pilih Page Number --> Format Page Numbers --> pada pilihan Number Format pilih : 1,2,3 pada Start at: ketik 1
ulangi langkah 7 untuk halaman BAB 2 dan BAB 3,
ulangi langkah 12 untuk halaman kedua dari Bab 2 dan Bab 3,halaman Penutup sampai dengan pilihan Continues pada pilihan Page Number --> Format Page Numbers

Array dalam Pascal

noreply@blogger.com (Serba Serbi Menggunakan Teknologi) — Fri, 26 Apr 2013 13:00:00 +0000

Array = lemari data dengan jumlah rak tertentu, yang datanya dapat ditentukan sendiri berupa angka maupun string

ilustrasi array dengan nama Lemariku

rak ke-1

rak ke-2

rak ke-3

rak ke-4

rak ke-5

Contoh bila ingin membuat array, maka kita perlu memperkenalkan array dalam variabel (var).

misal array adalah lemari data yang berisi angka, maka cara memperkenalkannya adalah: Lemari : array [1..3] of integer;

integer adalah bentuk angka bilangan bulat, jadi array lemari di atas hanya bisa diisi angka

misal array adalah lemari data yang berisi string/angka yg tdk dpt dihitung, maka cara memperkenalkannya adalah:Lemari : array [1..3] of string;

string adalah bentuk data karakter/ tanda baca/angka yg tidak dihitung,

[1..3] maksudnya apa? [1..3] adalah cara kita menyebutkan nomor rak yang ada dalam lemari array mulai dari rak yang paling awal sampai dengan rak yang paling akhir.

bila jumlah rak pada array Lemari 100 buah rak maka cara menulisnya
Lemari : array [1..100] of integer;

Contoh Cara mengisi array Lemariku pada rak ke-1maka sintaksnya adalah

Lemariku[1] := A; atau Lemariku[x] := A; atau
Lemariku[3] := 10; --> artinya rak ke-3 pada array Lemari berisi angka 10

A dan x adalah variabel, A dan x dapat diganti dengan angka atau string tergantung pada tipe array-nya.

Contoh Program dengan Array

, ketikkan program berikut
uses crt;
var

Lemari : array[1..100] of integer;

i : integer;

Begin
Clrscr;

FOR i:= 1 to 5 do

begin

write('Lemari[',i,']= ',i+2);

Lemari[i] := i + 2; {cara mengisi rak dalam array}

End;

{-- menampilkan isi array seluruhnya--}

For i:=1 to 5 do

Writeln(lemari[i]);

Readln;
End.

hasilnya

maka ilustrasi hasil program Array tersebut adalah

ilustrasi array dengan nama Lemariku

rak ke-1
= 3

rak ke-2
= 4

rak ke-3
= 5

rak ke-4
= 6

rak ke-5
= 7

Cara menggunakan FreePascal

noreply@blogger.com (Serba Serbi Menggunakan Teknologi) — Fri, 26 Apr 2013 12:04:00 +0000

Bingung???

bagaimana sih cara belajar Pascal?

gak pernah dapat Pascal, tahu-tahu ikut olimpiade

apa sih Pascal itu? pastel aku tahu, itu makanan kesukaanku ditambah cabe rawit ijo bikin maknyuss hehehe

ini loh apa itu Pascal, baca yuk dan cintai ^_^

Bila Anda menggunakan FreePascal, maka langkah pertama yang dilakukan:

klik menu File - klik New (untuk menuliskan progam pertama Anda)

write --> dig. u/ menampilkan sesuatu ke layar pada baris yang sama dengan kursor aktif pada baris yang sama pula
writeLn --> dig. u/ menampilkan sesuatu k layar pada baris yang sama dengan kursor aktif pada baris berikutnya (di bawahnya)
PERINTAH write dan writeln selalu diawali dengan tanda buka kurung" ( " dan " ) " tutup kurung, bila yang dituliskan berupa teks maka perlu tanda petik satu '. Bila berupa variabel, maka cukup dibantu dengan menulikan variabelnya, contoh:write(nama) --> artinya menampilkan ke layar isi dari variabel nama.
read --> dig. utk membaca inputan dari keyboard
readLn --> dig. utk membaca inputan dari keyboard berupa pergantian baris,yaitu dgn menekan tombol ENTER

Ln = line --> digunakan untuk ganti baris

untuk menyimpan, klik menu File - Save

bila ingin menyimpan di drive D dengan nama file coba1 maka harus menuliskan --> d:coba1.pas

bila ingin menyimpan di drive Z dengan nama file coba1 maka harus menuliskan --> z:coba1.pas

F9 = perintah yang digunakan untuk mengecek kebenaran program, bila ada error muncul warning "compile failed", bila benar semua perintahnya muncul Compile Successfully

CTRL+F9 = untuk melihat hasil program, akan tampil di layar DOS warna hitam

STRUKTUR UMUM dalam PASCAL
uses crt;
var

p : integer;
luas : real;

begin
{isi program disini}
end.

uses crt, USES adalah perintah untuk memanggil unit (mirip seperti perintah copy pada Ms.Word). CRT adalah nama unitnya yg digunakan untuk menggunakan semua fungsi pada layar yaitu menampilkan teks ke layar dan menerima inputan teks dari keyboard.
apa itu UNIT,unit adalah bagian dari pabrik yang besar, ibaratkan Pascal adalah Pabrik Lumpia, ada unit/ bagian pabrik yang membuat kulit lumpia, ada unit/ bagian pabrik kecil yang membuat isi lumpia, ada unit/bagian pabrik yang membuat lumpia dengan melipat kulit yg diberi isi, ada unit/bagian pabrik yang menggoreng
VAR, digunakan untuk menuliskan bentuk persoalan seperti pada matematika, ada kalimat diketahui dan ditanyakan. contoh kita ingin menghitung luas persegi panjang, maka yang perlu diketahui adalah panjang (p) dan lebar(l), luas. dimana p, l dan luas harus berisi angka
Tipe data, Integer dan Real, p,l dan luas yang berisi angka harus dikategorikan bentuk angka apa yang dipakai, contoh bila p dapat berisi bilangan bulat, maka di pascal bilangan bulat disebut sebagai integer. Bila luas berisi angka pecahan desimal, maka di dalam pascal pecahan desimal disebut real.
Setiap baris perintah di pascal selalu diakhiri dengan tanda ";"
setiap ingin mengawali program harus menggunakan BEGIN dan mengakhiri dengan END.
di dalam BEGIN dan END. masih diperbolehkan menuliskan begin dan end, tapi end tersebut harus diakhiri dengan tanda";"

====== misalnya :
uses crt;
var

p : integer;
luas : real;

begin

perintah;
begin

perintah;

begin

perintah;

end;

end.

urutan langkah yang harus Anda lakukan dengan FreePascal adalah:

klik menu File - klik New (untuk menuliskan progam pertama Anda)
ketikkan sintaks program Pascal dengan benar (perhatikan struktur susunan program)
tekan tombol F9 atau F2 untuk menyimpan program
tekan tombol F9 untuk meng-compile (mengecek kebenaran program)
tekan tombol Ctrl + F9 untuk menjalan program (keluar layar hitam DOS)

Kisi-kisi Ulangan Semester Genap Kelas X

noreply@blogger.com (Serba Serbi Menggunakan Teknologi) — Sun, 03 Jun 2012 14:24:00 +0000

Soal terdiri dari 45 pilihan ganda dengan 5 essay

Manajemen File
Pascal
Menu dan Icon Pengolah Kata
Formatting Pengolah Kata
Editing Pengolah Kata
Page setup Pengolah Kata
Mail Merge Pengolah Kata
Video Editing dengan Movie Maker atau Ulead

perhatian dan proses belajar Anda sehari-hari sangat mendukung

if ... then... else pada Pascal

noreply@blogger.com (Serba Serbi Menggunakan Teknologi) — Sat, 19 Nov 2011 07:53:00 +0000

if ... then... else
--> digunakan untuk memilih kondisi dan memberikan nilai pada kondisi tersebut bila benar dan bila salah.

bentuk sintaksnya:
IF (kondisi) THEN nilai_jika_benar;
ELSE nilai_jika_salah;

Kondisi berisi 3 komponen -->    sesuatu yang dibandingkan OPERATOR nilai pembanding
OPERATOR : dapat berupa tanda =, >, <, <>, >=, <=, and, not, or

Contoh program pascal dengan pernyataan IF…then…Else
Bila nilai >= 75, maka mendapat predikat LULUS
Bila nilai < 75, maka mendapat predikat REMIDI
Ketikkan:
Uses crt;
Var
    nilai : integer;
Begin
    Write(‘masukkan nilai Anda = ’);
    Readln(nilai);

    If nilai >= 75 then
        begin
            Writeln(‘selamat’);
         Writeln(‘LULUS’);
        end
    Else Writeln(‘REMIDI’);

    Readln;
End.

simpan file save ketik d:if1.pas

Uses crt;
Var
    P, l : integer;
    Luas : real;
Begin
    Write(‘masukkan panjang =’);
    Readln(p);
    Write(‘masukkan lebar =’);
    Readln(l);
    If p > 0    then
        Begin
            Luas := p * l;
        End
    Else luas := 0;

    Writeln(‘Luasnya adalah :’,luas:4:0);
    Readln;
End.

IF bertingkat
bila ada 3 kemungkinan, jumlah IF = 2, then=2, else=1
bila ada 4 kemungkinan, maka jumlah if = 3, then 3 dan else = 1, bisa juga dibuat kombinasi yang lain. ^_^
Contoh:
Bila Gender wanita maka mendapat hadiah kerudung
Bila Gender pria maka mendapat hadiah sarung
Bila Gender waria, laki-laki, jejaka maka mendapat hadiah daster
                Kecuali wanita dan pria maka mendapat hadiah daster

Uses crt;
Var
    Gender : string;
Begin
    Clrscr;
    Write(‘masukkan gender Anda :’);
    Readln(gender);

    If gender =‘wanita’ then writeln(‘hadiah kerudung’)
    Else
        if Gender = ‘pria’ then writeln(‘hadiah sarung’)
        Else writeln(‘hadiah daster’);

    Readln;
End.

Sepuluh Penyakit Mata Pada Anak

noreply@blogger.com (Serba Serbi Menggunakan Teknologi) — Wed, 16 Nov 2011 00:21:00 +0000

Foto: Ist

Penyakit mata pada anak ternyata tidak sedikit. Sebagian sudah dikenali sejak awal, namun sebagian besar sering luput dari perhatian orang tua. Akibatnya, bisa buruk bagi penglihatan anak di kemudian hari. Berikut 10 penyakit mata anak yang dihimpun oleh dr. Handrawan Nadesul.
Penyakit mata pada anak dapat bawaan dapat pula didapat. Yang bersifat, bawaan, bisa turunan bisa juga bukan turunan. Dan karena sebagian penyakit mata memerlukan koreksi dini agar tidak memperburuk penglihatan, perhatian terhadap beberapa kelainan mata anak membutuhkan perhatian lebih besar.
Jika dihimpun, sekurang-kurangnya terdapat sepuluh jenis penyakit, gangguan atau kelainan mata yang mungkin terjadi pada anak. Tidak semuanya bisa dikoreksi. Namun bisa buruk akibatnya jika didiamkan atau terlambat dikoreksi. Kesepuluh penyakit tadi bisa Anda simak berikut ini.

1. BUTA WARNA
Buta warna jelas penyakit keturunan. Lebih sering pada anak laki-laki dibanding anak perempuan. Dibawa oleh kromosom Y. sampai saat ini belum ada terapi buta warna. Di Jepang baru sedang dicoba untuk mengganti sel-sel keruucut pada retina, penyebab terjadinya buta warna, tapi belum dinyatakan berhasil.
Anak buta warna sejak lahir tidak mengenal warna merah, hijau, dan biru secara baik. Yang ringan masih bisa membedakannya, tapi yang berat, hanya berkemampuan dengan bergradasi hitam putih belaka. Sehingga persepsinya terhadap ketiga warna itu menjadi berbeda dengan orang normal.
Adakalanya anak tidak sadar, ia mengidap buta warna. Bahkan orang tuanya pun mungkin tidak tahu si anak buta warna. Terutama jika buta warnanya ringan. Sehingga sering kaget ketika masuk perguruan tinggi sebab untuk jurusan teknik elektro dan kedokteran, misalnya, tidak boleh buta warna.
Perlu diketahui, di retina terdapat dua jenis sel, yakni sel batang dan sel kerucut. Sel batang untuk kemampuan membedakan terang gelap, sedang sel kerucut untuk membedakan warna-warna. Pada anak buta warna, sel kerucut di retina matanya, abnormal sehingga terganggu kemampuannya membedakan warna merah, hijau dan biru dengan derajat yang berbeda-beda,
Dengan melakukan tes membaca ishihara, buta warna didiagnosis. Buku berisi gambar-gambar bertuliskan angka-angka, sedemikan rupa, sehingga orang buta warna tidak bisa tepat membaca angka-angka yang orang normal dapat melihatnya dengan jelas.

2. MATA JULING
Mata juling juga bersifat bawaan dari lahir. Ada beberapa jenis kejulingan, dari yang ringan sampai yang berat. Umumnya sebab terdapat kelainan saraf bola mata, sehingga sumbu bola mata tidak normal dan perlu dikoreksi.
Jika tidak dibawa dari lahir, juling didapat sesudahnya. Bisa akibat katarak berat. Pada orang dewasa mendadak juling perlu diwaspadai, sebab dapat merupakan manifestasi dari adanya
kelainan di otak atau kenker hidung tenggorokan. Pada anak bisa juga akibat adanya tumor ganas di dalam bola mata.
Mata juling perlu segera dikoreksi agar keteajaman penglihatan anak berkembang normal. Jika tidak, anak tidak belajar melihat secara normal. Dan mata anak kemudian bisa menjadi abnormal.

3. GLAUKOMA
Penyakot ini penyakit tekanan bola mata yang meninggi, sehingga bsa menimbulkan kerusakan pada sarafmata dan retina. Selain didapat, terutama bagi yang berusia lanjut, glaukoma dapat pula bersifat sejak bawaan yang memang turunan. Sejak lahir tekanan bola mata anak sudah meninggi.
Meningginya tekanan bola mata disebabkan adanya gangguan sistem aliran cairan di dalam bola mata yang bisa bersifat bawaan. Akibat bendungan cairan bola mata ini, timbul gejala tekanan bola mata yang meninggi.
Penyakit ini menimbulkan rasa nyeri hebat di bola mata adan kepala. Selain itu mata tampak merah. Pada yang sudah berat, timbuk pula gangguan penglihatan. Selain kurang tajam, lapangan pandang pun mendadak berkurang. Ada yang hilang dalam layar penglihatan. Sebelumnya bisa terjadi penderita melihat bayangan mirip pelangi disekitar bola lampu.
Jika dengan obat-obatan tidak menolong, biasanya dilakukan tindakan pemmbedahan dengan tujuan agar aliran cairan bola mata menjadi normal dehingga tidak terjadi bendungan dan tekanan bola mata bisa normal.

4. BUFTHALMUS
Penyakit ini juga tergolong penyakit mata dengan tekanan bola mata yang meninggi sejak lahir. Akibat tekanan bola mata yang meninggi, ukuran bola mata bayi sangat besar. Keadaan ini mengganggu kornea mata. Anak takut melihat cahaya, timbul gangguan kelopak mata, kornes membengkak, dan warna kornea menjadi keruh.
Untu mengurangi bendungan cairan bola mata, yang membuat tekanan bola mata yang meninggi dilakukan operasi sayatan (goniotomy) sesegera mungkin agar perkembangan mata dan ketajaman penglihatan anak tidak sampai terganggu.

5. KATARAK MATA
Ya, bukan orang lanjut usia saja yang bisa katarak atau kekeruhan lensa mata, bayi baru lahir pun bisa mengidap katarak juga. Ini kelainan bawaan. Biasanya lahir dari ibu yang mengidap infeksi campak Jerman, toxoplasmosis, atau kencing manis. Selain itu juga disebabkan faktor keturunan.
Bayi dengan katarak perlu dilakukan operasi jika refleks fundus mata tidak ada atau kataraknya bersifat total. Maksudnya, agar perkembangan penglihatan anak tidak sampai terhambat. Operasi biasanya dilakukan setelah anak berumur 2 tahun. Jika dibiarkan kemungkinan anak berkembang menjadi juling atau pergerakan bola matanya abnormal (nystagmus).

6. PTOSIS
Penyakit ini dijuluki ‘mata ngantuk’ sebab penderitanya seperti mengantuk terus. Kelopak mata atasnya tidak dapat membuka dengan sempurna, sehingga cenderung rendah dan turun sebab otot-otot pengungkit kelopak matanya lemah.
Untuk mengoreksi sendiri, pasien ptosis tampak khas. Dahinya mengernyit dan alis matanya terungkit terus. Penyakit ini bisa sebab kelemahan otot kelopak mata yang didapat, bisa juga sebab penyakit turunan myastenia gravis. Untuk koreksi kelemahan otot ini dilakukan pembedahan sebelum anak berumur setahun.

7. INFEKSI MATA
Infeksi mata banyak jenisnya. Paling sering infeksi pada selaput lendir putih mata dan kelopak mata (conjunctivitis) atau dikenal sebagai penyakit mata merah.
Penyebab infeksi mata bisa oleh semua jenis bibit penyakit, mulai dari virus, kuman, jamur, sampai parasit. Tidak jarang terjadi karena alergi, baik yang berasal dari luar seperti serbuk sari, zat kimawi, atau dapat juga alergi dari dalam, yaitu pengidap TBC, penyakit darah atau penyakit kelenjar getah bening.
Mata merah sejak lahir bisa disebabkan oleh kuman chalamydia yang ibu idap pada kemaluan. Bisa juga oleh kuman kencing nanah dari ibu dengan penyakit yang sama. Tanda dan gejalanya hampir sama. Mata merah membengkak dan banyak kotoran mata yang lebih menyerupai nanah.
Pada bayi baru lahir biasanya secara rutin diberikan tetes mata segera setelah lahir sehingga jarang ditemukan kasus infeksi mata sekarang ini. Tapi bayi yang lahir dibantu oleh dukun peraji, infeksi mata bayi masih sering ditemukan.
Infeksi mata oleh kencing nanah dari ibu biasanya muncuk pada waktu anak seudah berumur 2 tahun. Mata dan kelopaknya merah meradang. Banyak kotoran mata di sekitar bola mata. Ini bisa dioobati sampai sembuh. Tapi ibu harus diobati juga agar tidak sampai menulari bayinya yang mungkin akan dilahirkannya nanti.
Infeksi mata yang didapat banyak jenisnya. Ada yang bersifat wabah sehingga pada musim-musim tertentu banyak orang yang sakit mata merah. Penyakit ini ditularkan lewat udara. Virus dan kuman beredar dalam udara di tempat-tempat umum atau melalui barang yang penderita pakai, seperti saputangan, kacamata, handuk atau sarung bantal, dan lensa kontak.
Dengan tetes atau salep mata yang mengandung antibiotika, biasanya penyakit mata merah dapat disembuhkan. Jika berat, mungkin perlu obat antibiotika minum juga.
Namun sering dijumpai sakit mata merah infeksi ini, diobati dengan tetes mata yang dapat dibeli bebas di warung. Cara ini bukan saja tidak tepat dan salah alamat, malah bisa jadi penyakit mata bertambah parah sebab bahan obatnya memang bukan jenis yang itu.
Obat tetes mata yang dijual bebas hanya untuk gangguan mata akibat kena debu, kotoran atau mata yang lelah. Tak jarang sakit mata merah malah menjadi bengkak sehabis ditetesi obat tetes dari warung.
Infeksi mata juga bisa ditularkan dari kolam renang. Biasanya mewabah pada musim-musim tertentu. Obatnya sama. Jika virus penyebabnya, tentu berbeda penanganannya dengan penyebabnya kuman, jamur, atau parasit.
Mata merah pada bayi lebih sering disebabkan oleh infeksi pada kelenjar air mata atau kantung air mata. Setiap hari mata bayi banyak mengeluarkan kotoran matanya, selain matanya tampak merah.
Penyakit ini bawaan dari lahir. Sebabnya ada sumbatan dalam saluran air mata dan infeksi bersarang di sanan. Biasanya menahun. Selain diberi tetes atau salep antibiotika, dilakukan pengurutan pada bagian bawah kelopak mata ke arah pangkal hidung yang bisa dilakukan sendiri oleh ibunya. Maksudnya, untuk mengalirkan kotoran mata yang menyumbat di bagian itu.
Namun, jika dengan cara-cara itu tidak menolong, dilakukan tindakan perojokan (probing) sehingga sumbatan macam-macam di sana bisa dibebaskan dan infeksi tidak lagi bersarang.
Infeksi kelenjar air mata pada anak yang besar sering akibat komplikasi campak, gondong, atau flu. Tak jarang akibat TBC dan penyakit getah bening.
Jika penyakit di atas dibiarkan, penyakit dapat berkembang menahun. Kuman tetap bersarang tanpa terusik di kelenjar atau kantung air mata.
Infeksi mata menahun sering pula disebabkan oleh penyakit mata trachoma. Banyak diidap di negara yang masih buruk sanitasi dan higienenya. Mudah menular dan sering menahun sebab tidak tuntas diobati. Komplikasinya bisa berat bahkan menimbulkan kebutaan.
Infeksi kelenjar minyak mata menimbulkan bintil. Bisul kecil di mulut kelenjar ini perlu segera diobati sebab jika sudah lebih dari dua minggu, obat sudah terlambat dan memerlukan tindakan operasi untu menyayat bisul mata yang sudah mnegeras. Tanpa operasi bisul, bintil tidak hilang, menetap, dan sering kambuh.
Bintil sering terjadi pada orang dengan higiene perorangan yang masih rendah. Kebiasaan buruk dalam memperlakukan mata, menggosok-gosok mata, memberrsihkan mata dengan jari, mata direndam air atau rendaman daun sirih atau melati, mata kurang dilindungi dari debu dan kotoran lain.
Selain pada putih mata dan selaput lendir kelopak mata, infeksi mata juga dapat menyerang kornea atau hitam mata. Ini jauh lebih berbahaya sebab kornea berhubungan langsung dengan fungsi penglihatan.
Infeksi pada kornea berhubungan langsung dengan fungsi penglihatan. Infeksi kornea mata perlu mendapat perhatian lebih besar agar tidak sampai menimbulkan kecacatan sehingga peradangan terganggu sebab kornea menjadi jendela penglihatan kita.
Infeksi bisa berkembang pada kornea yang kena luka tusukan. Kornea yangtertusuk akan dimasuki kuman jika tidak dilindungi dengan antibiotika dan tertutup mata. Infeksi kornea bisa buruk akibatnya. Tusukan duri atau serpihan kaca pada kornea pelru dicabut dan perawatan mata perlu sungguh-sungguh agar kornea tetap utuh setelah menyembuh.
Mata merah juga dapat disebabkan glaucoma dan alergi. Bedanya dengan infeksi, pada glaucoma atau alergi biasanya tidak ada rasa nyeri, pedih, atau mengganjal bola mata, tidak pula disertai demam. Biasanya tidak mengeluarkan kotoran mata. Dokter bisa membedakan mana jenis mata merah infeksi, mana pula yang bukan.

8. RETINOBLASTOMA
Tumor ganas bola mata yang dibawa sejak lahir. Tidak tahu apa sebabnya. Tumor di retina ini sudah tumbuh sejak lahir. Sering luput dan kerap gejalanya baru muncul ketika tumor sudah telanjur besar. Gejala itu mungkin juling mendadak, glaucoma, mata sering merah, dan visus atau ketajaman penglihatan anak cepat menurun sehingga sering ganti kacamata.

9. KEKURANGAN VITAMIN A
Akibat kekurangan vitamin A, bukan saja menimbulkan rabun senja. Begitu matahari mulai terbenam anak sering menabrak-nabrak barang di depannya kalau berjalan. Penglhatannya menjadi kabur di waktu sennja hari. Sebab sel-sel batang di retinanya terganggu fungsinya akibat tidak cukup vitamin A dalam menu hariannya.
Jika rabun senja dibiarkan tanpa tambahan vitamin A, maka kelainan mata akan berkembang menadi kelainan pada putih mata yang disebut bercak Tuan Bitot. Pada fase ini mata masih bisa diselamatkan jika vitamin A ditambahkan dalam menu hariannya.
Jika kelainan ini pun masih dibiarkan, mata akan menjadi kering dan kornea kemudia rusak. Kornea keriput lalu kisut dan akhirnya pecah. Kondisi kornea yang semacam inilah yang berakibat kebutaan yang sudah tak terkoreksi lagi.
Anak dengan menu normal, dari susu, ikan, dan sayuran hijau, mestinya tidak bakal sampai harus kekurangan vitamin A. sepotong wortel sudah mencukupi kebutuhan harian vitamin A tubuh. Tapi vitamin A berkaitan dengan menu lemak. Jika anak urang gizi dan menu lemaknya rendah, biasanya akan kekurangan vitamin A.

10. RABUN JAUH
Anak sekarang terancam kena rabun jauh pada usia masih kecil. Penyebabnya, banyak membaca dengan cara yang kurang tepat. Baca sambil tiduran, sebab yang dibaca banyak dan badan lebih oleh banyaknya elajaran dan pekerjaan rumah. Membaca dengan pencahayaan yang kurang. Sedikitnya perlu 60 watt dengan jarak baca 33 cm, posisi duduk tegak, dan obyek baca tidak bergerak. Artinya, yang sehat itu membaca duduk dan obyek bacaan diletakkan di atas meja. Tapi anak sekarang membaca di mana dan kapan saja. Bahkan selama di bus sekolah atau kereta api juga.
Kedua, pengaruh radiasi monitor komputer atau televisi sendiri. Jarang nonton yang mestinya sekurang-kurangbya 5 kali lebar diagonal layar televisi sebab kondisi ruangan yang sempit mamaksa anak nonton pada jarak yang sangat dekat.
Itu maka anak sekarang banyak yang sudah berkacamata myopia, rabun jauh, pada usia yang maish sangat kecil. Dan keadaan ini sering luput dari pengamatan orang tuanya. Tahu-tahu visusnya sudah buruk waktu dilakukan pemeriksaan.
Kini ada cara koreksi rabun jauh dengan laser. Tapi baru-baru ini diberitakan cara ini tidak aman atau punya efek sampinngan yang tidak dilakukan lagi dibeberapa negara.
Agar tidak semakin memburuk, kacamata yang cocok ukurannya perlu dipakai terus. Jika erabunan masih ringan, pemakaian kacamata mungkin memulihkannya, tapi jika kacamata tidak dipakai dan kerabunan sudah tinggi, setiap tahunu tentu perlu pengganti kacamata.
Waspada jika kerabunan lekas bertambah, selain berakibat koyaknya retina yang bisa berakibat kebutaan, harus diwaspadai ggejala ini sebagai suatu gejal apenyakit lain yang lebih berbahaya, seperti glaucoma, tumor ganas bola mata, atau adanya kelainan retina lainnya.
Nova

Ethernet Card

noreply@blogger.com (Serba Serbi Menggunakan Teknologi) — Fri, 11 Nov 2011 10:52:00 +0000

Versi awal Xerox Ethernet dikeluarkan pada tahun 1975 dan di desain untuk menyambungkan 100 komputer pada kecepatan 2,94 megabit per detik melalui kabel sepanjang satu kilometer.
Desain tersebut menjadi sedemikian sukses di masa itu sehingga Xerox, Intel dan Digital Equipment Corporation (DEC) mengeluarkan standar Ethernet 10Mbps yang banyak digunakan pada jaringan komputer saat ini. Selain itu, terdapat standar Ethernet dengan kecepatan 100Mbps yang dikenal sebagai Fast Ethernet.
Asal Ethernet bermula dari sebuah pengembangan WAN di University of Hawaii pada akhir tahun 1960 yang dikenal dengan nama "ALOHA". Universitas tersebut memiliki daerah geografis kampus yang luas dan berkeinginan untuk menghubungkan komputer-komputer yang tersebar di kampus tersebut menjadi sebuah jaringan komputer kampus.
Proses standarisasi teknologi Ethernet akhirnya disetujui pada tahun 1985 oleh Institute of Electrical and Electronics Engineers (IEEE), dengan sebuah standar yang dikenal dengan Project 802. Standar IEEE selanjutnya diadopsi oleh International Organization for Standardization (ISO), sehingga menjadikannya sebuah standar internasional dan mendunia yang ditujukan untuk membentuk jaringan komputer. Karena kesederhanaan dan keandalannya, Ethernet pun dapat bertahan hingga saat ini, dan bahkan menjadi arsitektur jaringan yang paling banyak digunakan.

Jenis-jenis Ethernet

Jika dilihat dari kecepatannya, Ethernet terbagi menjadi empat jenis, yakni sebagai berikut:

10 Mbit/detik, yang sering disebut sebagai Ethernet saja (standar yang digunakan: 10Base2, 10Base5, 10BaseT, 10BaseF)
100 Mbit/detik, yang sering disebut sebagai Fast Ethernet (standar yang digunakan: 100BaseFX, 100BaseT, 100BaseT4, 100BaseTX)
1000 Mbit/detik atau 1 Gbit/detik, yang sering disebut sebagai Gigabit Ethernet (standar yang digunakan: 1000BaseCX, 1000BaseLX, 1000BaseSX, 1000BaseT).
10000 Mbit/detik atau 10 Gbit/detik. Standar ini belum banyak diimplementasikan.

Cara kerja

Spesifikasi Ethernet mendefinisikan fungsi-fungsi yang terjadi pada lapisan fisik dan lapisan data-link dalam model referensi jaringan tujuh lapis OSI, dan cara pembuatan paket data ke dalam frame sebelum
ditransmisikan di atas kabel.
Ethernet merupakan sebuah teknologi jaringan yang menggunakan metode transmisi Baseband yang mengirim sinyalnya secara serial 1 bit pada satu waktu. Ethernet beroperasi dalam modus half-duplex, yang berarti setiap station dapat menerima atau mengirim data tapi tidak dapat melakukan keduanya secara sekaligus. Fast Ethernet serta Gigabit Ethernet dapat bekerja dalam modus full-duplex atau half-duplex.
Ethernet menggunakan metode kontrol akses media Carrier Sense Multiple Access with Collision Detection untuk menentukan station mana yang dapat mentransmisikan data pada waktu tertentu melalui media yang digunakan. Dalam jaringan yang menggunakan teknologi Ethernet, setiap komputer akan "mendengar" terlebih dahulu sebelum "berbicara", artinya mereka akan melihat kondisi jaringan apakah tidak ada komputer lain yang sedang mentransmisikan data. Jika tidak ada komputer yang sedang mentransmisikan data, maka setiap komputer yang mau mengirimkan data dapat mencoba untuk mengambil alih jaringan untuk mentransmisikan sinyal. Sehingga, dapat dikatakan bahwa jaringan yang menggunakan teknologi Ethernet adalah jaringan yang dibuat berdasrkan basis First-Come, First-Served, daripada melimpahkan kontrol sinyal kepada Master Station seperti dalam teknologi jaringan lainnya.
Jika dua station hendak mencoba untuk mentransmisikan data pada waktu yang sama, maka kemungkinan akan terjadi collision (kolisi/tabrakan), yang akan mengakibatkan dua station tersebut menghentikan transmisi data, sebelum akhirnya mencoba untuk mengirimkannya lagi pada interval waktu yang acak (yang diukur dengan satuan milidetik). Semakin banyak station dalam sebuah jaringan Ethernet, akan mengakibatkan jumlah kolisi yang semakin besar pula dan kinerja jaringan pun akan menjadi buruk. Kinerja Ethernet yang seharusnya 10 Mbit/detik, jika dalam jaringan terpasang 100 node, umumnya hanya menghasilkan kinerja yang berkisar antara 40% hingga 55% dari bandwidth yang diharapkan (10 Mbit/detik). Salah satu cara untuk menghadapi masalah ini adalah dengan menggunakan Switch Ethernet untuk melakukan segmentasi terhadap jaringan Ethernet ke dalam beberapa collision domain.

source: http://id.wikipedia.org/wiki/Ethernet

Tabel ASCII

noreply@blogger.com (Serba Serbi Menggunakan Teknologi) — Sun, 16 Oct 2011 10:27:00 +0000

Kode Standar Amerika untuk Pertukaran Informasi atau ASCII (American Standard Code for Information Interchange) merupakan suatu standar internasional dalam kode huruf dan simbol sepertiHex dan Unicode tetapi ASCII lebih bersifat universal, contohnya 124 adalah untuk karakter "|". Ia selalu digunakan oleh komputer dan alat komunikasi lain untuk menunjukkan teks. Kode ASCII sebenarnya memiliki komposisi bilangan biner sebanyak 8 bit. Dimulai dari 0000 0000 hingga 1111 1111. Total kombinasi yang dihasilkan sebanyak 256, dimulai dari kode 0 hingga 255 dalam sistem bilangan Desimal.

Dalam sistem operasi Windows dan MS-DOS, pengguna dapat menggunakan karakter ASCII dengan menekan tombol Alt+[nomor nilai ANSI (desimal)]. Sebagai contoh, tekan kombinasi tombol Alt+87 untuk karakter huruf latin "W" kapital.

Berikut Tabel ASCII dapat Anda download disini.

sumber : http://id.wikipedia.org/wiki/ASCII, http://www.asciitable.com

Sejarah Komputer Generasi Pertama

noreply@blogger.com (Serba Serbi Menggunakan Teknologi) — Sun, 16 Oct 2011 09:40:00 +0000

Berikut ini Sejarah Komputer Generasi Pertama:

Pada waktu Perang Dunia Kedua, negara-negara yang ikut dalam perang tersebut terus berusaha untuk mengembangkan komputer yang akan digunakan untuk mengeksploit potensi strategis yang dimiliki komputer. Karena hal ini, maka adanya peningkatan pendanaan dari negara untuk mempercepatpengembangan komputer serta kemajuan teknik komputer.

Dan pada tahun 1941, seorang insinyur jerman – Konrad Zuse berhasil membangun sebuah komputer Z3 yang digunakan untuk mendesain pesawat terbang dan juga peluru kendali.

Dilain pihak, pihal sekutu juga membuat kemajuan dalam hal pengembangan kekuatan komputer. Dan pihak Inggris pada tahun 1943 telah menyelesaikan komputer yang digunakan untuk memecahkan kode rahasia yang diberi nama Colossus, untuk memecahkan kode rahasia yang digunakan militer Jerman. Dan dampak dari pembuatan Colussus ini tidak memberikan pengaruh yang signifikan terhadap perkembangan industri komputer dikarenakan beberapa alasan yaitu:

Colossus bukan merupakan komputer general (serba guna), hanya digunakan untuk memecahkan kode rahasia saja.
Dan keberadaan komputer ini dijaga kerahasiaannya hingga satu dekade setelah perang berakhir.

Disamping itu, ada usaha lain yang dilakukan pihak Amerika Serikat pada waktu itu dan berhasil mencapai kemajuan lainnnya, yaitu seorang insinyur Harvard – Howard H.Aiken (1900-1973) yang bekerja dengan IBM berhasil memproduksi kalkulator elektronik untuk US Navy. Kalkulator tersebut berukuran panjang setengah lapangan bola kaki dan memiliki rentang kabel sepanjang 500mil. The Harvd-IBM Automatic Sequence Controlled Calculator, atau Mark I, merupakan komputer relai elektronik. Ia menggunakan sinyal elektromagnetik untuk menggerakkan komponen mekanik. Mesin tersebut beropreasi dengan lambat (ia membutuhkan 3-5 detik untuk setiap perhitungan) dan tidak fleksibel (urutan kalkulasi tidak dapat diubah). Kalkulator tersebut dapat melakukan perhitungan aritmatik dasar dan persamaan yang lebih kompleks.

Lalu perkembangan komputer lain pada masa itu adalah Electronic Numerical Integrator and Computer (ENIAC), yang dibuat oleh kerjasama antara pemerintah Amerika Serikat dan University of Pennsylvania . Terdiri dari 18.000 tabung vakum, 70.000 resistor, dan 5 juta titik solder, komputer tersebut merupakan mesin yang sangat besar yang mengkonsumsi daya sebesar 160kW.

Komputer tersebut dirancang oleh John Presper Eckert (1919-1995) dan John W. Mauchly (1907-1980), ENIAC merupakan komputer serbaguna (general purpose computer) yang bekerja 1000 kali lebih cepat dibandingkan Mark I.

Pada pertengahan 1940-an, John von Neumann (1903-1957) bergabung dengan tim University of Pennsylvania dalam usha membangun konsep desin komputer yang hingga 40 tahun mendatang masih dipakai dalam teknik komputer. Von Neumann mendesain Electronic Discrete Variable Automatic Computer (EDVAC) pada tahun 1945 dengan sebuh memori untuk menampung baik program ataupun data.

Teknik ini memungkinkan komputer untuk berhenti pada suatu saat dan kemudian melanjutkan pekerjaannya kembali. Kunci utama arsitektur Von Neumann adalah unit pemrosesan sentral (CPU), yang memungkinkan seluruh fungsi komputer untuk dikoordinasikan melalui satu sumber tunggal. Tahun 1951,UNIVAC I (Universal Automatic Computer I) yang dibuat oleh Remington Rand, menjadi komputer komersial pertama yang memanfaatkan model arsitektur von Neumann tersebut.

Baik Badan Sensus Amerika Serikat dan General Electric memiliki UNIVAC. Salah satu hasil mengesankan yang dicapai oleh UNIVAC dalah keberhasilannya dalam memprediksi kemenangan Dwilight D. Eisenhower dalam pemilihan presiden tahun 1952.

Komputer Generasi pertama dikarakteristik dengan fakta bahwa instruksi operasi dibuat secara spesifik untuk suatu tugas tertentu. Setiap komputer memiliki program kode-biner yang berbeda yang disebut “bahasa mesin” (machine language). Hal ini menyebabkan komputer sulit untuk diprogram dan membatasi kecepatannya. Ciri lain komputer generasi pertama adalah penggunaan tube vakum (yang membuat komputer pada masa tersebut berukuran sangat besar) dan silinder magnetik untuk penyimpanan data.

Sekian sejarah komputer generasi pertama…

sumber: http://www.sejarah-komputer.com/sejarah-komputer-generasi-pertama/

Praktek Ms DOS (Disk Operating System) dengan Command Prompt

noreply@blogger.com (Serba Serbi Menggunakan Teknologi) — Thu, 15 Sep 2011 00:44:00 +0000

Tolong di tulis di buku tulis, di coba di rumah dengan computer masing-masing. Beri penjelasan tentang perubahan yang terjadi (PR minggu depan) -- pengumpulan hasil praktek telah ditutup KUNCI JAWABAN TELAH DI UPLOAD

Menjalankan Command Prompt

1. Klik menu Start- Accessories – Command Prompt, atau

2. Klik menu Start – Run – ketik CMD, atau

3. Klik menu Start – ketik CMD pada kolom Search

Muncul tulisan pada layar Command Prompt,

C:\users\namaPC>

Lalu ketikkan

1. C:\users\namaPC>cd.. (enter)

2. C:\users>cd.. (enter)

3. C:\>cd users(enter)

4. C:\users>cd namaPC(enter)

5. C:\users\namaPC>cd\ (enter)

6. C:\>md tiksem1(enter)

7. C:\>md x1-bejo(enter) {kelas dan nama disesuaikan}

8. C:\>dir(enter)

9. C:\>dir/p(enter)

10. C:\>dir/w(enter)

11. C:\>cd windows(enter)

12. C:\windows>copy notepad.exe c:\tiksem1 (enter)

13. C:\windows>copy notepad.exe c:\x1-bejo (enter)

14. C:\windows>cd\(enter)

15. C:\>dir tiksem1(enter)

16. C:\>cd tiksem1(enter)

17. C:\tiksem1>ren notepad.exe programTulis.exe(enter)

18. C:\tiksem1>dir(enter)

19. C:\tiksem1>copy programTulis.exe c:\x1-bejo(enter)

20. C:\tiksem1>del programTulis.exe(enter)

21. C:\tiksem1>dir(enter) {lihatlah file programTulis.exe sudah terhapus}

22. C:\tiksem1>cd.. (enter)

23. C:\>dir x1-bejo(enter) {ada 2 file notepad.exe dan programTulis.exe}

24. C:\>rd tiksem1(enter)

25. C:\>cd x1-bejo(enter)

26. C:\x1-bejo>notepad.exe(enter)

27. C:\x1-bejo>cls(enter)

28. C:\x1-bejo>cd\ (enter)

29. C:\>d: (enter) {pindah drive misal ke flashdisk}

30. D:\>help attrib(enter)

31. D:\>attrib.exe –R –H –S /s /d (enter) {untuk mengembalikan file/folder yg disembunyikan virus di drive d:}

32. D:\>exit

selamat mengerjakan ^_^

untuk Kemudahan dalam mengerjakan, jangan lupa memperhatikan nama users di komputer Anda mungkin tidak akan sama seperti contoh di atas, perhatikan juga namaPC harus disesuaikan dengan Komputer Anda.
contoh:
    bila command prompt Anda pertama kali dipanggil, tulisan terakhir pada layar menunjukkan
   C:\Documents and Settings\toshiba>
artinya : - perintah user pada nomor 3 harus diganti menjadi Documents and Settings
             - perintah namaPC pada nomor 4 harus diganti menjadi toshiba

Langkah terbaik mengerjakan perintah no.1 s.d 32 adalah:
1. Buat tabel dengan 4 kolom dengan judul kolom: No., Perintah DOS, Hasilnya, Arti Perintah
2. Panggil Command Prompt seperti petunjuk paling atas
3. Ketik perintah DOS hanya setelah tanda lebih dari ">" dan kemudian tekan enter
4. Amati perubahan yang terjadi dengan menulis hasil dari masing-masing perintah pada tiap nomor

NO	Perintah DOS	Hasilnya	Arti Perintah
1	C:\Users\user>cd.. (enter)	C:\Users>	Pindah ke 1 tingkat direktori diatasnya
2	C:\Users>cd.. (enter)	C:\>	Pindah ke1 tingkat direktori diatasnya
3	C:\>cd users (enter)	C:\Users>	Pindah/ masuk ke direktori users
4	C:\Users>cd user(enter)	C:\Users\user>	Pindah/ masuk ke direktori user
5	C:\Users\user>cd\ (enter)	C:\>	Pindah ke root C
6	C:\>md tiksem1 (enter)	C:\> (Di C:\> ada folder baru bernama tiksem1)	Membuat folder baru di C:\>
7	C:\>md x10-elva (enter)	C:\> (Di C:\> ada folder baru bernama x10-elva)	Membuat folder baru di C:\>
8	C:\>dir (enter)	Volume in drive C has no label.	Memeriksa/melihat isi directory di C:\>
		Volume Serial Number is 20A3-79A9
		Directory of C:\
		06/11/2009 04:42 AM 24 autoexec.bat
		09/06/2011 02:57 PM <DIR> BigFishGamesCache
		06/11/2009 04:42 AM 10 config.sys
		07/14/2009 09:37 AM <DIR> PerfLogs
		09/22/2011 01:06 PM <DIR> Program Files
		09/24/2011 04:28 PM <DIR> tiksem1
		06/25/2010 09:16 PM <DIR> Users
		07/28/2011 05:58 PM <DIR> Valve
		08/23/2011 08:50 PM <DIR> Windows
		09/24/2011 04:32 PM <DIR> x10-elva
		2 File(s) 34 bytes
		8 Dir(s) 399,585,280 bytes free
9	C:\>dir/p (enter)	Volume in drive C has no label.	Memeriksa/ melihat isi directory di C:\> degan tampilan per halaman secara detail
		Volume Serial Number is 20A3-79A9
		Directory of C:\
		06/11/2009 04:42 AM 24 autoexec.bat
		09/06/2011 02:57 PM <DIR> BigFishGamesCache
		06/11/2009 04:42 AM 10 config.sys
		07/14/2009 09:37 AM <DIR> PerfLogs
		09/22/2011 01:06 PM <DIR> Program Files
		09/24/2011 04:28 PM <DIR> tiksem1
		06/25/2010 09:16 PM <DIR> Users
		07/28/2011 05:58 PM <DIR> Valve
		08/23/2011 08:50 PM <DIR> Windows
		09/24/2011 04:32 PM <DIR> x10-elva
		2 File(s) 34 bytes
		8 Dir(s) 400,224,256 bytes free
10	C:\>dir/w (enter)	Volume in drive C has no label.	Memeriksa directory di C:\> dengan tampilan memanjang horizontal
		Volume Serial Number is 20A3-79A9
		Directory of C:\
		autoexec.bat [BigFishGamesCache] config.sys [PerfLogs]
		[Program Files] [tiksem1] [Users] [Valve]
		[Windows] [x10-elva]
		2 File(s) 34 bytes
		8 Dir(s) 400,207,872 bytes free
11	C:\>cd windows (enter)	C:\Windows>	Pindah/ masuk ke folder Windows
12	C:\Windows>copy notepad.exe c:\tiksem1 (enter)	C:\Windows>copy notepad.exe c:\tiksem1 1 file(s) copied.	Menyalin file notepad.exe dari C:\Windows> ke C:\tiksem1>
13	C:\Windows>copy notepad.exe c:\x10-elva (enter)	C:\Windows>copy notepad.exe c:\x10-elva 1 file(s) copied.	Menyalin file notepad.exe dari C:\Windows> ke C:\x10-elva>
14	C:\Windows>cd\ (enter)	C:\>	Pindah ke root C:\>
15	C:\>dir tiksem1 (enter)	Volume in drive C has no label.	Memeriksa/melihat isi directory di C:\tiksem1>
		Volume Serial Number is 20A3-79A9	file notepad.exe berhasil dicopy
		Directory of C:\tiksem1
		09/24/2011 04:52 PM <DIR> .
		09/24/2011 04:52 PM <DIR> ..
		07/14/2009 08:14 AM 179,712 notepad.exe
		1 File(s) 179,712 bytes
		2 Dir(s) 400,461,824 bytes free
16	C:\>cd tiksem1 (enter)	C:\tiksem 1>	Pindah/ masuk ke folder tiksem1
17	C:\tiksem 1>ren notepad.exe programTulis.exe (enter)	C:\tiksem 1> (Di folder tiksem1 nama notepad berubah jadi programTulis	Mengubah nama file notepad.exe menjadi ProgramTulis.exe di folder tiksem1
18	C:\tiksem 1>dir (enter)	Volume in drive C has no label.	Memeriksa/ melihat isi directory di tiksem1
		Volume Serial Number is 20A3-79A9
		Directory of C:\tiksem1
		09/24/2011 05:28 PM <DIR> .
		09/24/2011 05:28 PM <DIR> ..	nama file notepad.exe
		07/14/2009 08:14 AM 179,712 programTulis.exe	telah berubah menjadi programTulis.exe
		1 File(s) 179,712 bytes
		2 Dir(s) 397,250,560 bytes free
19	C:\Windows>copy programTulis.exe c:\x10-elva (enter)	C:\Windows>copy programTulis.exe c:\x10-elva 1 file(s) copied.	Menyalin file programTulis.exe ke folder x10-elva di drive C
20	C:\tiksem1>del programTulis.exe (enter)	C:\tiksem1> (Di folder tiksem 1 aplikasi programTulis tidak ada / terhapus)	Menghapus file programTulis.exe di folder tiksem1
21	C:\tiksem1>dir (enter)	Volume in drive C has no label.	Memeriksa/ melihat isi directory di tiksem1
		Volume Serial Number is 20A3-79A9
		Directory of C:\tiksem1
		09/24/2011 05:38 PM <DIR> .
		09/24/2011 05:38 PM <DIR> ..	terbukti berhasil menghapus file
		0 File(s) 0 bytes
		2 Dir(s) 395,784,192 bytes free
22	C:\tiksem1>cd.. (enter)	C:\>	Pindah ke root C:\>
23	C:>dir x10-elva (enter)	Volume in drive C has no label.	Memeriksa/ melihat isi directory di x10-elva
		Volume Serial Number is 20A3-79A9
		Directory of C:\x10-elva
		09/24/2011 05:33 PM <DIR> .
		09/24/2011 05:33 PM <DIR> ..
		07/14/2009 08:14 AM 179,712 notepad.exe
		07/14/2009 08:14 AM 179,712 programTulis.exe
		2 File(s) 359,424 bytes
		2 Dir(s) 395,603,968 bytes free
24	C:\>rd tiksem1 (enter)	C:\> (Folder tiksem1 tidak ada / terhapus)	Menghapus folder
25	C:\>cd x10-elva (enter)	C:\x10-elva>	Pindah/ masuk ke folder x10-elva
26	C:\x10-elva>notepad.exe (enter)	C:\x10-elva>	memanggil file notepad.exe yang berupa program aplikasi
27	C:\x10-elva>cls (enter)	C:\x10-elva>	Membersihkan tampilan command prompt
28	C:\x10-elva>cd\ (enter)	C:\>	Pindah ke root C:\>
29	C:\>d: (enter)	D:\>	Pindah ke drive/ root lain (bisa juga drive flashdisk)
30	D:\>help attrib (enter)	Displays or changes file attributes.	Menampilkan bantuan perintah untuk merubah atribut file/ folder dengan ATTRIB
		ATTRIB [+R \| -R] [+A \| -A ] [+S \| -S] [+H \| -H] [+I \| -I]
		[drive:][path][filename] [/S [/D] [/L]]
		+ Sets an attribute.
		- Clears an attribute.
		R Read-only file attribute.
		A Archive file attribute.
		S System file attribute.
		H Hidden file attribute.
		I Not content indexed file attribute.
		[drive:][path][filename]
		Specifies a file or files for attrib to process.
		/S Processes matching files in the current folder and all subfolders.
		/D Processes folders as well.
		/L Work on the attributes of the Symbolic Link versus
		the target of the Symbolic Link
31	D:\>attrib.exe -R -H -S /s /d (enter)	Access denied - D:\$RECYCLE.BIN\S-1-5-21-2011246526-385891144-2334221303-1000	Mengembalikan folder / data yang di hidden atau terkena virus
		Access denied - D:\$RECYCLE.BIN\S-1-5-21-3825561177-3268315317-12807695-500
		Unable to change attribute - D:\pagefile.sys
		Access denied - D:\System Volume Informati
32	D:\>exit (enter)	Tampilan Command Prompt tertutup	Keluar dari command prompt

Materi Dasar Pascal kelas X SMA

noreply@blogger.com (Serba Serbi Menggunakan Teknologi) — Thu, 15 Sep 2011 00:32:00 +0000

Untuk lebih memahami apa itu Pascal adalah memahaminyalebih lanjut.
Berikut link download file Materi dasar Pascal beserta bebarapa contoh soal dan soal yang mirip dengan soal Olimpiade Komputer.

Selamat mencoba ^_^

Kunci Jawaban Pillihan Ganda LKS Sem.2 Kls.XI

noreply@blogger.com (Serba Serbi Menggunakan Teknologi) — Sun, 05 Jun 2011 01:44:00 +0000

hal.15: 1.a, 2.d.3.d,4.d, 5.c, 6.a, 7.-, 8.a, 9.b, 10.d, 11.b, 12.-, 13.a, 14.a, 15.b, 16.a, 17.b, 18.a, 19.-, 20.c, 21.a, 22.a
hal.19: 1.d, 2.c.3.d,4.b, 5.b, 6.-, 7.c, 8.a, 9.d, 10.a
hal.41: 1.c, 2.b.3.b,4.b, 5.a, 6.b, 7.c, 8.b, 9.b, 10.b, 11.c, 12.-, 13.-, 14.b,
hal.76: 1.c, 2.a.3.a,4.a, 5.b, 6.b, 7.a, 8.b, 9.a, 10.c, 11.b, 12.c, 13.a, 14.b, 15.d, 16.a, 17.c, 18.b, 19.c, 20.c, 21.b, 22.c, 23.d, 24.c, 25.b, 26.a, 27.a, 28.d, 29.a, 30.d

Kisi-kisi UAS Sem.2 Kelas XI

noreply@blogger.com (Serba Serbi Menggunakan Teknologi) — Sun, 29 May 2011 02:28:00 +0000

localhost
web server lokal
perintah dasar dengan php
icon menu excel
cara mengatur tampilan pencetakan
header and footer
chart
fungsi teks
fungsi tanggal
fungsi statistik
fungsi lookup
fungsi logika
pivot table dan pivot chart
format cells
sel, range
menggabungkan sel
memasukkan formula
mengoperasikan cut, copy, paste/ paste spesial
pengurutan data
menggunakan referensi realtif dan absolut
mengatur tata letak worksheet
membuka halaman Macro Editor/Visual Basic

File Soal OSK 2008 tingkat Kota/ Kabupaten

noreply@blogger.com (Serba Serbi Menggunakan Teknologi) — Wed, 30 Mar 2011 06:49:00 +0000

link Download soal OSK2008

Download Soal dan Pembahasan Olimpiade Komputer SMA 2010 tk.Kota/kab.

noreply@blogger.com (Serba Serbi Menggunakan Teknologi) — Wed, 23 Mar 2011 15:56:00 +0000

img001a

From Drop Box

img002a

From Drop Box

img004a

From Drop Box

img005a

From Drop Box

img006a

From Drop Box

img007a

From Drop Box

img008a

From Drop Box

img009a

From Drop Box

img010a

From Drop Box

atau dapat di download seluruhnya disini
File Soal Tanpa pembahasan OSK 2010 Kota/Kab.

Jadwal OSK, OSP, dan OSN 2011 tingkat SMA

noreply@blogger.com (Serba Serbi Menggunakan Teknologi) — Wed, 23 Mar 2011 15:46:00 +0000

Info resmi dari siswapsma.org , OSN 2011 akan diadakan pada tanggal:

12 September 2011- 17 September 2011

sumber: http://siswapsma.org/index.php?option=com_eventlist&view=details&id=3:Olimpiade%20Siswa

belum dicantumkan jadwal osk dan osp. Namun dari sumber lain yaitu di http://www.dinaspendidikan-parepare.info, saya mendapatkan informasi berikut:

Berdasarkan Surat dari Direktorat Jenderal Pendidikan Menengah, Kementerian Pendidikan Nasional Nomor 87/Dikmen-SMA/1/LL/2011 tangal 19 Januari 2011 tentang Seleksi Olimpiade Sains Tingkat Kabupaten/Kota dan Propinsi Tahun 2011, maka seleksi OSN tingkat kabupaten/kota dan propinsi dilaksanakan dengan ketentuan :

Seleksi tingkat kabupate/kota dilaksanakan pada tanggal 10 Mei 2011, untuk mata pelajaran matematika, fisika, kimia dan biologi. Tanggal 11 Mei 2011, untuk mata pelajaran komputer, astronomi, ekonomi dan kebumian.
Seleksi tingkat propinsi dilaksanakan pada tanggal 7 Juni 2011, untuk mata pelajaran matematika, fisika, kimia dan biologi. Tanggal 8 Juni 2011, untuk mata pelajaran komputer, astro

Pembahasan Olimpiade Komputer 2010 tingkat Kota/Kabupaten

noreply@blogger.com (Serba Serbi Menggunakan Teknologi) — Wed, 23 Mar 2011 15:26:00 +0000

Soal No.1

Pembahasan:

Tangki dgn 6 kran air bila dibuka semua air habis dalam waktu 8 jam

Berapa jam waktu yang dibutuhkan bila hanya 4 kran air yang dibuka?

6 kran = 8 jam

4 kran = x jam

Maka perbandingannya = x = (8 x 6)/4 = 12

Jawaban: D

Soal No.2

Pembahasan:

Berapa banyak angka lima(5) yang harus dibuat dari bilangan 1 s.d. 100?

Dari bilangan 1 s.d. 100, urutan angka 5 adalah

5,15,25,35,45,50,51,52,53,54, 5 5,56,57,58,59,65,75,85,95

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Jadi, total ada 20 angka lima yang dibutuhkan untuk di tempel

Jawaban:D

Soal No.5

Enam acara pertunjukan kesenian akan berlangsung dari jam 17.00 hingga jam 21.00. Antara acara satu dengan acara berikutnya harus terdapat jeda selama 5 menit. Setiap acara akan diberi jatah waktu yang sama kecuali acara ketiga akan diberikan waktu lebih lama 10 menit dan acara terakhir akan diberi waktu tepat 1 jam. Berapa lama waktu jatah waktu acara ketiga?

Pembahasan:

Kita harus membuat pola seperti ketentuan soal

1	2	3	4	5	6
5	5	5	5	5

Dari jam 17.00 s.d. 21.00 = 4 jam

Acara terakhir(ke-6) = 1 jam

Sisa Waktu utk 5 acara = 3 jam x 60 menit = 180 menit

Jeda waktu untuk 5 acara x 5 menit = 25 menit

Sisa waktu = 180 – 25 = 155 menit

Acara ketiga = 155 – 10 = 145 menit

Waktu u/ Tiap acara = 145/5 = 29 menit

Jadi untuk acara ketiga adalah = 29 menit + 10 = 39 menit

Jawaban: D

Soal No.6

Diketahui

Pembahasan:

W < X < Y< Z

W x Y = 32, kemungkinan W=4, Y=8

X x Z = 50, kemungkinan X =5, Z=10

Maka nilai X x Y = 5 x 8 = 40

Jawaban: D

Soal No.7

Pembahasan:

W,X,Y,Z adalah bilangan bulat positif

W x Y = 32, kemungkinan W=4, Y=8

X x Z = 100, kemungkinan X=5, Z=20

Maka Y x Z = 8 x 20 =160

Jawaban: B

Pembahasan Olimpiade Komputer tahun 2010 tingkat Kota/Kabupaten

noreply@blogger.com (Serba Serbi Menggunakan Teknologi) — Fri, 18 Mar 2011 07:30:00 +0000

Soal No.31

Pembahasan: 

  //x dan y bertipe integer

1.  x :=-16; y:=8;

2.  x := x + y;  --> -16 + 8 = -8

3.  x := y - x;  -->  8 - -8 = 16

maka nilai hasil eksekusi program tsb adalah x=-8 dan y=8

Jawaban: A

Soal No.32

Pembahasan: 

  //x dan y bertipe integer

1.  x :=20; y:=35;

2.  x := x + y;  --> 20 + 35 = 55

3.  y := x - y;  --> 55 - 35 = 20

4.  x := x - y;  --> 55 - 20 = 35

maka nilai hasil eksekusi program tsb adalah x=35 dan y=20

Jawaban: B

Soal No.33

Potongan Algoritma

procedure cetak(a:byte);

begin

  while a>0 do

  begin

     write(a mod 2);

     a := a shr 1;

  end;

end;

Prosedur yang dipanggil dengan parameter 123(cetak(13)) akan mencetak..

Pembahasan: 

Alurnya seperti berikut:

  cetak(13)

  a=13, a > 0 --> write 1

                  a=13 shr 1 = 00001101 --> 110 = 6

  a=6,  a > 0 --> write 0

                  a=6 shr 1  = 00000110 --> 11 = 3

  a=3,  a > 0 --> write 1

                  a=3 shr 1  = 00000011 --> 1 = 1

  a=1,  a > 0 --> write 1

                  a=1 shr 1  = 00000001 --> 0 = 0

  a=0,  

parameter 123 digunakan untuk membuat Tampilan Terformat

Untuk mengatur bentuk tampilan dari tampilan default ke bentuk yang diinginkan atau Batasan cetak 

Parameter Char:n

Batasan cetak/ bentuk tampilan/ jarak tampil data char 

Contoh program :

Var

Ket1, Ket2 : char ;

Begin

 Ket1 : = ‘A’ ;

 Ket2 : = ‘B’ ;

 Writeln (Ket1 : 5, Ket2 : 3);

End.

Output program :

bbbbAbbB

* ket : b = blank    

·         Parameter String:n

Batasan cetak/ bentuk tampilan/ jarak tampil data string

·         Parameter Boolean:n

Batasan cetak/ bentuk tampilan/ jarak tampil data Boolean

·         Parameter Integer:n

Batasan cetak/ bentuk tampilan/ jarak tampil data Integer

·         Parameter Real:n:m

Batasan cetak/ bentuk tampilan/ jarak tampil data Real

Jadi hasil cetakan yang mungkin dan benar adalah 1111011

Jawaban: D

Soal No.34

Suatu array berindeks dari 2 s.d. 10 dan setiap elemennya berisi huruf-huruf berurutan dari  ‘a’ sampai ‘j’. Suatu algoritma bekerja pada array tersebut sbb. (Prosedur swap(a,b) adalah menukarkan harga a dan b)

   For I := 1 to 10 do

      Swap(X[i],X[10-i+1]);

   For I := 1 to 10 do write(X[i]);

Hasil yang dicetak adalah…

Pembahasan:

Array 

Langkah for I dan swap

   

   swap
  
   I ke-
   X[i]
   X[10-i+1]
  
   1
   X[1]=j
   X[10]=a
  
   2
   X[2]=i
   X[9]=b
  
   3
   X[3]=h
   X[8]=c
  
   4
   X[4]=g
   X[7]=d
  
   5
   X[5]=f
   X[6]=e
  
   6
   X[6]=f
   X[5]=e
  
   7
   X[7]=g
   X[4]=d
  
   8
   X[8]=h
   X[3]=c
  
   9
   X[9]=i
   X[2]=b
  
   10
   X[10]=j
   X[1]=a
  

Tercetak dari i=1 sampai 1=10

Jawaban: A

Soal No.35

For I := 2 to 9 do

      Swap(X[i-1],X[i+1]);

   For I := 1 to 10 do write(X[i]);

Hasil yang dicetak adalah…

Pembahasan:

Array 

Langkah for I dan swap

   

   swap
  
   I   ke-
   X[i-1]
   X[i+1]
  
   2
   X[1]=c
   X[3]=a
  
   3
   X[2]=d
   X[4]=b
  
   4
   X[3]=e
   X[5]=a
  
   5
   X[4]=f
   X[6]=b
  
   6
   X[5]=g
   X[7]=a
  
   7
   X[6]=h
   X[8]=b
  
   8
   X[7]=i
   X[9]=a
  
   9
   X[8]=j
   X[10]=b
  

Tercetak dari i=1 sampai 1=10

Jawaban: D

Soal No.36

Array Seperti soal no.34

Bekerja pada algoritma

 Procedure lagi(a:integer; b:integer);

 Var t:integer;

 Begin

    t:=(a+b)div 2;

    if(a<=b) then begin

       write(x[t]);

       lagi(a,t-1);

       lagi(t+1,b);

    end;

 End;

Maka, pemanggilan lagi(1,10) akan mencetakkan keluaran:…

Pembahasan:

Lagi(a,b)	t:=(a+b)div 2	a < b	write(x[t])	lagi(a,t-1)	lagi(t+1,b)
Lagi(1,10)	t=11 div 2=5	1 <10	x[5]=’e’	Lagi(1,4)
Lagi(1,4)	t=5 div 2=2	1<5	x[2]=’b’	Lagi(1,1)
Lagi(1,1)	t=1 div 2=1		x[2]=’a’

Bila Anda kesulitan melanjutkan pengerjaan soal ini,hentikan. Coba Anda cocokkan jawaban yang 3 karakter depannya adalah “eba”.

Ada bukan?dan hanya satu pilihan.

Jawaban :A

Soal No.37

Pembahasan:soal no.37,38,39

  sum :=0;

  //inisialisasi I à i := 2;

  while i < 31 do à hargabatas = 31 agar dapat mengakses dari 1 s.d 30

  begin

     sum := sum + tabeldata[i];

      //increment i à  i := i + 2;

  end;

  writeln(sum);

end.

Jawaban: C

Soal No.38

Jawaban: D

Soal No.39

Jawaban: A

Soal No.40

Pembahasan

 2+ 4+ 6+ 8+10 = 30

12+14+16+18+20 = 80

22+24+26+28+30 =130 +

240

Jawaban: A

Mohon dikoreksi Bila ada kesalahan... trims

Semoga bermanfaat...

	swap
I ke-	X[i]	X[10-i+1]
1	X[1]=j	X[10]=a
2	X[2]=i	X[9]=b
3	X[3]=h	X[8]=c
4	X[4]=g	X[7]=d
5	X[5]=f	X[6]=e
6	X[6]=f	X[5]=e
7	X[7]=g	X[4]=d
8	X[8]=h	X[3]=c
9	X[9]=i	X[2]=b
10	X[10]=j	X[1]=a

	swap
I ke-	X[i-1]	X[i+1]
2	X[1]=c	X[3]=a
3	X[2]=d	X[4]=b
4	X[3]=e	X[5]=a
5	X[4]=f	X[6]=b
6	X[5]=g	X[7]=a
7	X[6]=h	X[8]=b
8	X[7]=i	X[9]=a
9	X[8]=j	X[10]=b