PEMERINTAH KOTA PASURUAN DINAS PENDIDIKAN DAN KEBUDAYAAN
SMK NEGERI 1
Jalan Veteran 11 Pasuruan, Kodepos 67122 Telp/Fax (0343) 421380 Website : www.smkn1-pasuruan.sch.id, Email : smk1pasuruan@yahoo.com
RENCANA PELAKSANAAN PEMBELAJARAN (RPP) KODE : 001 Mata Pelajaran Kelas/Prog. Keahlian Semester Alokasi waktu STANDAR KOMPETENSI KOMPETENSI DASAR INDIKATOR : Dasar Pemrograman : X / Rekayasa Perangkat Lunak :2 : 16 x 45 menit (2 x Pertemuan) Dasar Pemrograman Menjelaskan Varian dan Invarian Tipe data, variabel konstanta, dan parameter yang berlaku umum pada pemrograman yang dijelaskan Tipe data baru dari tipe data yang ada dibuat dan dijelaskan pemanfaatannya Pemakaian nama pada tipe data, variabel, konstanta dan parameter dijelaskan
A. TUJUAN PEMBELAJARAN Setelah mengikuti kegiatan pembelajaran diharapkan siswa dapat : 1. Menjelaskan tipe-tipe data 2. Menjelaskan tipe data dasar dan bentukan. 3. Menjelaskan penamaan variabel dan konstanta 4. Menjelaskan pemberian harga variabel 5. Menunjukkan penggunaan variabel pada program B. MATERI PEMBELAJARAN 1. Jenis tipe-tipe data 2. Penamaan variabel dan konstanta 3. Penentuan tipe data pada variabel dan konstanta dalam program C. METODE PEMBELAJARAN 1. Ceramah 2. Diskusi (Tanya jawab) 3. Praktik D. LANGKAH – LANGKAH KEGIATAN PEMBELAJARAN Pertemuan ke – 1 : (8 jam = 360 menit) 1. Kegiatan Awal - Penciptaan ketertiban suasana belajar - Berdoa bersama - Absensi - Penjelasan mengenai tujuan pembelajaran - Tanya jawab 2. Kegiatan Inti - Sebelumnya siswa sudah mempelajari materi jenis tipe-tipe data pada modul - Menjelaskan tipe-tipe data - Menjelaskan tipe data dasar dan bentukan - Membentuk kelompok praktik, setiap 1 (satu) Personal Computer (PC) digunakan 2 siswa dan bila kelebihan 1 (satu) siswa disuruh bergabung ke kelompok lain
03.KUR.RPP.05 Rev.00_Tgl12.07.07
3. Kegiatan Akhir - Melakukan pengecekan pada hasil praktik siswa (kelompok) - Kegiatan Refleksi - Penutup (berdoa bersama) Pertemuan ke – 2 : (8 jam = 360 menit) 1. Kegiatan Awal - Penciptaan ketertiban suasana belajar - Berdoa bersama - Absensi - Penjelasan mengenai tujuan pembelajaran - Tanya jawab 2. Kegiatan Inti - Sebelumnya siswa sudah mempelajari materi variabel dan konstanta pada modul - Menjelaskan penamaan variabel dan konstanta - Menjelaskan pemberian harga variabel - Menunjukkan penggunaan variabel pada program - Membentuk kelompok praktik, setiap 1 (satu) Personal Computer (PC) digunakan 2 siswa dan bila kelebihan 1 (satu) siswa disuruh bergabung ke kelompok lain 3. Kegiatan Akhir - Melakukan pengecekan pada hasil praktik siswa (kelompok) - Kegiatan Refleksi - Penutup (berdoa bersama) E. ALAT DAN SUMBER BELAJAR ALAT : 1. White board, spidol dan penghapus 2. Komputer beserta kelengkapannya 3. LCD SUMBER BELAJAR : 1. Buku Pemrograman Turbo Pascal (Oleh Jogiyanto HM, Penerbit : ANDI Yogyakarta ) 2. Modul pembelajaran pemrograman & Turbo Pascal F. PENILAIAN Teknik Penilaian Dengan menggunakan ranah kognitif, afektif, dan psikomotor Bentuk Instrumen Kemampuan penguasaan materi (tertulis) Mengerjakan tugas di komputer (kinerja) Instrumen Kemampuan penguasaan materi diberi soal tes Kinerja dalam penentuan tipe data, penamaan dan pemberian nilai variabel pada program, serta pengoperasian software Turbo Pascal
A. Soal tes kemampuan penguasaan materi : 1. Sebutkan jenis tipe-tipe data dan rentang nilainya (minimal 3 tipe data) ! 2. Jelaskan penggunaan variabel dengan tipe data Integer, Real, dan Char ! 3. Tuliskan cara penulisan variabel dan tipe data pada software Turbo Pascal ! B. Tugas Praktik (Kelompok) : - Buatlah perhitungan matematika sederhana (pengurangan, penambahan, pembagian dan perkalian) ! Kriteria Penilaian dan Kunci Jawaban: A. Soal tes kemampuan penguasaan materi : 1. Skor maksimal = 3
03.KUR.RPP.05 Rev.00_Tgl12.07.07
Tipe Integer Real Byte Longint
Rentang Nilai -32768 .. 32767 2.9 x 10 -39 .. 1.7 x 10 38 0 .. 255 -2147483648 .. 2147483647
2. Skor maksimal = 4 a. Tipe Integer digunakan jika bilangan yang diinginkan dalam operasi pemrograman bernilai bulat. b. Tipe Real digunakan jika bilangan yang diinginkan dalam operasi pemrograman bernilai pecahan/desimal. c. Tipe Char digunakan dalam operasi pemrograman untuk memasukkan /menampilkan semua huruf dalam alphabet (a .. z, A .. Z), angka desimal (0 .. 9). Operator aritmatika, tanda baca, dan karakter lainnya yang terdapat dalam daftar ASCII. 3. Skor maksimal = 3 Uses crt; Var x : Integer; y : Real; z : Char; B. Tugas Praktik (Kelompok) : Penilaian Kinerja dan Aspek Ilmiah Skor Perolehan Kelompok Sangat Kurang Cukup Baik Sangat Kurang Baik (1) (2) (3) (4) (5)
No 1. 2. 3. 4. 5. 6. 7.
Aspek Penilaian Kesungguhan dalam melakukan kegiatan (kedisiplinan) Kejujuran Ketelitian dalam mengerjakan program Penggunaan waktu secara efektif Mengakses dan mengorganisir informasi (kerja sama) Tanggung jawab Memecahkan masalah
Catatan : Berikan tanda cek list ( √ ) untuk setiap penampilan dari setiap tindakan yang dilakukan kelompok (skor perolehan kelompok).
Jumlah skor yang diperoleh Nilai (N) = 35 x 10
Kunci : Uses crt; Var x : Integer; y : Integer; z : Integer; begin clrscr; write (’Masukkan nilai x = ’); readln (x); write (’Masukkan nilai y = ’); readln (y); z := x + y; {operasi matematika yang lain tinggal mengganti tanda operasinya} write (’Nilai z adalah ’, z);
03.KUR.RPP.05 Rev.00_Tgl12.07.07
readln; end.
Waka Kurikulum,
Guru Mata Diklat/Pelajaran,
Sofiyah, S.Pd. NIP. 130880542
Didik Suryawan, S.Pd., MT. & Wahyu Wijaya NIP. 132212382
Mengetahui : Kepala Sekolah,
Drs. Supriyadi, M.M. NIP. 131791042
03.KUR.RPP.05
Rev.00_Tgl12.07.07
PEMERINTAH KOTA PASURUAN DINAS PENDIDIKAN DAN KEBUDAYAAN
SMK NEGERI 1
Jalan Veteran 11 Pasuruan, Kodepos 67122 Telp/Fax (0343) 421380 Website : www.smkn1-pasuruan.sch.id, Email : smk1pasuruan@yahoo.com
RENCANA PELAKSANAAN PEMBELAJARAN (RPP) KODE : 002 Mata Pelajaran Kelas/Prog. Keahlian Semester Alokasi waktu STANDAR KOMPETENSI KOMPETENSI DASAR INDIKATOR : Dasar Pemrograman : X / Rekayasa Perangkat Lunak :2 : 16 x 45 menit (2 x Pertemuan) Dasar Pemrograman Membuat logika alur pemrograman Algoritma dengan skema program sekuensial dibuat Algoritma dengan skema program percabangan dibuat Algoritma dengan skema program pengulangan dibuat
A. TUJUAN PEMBELAJARAN Setelah mengikuti kegiatan pembelajaran diharapkan siswa dapat : 1. Menuliskan algoritma runtunan 2. Menuliskan algoritma pemilihan if-then dan if then-else 3. Menuliskan algoritma pengulangan while-do, do-while, switch-case, repeat N-times 4. Menggambarkan diagram alir untuk algoritma runtunan, pemilihan dan pengulangan B. MATERI PEMBELAJARAN 1. Algoritma runtunan 2. Algoritma pemilihan 3. Algoritma pengulangan C. METODE PEMBELAJARAN 1. Ceramah 2. Diskusi (Tanya jawab) 3. Praktik
D. LANGKAH – LANGKAH KEGIATAN PEMBELAJARAN Pertemuan ke-1: (8 jam = 360 menit) 1. Kegiatan awal - Penciptaan ketertiban suasana belajar - Berdoa bersama - Absensi - Penjelasan mengenai tujuan pembelajaran - Tanya jawab 2. Kegiatan Inti - Menuliskan algoritma runtunan - Menuliskan algoritma pemilihan if-then dan if then-else - Membentuk kelompok praktik (penugasan) 3. Kegiatan akhir - Melakukan pengecekan pada hasil praktik siswa - Penutup (berdoa bersama)
03.KUR.RPP.05
Rev.00_Tgl12.07.07
Pertemuan ke-2: (8 jam = 360 menit) 1. Kegiatan awal - Berdoa bersama - Absensi - Tanya Jawab 2. Kegiatan Inti - Menuliskan algoritma pengulangan while-do, do-while, switch-case, repeat Ntimes - Menggambarkan diagram alir untuk algoritma runtunan, pemilihan dan pengulangan - Membentuk kelompok praktik (penugasan) 3. Kegiatan akhir - Melakukan pengecekan pada hasil praktik siswa - Penutup (berdoa bersama) E. ALAT DAN SUMBER BELAJAR ALAT : 1. White board, spidol dan penghapus 2. Komputer beserta kelengkapannya 3. LCD SUMBER BELAJAR : 1. Buku ajar pemrograman pascal (Turbo Pascal oleh Jogianto, Penerbit : ) 2. Modul ajar
F. PENILAIAN Tehnik Penilaian Praktik Bentuk Instrumen Mengerjakan tugas di komputer Instrumen Penugasan pembuatan algoritma dan diagram alir untuk runtunan, pemilihan dan pengulangan
A. Soal tes kemampuan penguasaan materi : 1. Buatlah algoritma dan diagram alir (flowchart) untuk menampilkan nama anda sebanyak 10 baris ke bawah menggunakan perintah For 2. Buatlah algoritma dan diagram alir (flowchart) untuk menampilkan ” Sangat Baik” apabila nilainya 85-100; ”Baik” apabila nilainya 70-84; ”Cukup” apabila nilainya 60-69; ”Kurang” apabila nilainya 0-59; Menggunakan perintah If B. Tugas Praktik (Kelompok) : 1. Buatlah program menggunakan turbo pascal 7.0 untuk menampilkan nama anda sebanyak 10 baris ke bawah menggunakan perintah For 2. Buatlah program menggunakan turbo pascal 7.0 untuk menampilkan ” Sangat Baik” apabila nilainya 85-100; ”Baik” apabila nilainya 70-84; ”Cukup” apabila nilainya 60-69; ”Kurang” apabila nilainya 0-59; Menggunakan perintah If
Kriteria Penilaian dan Kunci Jawaban: A. Soal tes kemampuan penguasaan materi : 1. Skor maksimal = 5
03.KUR.RPP.05 Rev.00_Tgl12.07.07
Langkah 1 : Mulai Langkah 2 : Tentukan nilai awal a = 0 Langkah 3 : Tampilkan nama Langkah 4 : a = a + 1 Langkah 5 : Periksa apakah a sudah = 11 ? Jika belum maka kembali ke langkah 3; Jika sudah lanjutkan ke langkah 6 Langkah 6 : Selesai 2. Skor maksimal = 5 Langkah 1 : Mulai Langkah 2 : Masukkan nilai Langkah 3 : Periksa nilai Jika nilainya > 85, maka tampilkan ”Sangat Baik” Jika nilainya > 70, maka tampilkan ”Baik” Jika nilainya > 60, maka tampilkan ”Cukup” Jika nilainya > 0, maka tampilkan ”Kurang” Langkah 4 : Selesai
B. Tugas Praktik (Kelompok) : Penilaian Kinerja dan Aspek Ilmiah Skor Perolehan Kelompok Sangat Kurang Cukup Baik Sangat Kurang Baik (1) (2) (3) (4) (5)
No 1. 2. 3. 4. 5. 6. 7.
Aspek Penilaian Kesungguhan dalam melakukan kegiatan (kedisiplinan) Kejujuran Ketelitian dalam mengerjakan program Penggunaan waktu secara efektif Mengakses dan mengorganisir informasi (kerja sama) Tanggung jawab Memecahkan masalah
Catatan : Berikan tanda cek list ( √ ) untuk setiap penampilan dari setiap tindakan yang dilakukan kelompok (skor perolehan kelompok).
Jumlah skor yang diperoleh Nilai (N) = 35 Kunci : 1. var
a : integer; begin for a := 1 to 10 do write (’Susilo’); readln; end.
x 10
2. var
nilai : integer; begin write if nilai if nilai if nilai if nilai readln; end. (’Masukkan nilai : ’); readln (nilai); > 85 then write (’Sangat Baik’) else > 70 then write (’Baik’) else > 60 then write (’Cukup’) else > 0 then write (’Kurang’);
03.KUR.RPP.05
Rev.00_Tgl12.07.07
Verifikator,
Guru Mata Diklat/Pelajaran
Didik Suryawan, S.Pd., MT NIP. 132212382
Didik Suryawan, S.Pd., MT/Wahyu Wijaya NIP. 132212382
Mengetahui: Waka Kurikulum,
Sofiyah, S.Pd NIP. 130880542
03.KUR.RPP.05
Rev.00_Tgl12.07.07
PEMERINTAH KOTA PASURUAN DINAS PENDIDIKAN DAN KEBUDAYAAN
SMK NEGERI 1
Jalan Veteran 11 Pasuruan, Kodepos 67122 Telp/Fax (0343) 421380 Website : www.smkn1-pasuruan.sch.id, Email : smk1pasuruan@yahoo.com
RENCANA PELAKSANAAN PEMBELAJARAN (RPP) KODE : 003 Mata Pelajaran Kelas/Prog. Keahlian Semester Alokasi waktu STANDAR KOMPETENSI KOMPETENSI DASAR INDIKATOR : Dasar Pemrograman : X / Rekayasa Perangkat Lunak :2 : 32 x 45 menit (4 x Pertemuan) Dasar Pemrograman Menerapkan pengelolaan array Algoritma dibuat dengan array satu dimensi Algoritma pencarian data dan algoritma pengurutan data (sorting) dibuat dengan menggunakan array
A. TUJUAN PEMELAJARAN Setelah mengikuti kegiatan pembelajaran diharapkan siswa dapat : 1. Mendefinisikan array 2. Menginisialisasi array 3. Menulis elemen array ke piranti keluaran 4. Menulis harga tertentu di dalam array 5. Mencari harga maksimum array 6. Menggunakan elemen array B. MATERI PEMBELAJARAN 1. Jenis dan inisialisasi array 2. Pemrosesan array C. METODE PEMBELAJARAN 1. Ceramah 2. Diskusi 3. Praktek D. LANGKAH – LANGKAH KEGIATAN PEMBELAJARAN Pertemuan ke-1: (8 jam = 360 menit) 1. Kegiatan awal - Berdoa bersama - Absensi - Tanya Jawab
2. Kegiatan Inti - Mendefinisikan array - Menginisialisasi array - Membentuk kelompok praktik (penugasan) 3. Kegiatan akhir - Melakukan pengecekan pada hasil praktik siswa - Penutup (berdoa bersama) Pertemuan ke-2: (8 jam = 360 menit) 1. Kegiatan awal
03.KUR.RPP.05 Rev.00_Tgl12.07.07
-
Berdoa bersama Absensi Tanya Jawab
2. Kegiatan Inti - Membuat progam untuk menulis ke file - Membuat progam untuk menutup file - Membentuk kelompok praktik (penugasan) 3. Kegiatan akhir - Melakukan pengecekan pada hasil praktik siswa - Penutup (berdoa bersama) Pertemuan ke-3: (8 jam = 360 menit) 1. Kegiatan awal - Berdoa bersama - Absensi - Tanya Jawab 2. Kegiatan Inti - Mencari harga maksimum array - Membentuk kelompok praktik (penugasan) 3. Kegiatan akhir - Melakukan pengecekan pada hasil praktik siswa - Penutup (berdoa bersama) Pertemuan ke-4: (8 jam = 360 menit) 1. Kegiatan awal - Berdoa bersama - Absensi - Tanya Jawab 2. Kegiatan Inti - Menggunakan elemen array - Membentuk kelompok praktik (penugasan) 3. Kegiatan akhir - Melakukan pengecekan pada hasil praktik siswa - Penutup (berdoa bersama) E. ALAT DAN SUMBER BELAJAR ALAT : 1. White board, spidol dan penghapus 2. Komputer beserta kelengkapannya 3. LCD SUMBER BELAJAR : 1. Buku ajar pemrograman pascal (Turbo Pascal oleh Jogianto, Penerbit : ) 2. Modul ajar F. PENILAIAN Tehnik Penilaian Praktik Bentuk Instrumen Mengerjakan tugas di komputer Instrumen Penugasan mendefinisikan dan menginisisalisasi array, dan menggunakan elemen array
A. Tugas Praktik (Kelompok) : 1. Buatlah program menggunakan bahasa pemrograman turbo pascal 7.0 untuk menyimpan data nilai siswa menggunakan array? 2. Buatlah program menggunakan bahasa pemrograman turbo pascal 7.0 untuk mencari bilangan prima dengan array?
03.KUR.RPP.05 Rev.00_Tgl12.07.07
3. Buatlah program menggunakan bahasa pemrograman turbo pascal 7.0 untuk mengurutkan data menggunakan bubble sort? Kriteria Penilaian dan Kunci Jawaban: A. Tugas Praktik (Kelompok) : Penilaian Kinerja dan Aspek Ilmiah Skor Perolehan Kelompok Sangat Kurang Cukup Baik Sangat Kurang Baik (1) (2) (3) (4) (5)
No 1. 2. 3. 4. 5. 6. 7.
Aspek Penilaian Kesungguhan dalam melakukan kegiatan (kedisiplinan) Kejujuran Ketelitian dalam mengerjakan program Penggunaan waktu secara efektif Mengakses dan mengorganisir informasi (kerja sama) Tanggung jawab Memecahkan masalah
Catatan : Berikan tanda cek list ( √ ) untuk setiap penampilan dari setiap tindakan yang dilakukan kelompok (skor perolehan kelompok).
Jumlah skor yang diperoleh Nilai (N) = 35 Kunci : 1. Uses Crt;
Var NPM : array[1..20] of string[10]; Nama : array[1..20] of string[25]; Nilai : array[1..20] of real; banyak,i : integer; Begin ClrScr; Write('Isi berapa data array yang :');Readln(banyak); For i := 1 to banyak Do Begin Write('NPM =');Readln(NPM[i]); Write('Nama =');readln(Nama[i]); Write('Nilai=');readln(Nilai[i]); End; {cetak varibel array} Writeln('NPM NAMA NILAI '); For i:= 1 to banyak Do Begin Writeln(Npm[i]:10,Nama[i]:25,Nilai[i]:3:2); End; Readln; End. diperlukan
x 10
2. Program Mencari_Bilangan_Prima_Dengan_Array;
Uses Crt; Var Prima : Array[1..100] of Integer; i,j : Integer; bil : Integer; Begin ClrScr; For i := 2 to 100 Do Begin 03.KUR.RPP.05 Rev.00_Tgl12.07.07
Prima[i]:=i; For j:= 2 to i-1 Do Begin bil := (i mod j); If bil = 0 then Prima[i]:=0; End; If Prima[i]<> 0 Then Write(Prima[i],' '); End; Readln; End.
3. Program Penggunaan_Array_Untuk_Sortir_Buble_Sort;
Uses Crt; Var nil1 : Array[1..100] of Integer; n,i,j,dum : Integer; Begin ClrScr; Write('mau isi berapa data acak (integer) ='); readln(n); For i := 1 to n Do Begin Write('Data Ke ',i,':');Readln(nil1[i]); End; {* penyapuan proses} for i:= 1 to n-1 do begin for j:= i to n do begin if nil1[j]