Soal Algoritma & Pemograman

Berikut ini adalah contoh soal Algoritma dan Pemograman dengan menggunakan Pascal


Latihan

 1. Buatlah prosedur untuk menambahkan 2 buah bilangan. Deklarasikan sebuah prosedur untuk menambahkan 2 buah bilangan dan untuk menyimpan hasilnya.
Output yang diinginkan :

Penyelsesaian

program proc_rerata2bilangan;
uses
 wincrt;
Var
 Bil1, Bil2,Hasil : real;

 procedure Tambah(a,b: real; var Result : real);
 Begin
      Result := a + b;  
 End;

Begin
 Write('Masukkan Bilangan 1 : ');
 readln(Bil1);
 Write('Masukkan Bilangan 2 : ');
 readln(Bil2);

 Tambah(Bil1,Bil2,Hasil);

 Writeln('Hasil Penjumlahan 2 Bilangan : ', Hasil:2:0);
 Writeln('Rata ratanya adalah : ', Hasil/2:1:1);
End.






 
 2.    Buatlah prosedur untuk menghitung luas Lingkaran

Penyelesaian :

PROGRAM
 luas_lingkaran;
USES
 wincrt;
var
 r : integer;
 luas : real;

procedure hitung_luas(r : integer);
Begin
 luas := 3.14 * sqr(r);
 writeln('Luas = ', luas:0:2);
End;

procedure input_data;
Begin
 write('Inputkan nilai r : ');
 readln(r);
End;


BEGIN
 input_data;
 hitung_luas(r);

 hitung_luas(7);

END.

3.    Dengan menggunakan prosedur yang sama seperti pada soal No 1, modifikasilah blok pendeklarasian variabel global dan blok program utama diatas agar mampu menghitung rata rata dari 4 buah bilangan ( Ingat, deklarasi prosedur biarkan tetap sama). Ini akan melatih anda bagaimana teknik pemanggilan prosedur dalam Blok program utama.
Output yang diinginkan :

 

 Penyelsesaian

program proc_rerata4bilangan;
uses
 wincrt;
Var
 Bil1, Bil2, Bil3, Bil4,Hasil : real;

 procedure Tambah(a,b: real; var Result : real);
 Begin
      Result := a + b;  
 End;

Begin
 Write('Masukkan Bilangan 1 : ');
 readln(Bil1);
 Write('Masukkan Bilangan 2 : ');
 readln(Bil2);
 Write('Masukkan Bilangan 3 : ');
 readln(Bil3);
 Write('Masukkan Bilangan 4 : ');
 readln(Bil4);

 Tambah(Bil1,Bil2,Hasil);
 Tambah(Hasil,Bil3,Hasil);
 Tambah(Hasil,Bil4,Hasil);

 Writeln('Hasil Penjumlahan 4 Bilanagn : ', Hasil:2:0);
 Writeln('Rata ratanya adalah : ', Hasil/4:2:0);
End.


4.    Buatlah sebuah program yang menampilkan deret bilangan dari mulai 1 sampai dengan N, dan deklarasikan sebuah prosedur yang mampu mengklasifikasikan bilangan tersebut masuk kedalam kategori bilangan Genap atau Ganjil.
Output yang diinginkan :






Penyelsesaian

program proc_Klasifikasi_Deret;
uses
 wincrt;
Var
 Kategori : String;
 i,N : integer;


 procedure Klasifikasikan(a : integer; Var result : String);
 Begin
      If a mod 2 = 0 then
         result := 'GENAP'
      Else  
         result := 'GANJIL';
 End;

Begin
 Write('Masukkan nilai Maksimum Deret : ');
 readln(N);

 For i := 1 to N do
 Begin
   write(' ( ',i);
   Klasifikasikan(i,Kategori);
   write('-',Kategori,' )');
 End;

End.

Download Buku Panduan Teknik Sepeda Motor untuk SMK

Buku Teknik Sepeda Motor jilid 1, 2, dan 3 untuk SMK ini disusun sesuai dengan kebutuhan kurikulum SMK Tahun 2004, Kurikulum Berbasis Kompetensi (KBK) dan serta KTSP, dalam bidang Teknologi Sepeda Motor pada jurusan Otomotif. Sesuai dengan prinsip KBK, maka tidak perlu dihindari bahwa substansi isi pelajaran tidak lepas dari kenyataan dunia teknologi sepeda motor di Indonesia yang didmonasi oleh Honda, Yamaha, Suzukidan Kawasaki, di samping beberapa merek lain seperti Vespa dan lain-lainnya. Isi buku ini terutama dimaksudkan untuk membantu para siswadalam mempelajari dasar-dasar konstruksi dan proses motor bakar. Uraian sudah diupayakan sesederhana mungkin sehingga mudah untuk dipahami.

Sebelum memulai bekerja atau melakukan praktek motor, maka seseorang haruslah terlebih dahulu mengenal dan memahami keselamatan keja, fungsi serta bagaimana cara bekerja dengan peralatan dan komponen sepeda motor. Oleh karena itu, maka buku Teknik Sepeda Motor jilid 1, 2, dan 3 untuk SMK ini juga dapat dipakai pada kursus-kursus dan bahkan para peminat sepeda motor sebagai acuanl untuk hobi atau dapat menjadi teknisi yang profesional.

Dalam buku Teknik Sepeda Motor jilid 1, 2, dan 3 untuk SMK yang sederhana ini tentu saja tidak dapat memenuhi seluruh konsepdanprinsip berbagai merek sepeda motor yang sangat bervariasi, model dan tipe. Prinsip kerja dan teknologinya umumnya tidak banyak berbeda. Untuk keperluan khusus, para peminat dianjurkan merujuk pada buku petunjuk yang dikeluarkan oleh masing-masing merek, seperti Honda, Yamaha, Suzuki, Kawasaki dan lainnya. Kemajuan vi teknologi yang sangat cepat menyebabkan perubahan dan inovasi yang terus menerus terutama pada sistem kelistrikan elektronika dan dan sistem pembakaran.

Download Teknik Sepeda Motor Jilid 1 untuk SMK Kelas 10 oleh oleh Jalius Jama, Wagino.
Download Teknik Sepeda Motor Jilid 2 untuk SMK Kelas 11 oleh oleh Jalius Jama, Wagino.
Download Teknik Sepeda Motor Jilid 3 untuk SMK Kelas 10 oleh oleh Jalius Jama, Wagino.

Akibat dan Bahaya serta Efek Merokok

Rokok dapat memberi efek nikmat, santai dan ketenangan. Namun rokok juga akan membawa bahaya dan efek tidak baik terhadap tubuh, keluarga dekat, masyarakat, lingkungan dan tentunya juga perekonomian.

Setelah menyala, sebatang rokok dapat mencapai suhu hampir 2.000 derajat Fahrenheit. Panas tinggi ini membantu melepaskan ribuan senyawa kimia, termasuk racun seperti karbon monoksida dan hidrogen sianida, sedikitnya 43 karsinogen, dan berbagai mutagen. Semua ini dapat ditarik ke dalam tubuh ketika seorang perokok menghirup. Lebih dari 4.000 bahan kimia yang terdapat pada sebatang rokok, dimana 200 diantaranya beracun dan 43 jenis lainnya dapat menyebabkan kanker bagi tubuh. Sedangkan racun utama pada rokok adalah tar, nikotin, dan karbon monoksida.

a) Nikotin

Nikotin ditemukan secara alami dalam tanaman tembakau, tidak memiliki bau dan tanpa warna. Nikotin merupakan zat adiktif yang dapat menyebabkan kecanduan dan mempengaruhi syaraf serta peredaran darah. Zat ini bersifat karsinogen, dan mampu memicu terjadinya kangker paru-paru.

Nikotin masuk kedalam tubuh dalam bentuki tetesan kecil yang bertumpu pada partikel tar dalam asap rokok. Saat dihirup ke dalam paru-paru, zat nikotin masuk dengan cepat ke dalam aliran darah hingga mencapai otak dalam waktu sekitar 10 detik. Hanya dalam 5 sampai dengan 10 detik, nikotin telah dapat menyebar ke seluruh bagian tubuh perokok. Dalam waktu singkat nikotin dalam aliran darah segera menimbulkan efek yaitu membuat si perokok merasa lebih konsentrasi dan santai. Namun kurang dari 30 menit, setelah setengah dari nikotin meninggalkan aliran darah, si perokok mulai merasa kurang berkonsentrasi dan lebih tegang. Selanjutnya si perokok akan meraih rokok lagi untuk mendapatkan efek "nikmat" nikotin tersebut. Seiring waktu, para perokok mulai membutuhkan lebih banyak lagi rokok sepanjang harinya untuk memenuhi hasrat kecanduannya.

Nikotin juga merangsang bangkitnya adrenalin hormon dari anak ginjal yang menyebabkan jantung berdebar dan meningkatkan tekanan darah serta kadar kholesterol dalam darah. 

b) Tar

Tar adalah hirokarbon yang bersifat lengket dan menempel pada di pipa bronkiolus yang mengarah ke paru-paru. Penimbunan tar pada saluran tersebut akan menimbulkan batuk-batuk atau sesak napas, sedangkan tar yang menempel di jalan napas dapat menyebabkan kanker jalan napas, lidah atau bibir.

c) Karbon Monoksida

Merokok juga dapat meningkatkan jumlah karbon monoksida di dalam paru-paru. Karbon mono oksida lebih mudah terikat pada hemoglobin daripada oksigen, sehingga mengurangi kapasitas oksigen dalam darah. Oleh sebab itu, darah orang yang kemasukan CO banyak, akan berkurang daya angkutnya bagi oksigen dan orang dapat meninggal dunia karena keracunan karbon mono oksida. Pada seorang perokok tidak akan sampai terjadi keracunan CO, namun pengaruh CO yang dihirup oleh perokok dengan sedikit demi sedikit, dengan lambat namun pasti akan berpengaruh negatif pada jalan napas dan pada pembuluh darah. Meningkatnya level karbon monoksida dalam darah mengakibatkan para perokok harus mengerahkan usaha fisik yang lebih untuk mencapai tugas tertentu dibandingkan bukan perokok, sehingga jantung pun harus bekerja lebih keras.

Penyakit Yang Ditimbulkan oleh Kebiasaan Merokok

Salah satu penyebab utama kematian manusia setiap tahunnya adalah merokok. Kebiasaan merokok selama bertahun-tahun dapat menyebabkan berbagai penyakit, yaitu: 1) berisiko lebih tinggi menderita katarak yang menyebabkan kebutaan; 2) kanker pada mulut, tenggorokan, pita suara, dan esofagus; 3) penyakit gusi, pilek, dan kerongkongan kering; 4) kanker paru-paru; 5) pneumonia, bronkitis, asma, batuk kronis, dan bengek; 6) gagal jantung, serangan jantung, hipertensi, stroke; 7) kanker perut dan kanker lambung; 8) kanker ginjal; 9) kanker pankreas fatal; 10) kemandulan, bayi lahir prematur, bobot kurang, gangguan pernapasan; dan 11) tulang rapuh. Selain itu, penggunaan tembakau berkepanjangan menyebabkan noda jari dan gigi, dan mulut bau.

Merokok dan Efek Keuangannya

Seseorang yang mencoba merokok biasanya akan ketagihan, karena rokok bersifat candu yang sulit dilepaskan dalam kondisi apapun. Akibatnya, seorang rela mengeluarkan banyak uang untuk memuaskan hasratnya untuk merokok.

Merokok adalah urusan mahal, harga rata-rata sebungkus rokok adalah Rp. 10.000,-. Bayangkan seorang perokok membakar tiga bungkus rokok per hari. Ia harus menyisihkan uang sebesar Rp. 30.000,- per harinya untuk membeli rokok , dan Rp. 900.000,- setiap bulannya, serta Rp. 10.800.000,- dalam satu tahun. Sepuluh tahun kedepan, perokok tersebut wajib menyisihkan uang serendah-rendahnya sebesar Rp. 108.000.000,- hanya untuk membeli rokok saja.

Selain itu, biaya untuk perobatan medis juga harus dipersiapkan, sebab perokok cenderung lebih mudah terserang penyakit, mulai dari infeksi saluran pernapasan dan keluhan kecil lainnya seperti pilek dan batuk, sampai dengan penyakit parah seperti penyakit jantung, kanker, penyakit jantung, penyakit paru-paru, masalah pernapasan dan masalah lain yang berkaitan dengan pankreas, ginjal, dan hati.

Kotak Komentar Facebook untuk Ideelok

Download Buku Teknik Budidaya Tanaman untuk SMK

Buku Teknik Budidaya Tanaman Jilid 1, 2, dan 3 yang ditulis oleh Chairani Hanum ini disusun berdasarkan kurikulum berbasis kompetensi. Buku ini berisikan materi pokok teknik budidaya tanaman dengan metode penyajiannya sesuai dengan indikator hasil belajar pada sekolah menengah kejuruan.

Isi buku Teknik Budidaya Tanaman Jilid 1, 2, dan 3 ini dibagi atas 4 (empat ) bagian, yang masing-masing bagian terdiri dari beberapa bab. Bagian I terdiri dari 3 bab yaitu bab Pendahuluan, Pertumbuhan dan Perkembangan (Bab II), serta Fotosintesis dan Respirasi (Bab III). Bagian satu dari buku ini mencoba membahas awal dari kehidupan dan proses dasar metabolisme tanaman.

Sedangkan bagian dua mencoba mengulas sumber hara dan air bagi tanaman bagaimana mereka memperoleh kedua sumberdaya alam ini, mentranslokasikannya serta menggunakan untuk kelangsungan hidupnya.

Bagian tiga dari buku Teknik Budidaya Tanaman Jilid 1, 2, dan 3 ini mencoba memaparkan syarat tumbuh masing masing kelompok tanaman yaitu tanaman hortikultura, tanaman pangan dan tanaman perkebunan. Bagian ini berisi ulasan bagaimana pedoman teknis budidaya masing-masing kelompok tanaman. Walaupun tidak seluruh tanaman di muat teknik budidayanya dalam buku ini setidaknya ketiga bab ini dapat mewakili untuk menuju sistem pertanian yang berkelanjutan, dengan menghasilkan produk unggulan secara kualitas dan kuantitas.

Akhir dari buku Teknik Budidaya Tanaman Jilid 1, 2, dan 3 ini mencoba teknik budidaya alternatif dengan menggunakan media tanam bukan tanah, sistem ini akan memberikan pilihan utama pada peningkatan mutu bahan pangan yang dihasilkan tanpa harus bergantung pada media tanam tanah semata. Pertanian organik yang digalakkan akhir-akhir ini merupakan solusi untuk memecahkan masalah peningkatan produksi pertanian disatu sisi dan pencemaran lingkungan disisi lainnya.

Buku Teknik Budidaya Tanaman Jilid 1, 2, dan 3 ini dirancang agar peserta didik yang membacanya dapat belajar sendiri tidak harus bergantung pada tatap muka di depan kelas. Pada awal setiap bab dimuat pendahuluan untuk dapat lebih memudahkan pemahaman terhadap isi dari bab tersebut.Ilustrasi dan gambar yang digunakan dalam buku Teknik Budidaya Tanaman Jilid 1, 2, dan 3 ini juga diharapkan dapat membantu siswa mempelajari dan mempraktekkan secara baik dan benar.

Download Buku Teknik Budidaya Tanaman Jilid 1

Download Buku Teknik Budidaya Tanaman Jilid 2

Download Buku Teknik Budidaya Tanaman Jilid 3