Soal Latihan Pascal

Buatlah program PASCAL menggunakan seleksi kondisi IF...THEN / IF...THEN...ELSE / CASE .. OF sehingga menampilkan hasil keluaran seperti berikut :



Jika memasukkan pilihan di luar yang ada, tampilannya seperti berikut :



Harga sewa /hari :
Sedan : 300000
Pick Up : 200000
Mini Bus : 800000
Bus : 3000000


Buatlah program PASCAL mencari sisi miring segi tiga siku-siku menggunakan perulangan FOR...TO atau WHILE ... DO sehingga menghasilkan hasil keluaran sebagai berikut :




Di mana : C=sqrt(sqr(A)+sqr(B))

Barisan Fibonacci dengan PASCAL

Barisan angka Fibonacci adalah barisan yang didefinisikan secara rekursif. Perhatikan barisan angka berikut :
0, 1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, 233, 377, 610, 987, 1597, 2584, ...
angka ke 3 dan seterusnya adalah penjumlahan dari dua angka di depannya.
Bagaimana membuatnya dengan PASCAL ?
Logikanya adalah seperti ini :
1. Karena hasil penjumlahan baru dimulai dari angka ke 3 (merupakan penjumlahan angka kesatu dan kedua), maka wakilkan angka pertama dan kedua (misalkan dengan f1 dan f2) dan tampilkan angka pertama dan kedua yaitu 0 dan 1.
2. Buatlah perulangan dari hitungan ke 3 sampai batas yang diinginkan (misalnya sampai 20).
3. Wakilkan juga hasil penjumlahan (misalkan dengan f3) untuk menampung f1+f2
4. Tampilkan f3
5. Sekarang f1 nilainya disamakan dengan f2 (f1=f2) dan f2 sendiri disamakan dengan f3 (f2=f3)
6. Selesailah...

Programnya seperti ini :

program fibonacci;
var
i,f,f1,f2:integer;
begin
clrscr;
writeln('FIBONACCI');
write('0 ');
write('1 ')
f1:=0;
f2:=1;
for i:=3 to 20 do
begin
f:=f1+f2;
write(f,' ')
f1:=f2;
f2:=f;
end;
end.


Tentunya program ini belum 100% berjalan. Beberapa hal kecil saya hapus. Silakan diperbaiki sendiri sambil belajar....(kalau mau,ubah juga ke While maupun repeat)

Penuntun Pascal

Untuk Download Penuntun versi Lengkap, silakan klik disini atau DISINI
Untuk softwarenya bisa di klik DISINI.
Untuk software, setelah di ekstrak, ada dua folder. Folder TP dan TPW. Pilih saja salah satu.

Perulangan Repeat Until

Penuntun Pascal 8 (klik di sini untuk download)

Perulangan While..DO dengan PASCAL

Download Penuntun Pascal 7

PERULANGAN PASCAL (FOR)

Penuntun Pascal 5

KONTROL KENDALI dalam PASCAL 2

Penuntun Pascal 4

KONTROL KENDALI dalam PASCAL 1

Penuntun Pascal 3

PENGANTAR PASCAL 2

Penuntun Pascal 2

PENGANTAR PASCAL 1

Penuntun Pascal 1

Perulangan Menggunakan For

Tulisan kedua tentang Visual Basic 6. Sekarang ingin berbagi tentang perulangan. Kesempatan pertama, mari kita belajar menggunakan For...

1. Gambar dulu sebuah listbox pada form (besarnya terserah...suka dengan kata terserah kalau ditanya siswi). Beri name pada propertiesnya lstCoba (sebenarnya bebas sih namanya). Gambar pula sebuah tombol ("Pak, namanya apa dan besarnya seberapa ?" tanya siswi. "Terserah, yang penting nanti tidak bingung saat menulis kode", jawabku enteng)

2. Saya misalkan, tombol tadi diberi nama cmdUlang. Klik dua kali pada kontrol/tombol tadi. Maka akan muncul layar putih dan sudah tertulis sebagai berikut :
Private sub cmdUlang_clik()


End Sub

3. Diantara Private... dan End Sub, tuliskan kode berikut :
dim i as integer
for i=0 to 10
list1.additem i
next i

4. Coba jalankan program tadi, dan telaah hasilnya.
5. Jika ditambahkan perintah step 2 pada baris for, menjadi for i=0 to 10 step 2, apa yang terjadi ?

Latihan :

Buatlah program menggunakan bahasa VB (versi berapa saja), dengan output seperti berikut :



Aturan :
1. Tombol BOSAN : untuk keluar dari aplikasi
2. Tombol HITUNG : akan berefek pada hasil BARAT BADAN IDEAL, status dari berat badan dan menampilkan daftar/list tinggi badan yang dimulai dari Tinggi Badan masukkan sampai 4 cm sesudahnya(cth : jika diinputkan 176, maka akan dimulai dari 176,177,178,179 dan 180)sekaligus berat badan ideal dari masing-masing ketinggian tadi.
3. TOMBOL RESET : membersihkan box Tinggi Badan, Berat Badan dan ListBox
4. Status berat badan :
A. Jika Berat Badan lebih besar atau sama dengan 5 kg dari Berat Ideal : "Anda Gemuk/Gendhut/Banyak Lemak, dsb"
B. Jika Berat Badan lebih kecil atau sama dengan 5 kg dari Berat Ideal : "Anda Kurus/Kerempeng/Balung Thok/Skeleton, dll"
C. Selain itu : "Anda idaman Laki-laki/Perempuan/Banci/Gay/Lesbong,dll di dunia"

Bingung ? Silakan pelajari tentang Seleksi Kondisi/Kontrol Kendali di postingan berikut.

Materi Visual Basic 6 (Kelas XI Sem Genap)

Menulis lagi. Semoga dengan meja baru, semakin rajin untuk menulis terutama bab MAPEL TIK kalau bisa sih berbagi ilmu (lebih tepatnya SALING BERBAGI).
Ok, ini tentang Visual Basic. Materi yang saya berikan sesuai dengan RPP dan Silabus sekolah.
BASIC (Beginners’ All-purpose Symbolic Instruction Code) merupakan bahasa tingkat tinggi (tapi yakinlah..masih lebih sulit adalah bahasa Jawa seri Kromo Inggil).
Balik lagi ke tulisan about VB. Tak perlu dijelaskan panjang lebar. Untuk lebih lengkap about sejarah Bahasa Basic, silakan baca di sini.

Saya hanya akan memberikan tampilan (antar muka) awal dari VB 6. Silakan, sebagai latihan cari nama-nama dan fungsinya (mbah Gugel siap membantu)

Gambar 1 :



Gambar 2 :



Tidak perlu memasukkan sugesti sulit atau memusingkan ke dalam pikiran. Seperti aplikasi produk Microsoft, sebisa mungkin di buat mudah. Demikian juga dengan Visual Basic ini. Control sudah dibuatkan, kita tinggal membuat 'komando' untuk kontrol tersebut. Logikanya juga sederhana. Pikirkan saja, ini ada karena efek dari aksi mana. Nah, kalau ketemu tinggal buat saja code untuk aksi tersebut.

Contohnya adalah begini : Ada dua textbox, satu label dan satu commandbutton. Textbox difungsikan sebagai tempat memasukkan angka, label tempat untuk menampung hasil penjumlahan dari angka yang terdapat di textbox tadi dan tombol difungsikan untuk mencari hasil perhitungan tadi. Jadi, label akan berisi angka hasil penjumlahan karena tombol di klik/tekan. Jadi (lagi), buatlah code-nya untuk tombol, tidak perlu di textbox.
Caranya :
1. Diandaikan 2 textbox tadi pada masing-masing properties bagian name diberi nama txtAngka1 dan txtAngka2, label diberi nama lblHasil dan button/tombol diberi nama cmdHitung.
2. Klik dua kali pada kontrol/tool tombol yang tadi diberi nama cmdHasil tadi (biar gampang, tinggal menuliskan codenya saja)
3. Akan muncul lembar putih seputih salju Kilimanjaro seperti berikut bertuliskan
Private sub cmdHasil_click()

End Sub

"Kepenak mbok ? Maturnuwun nganah maring Bill Gates"

4. Diantara "private.." dan "end sub" tinggal kita tuliskan kodenya (bukan kode buntut lho..), seperti berikut :
lblhasil.caption=val(txtangka1.text)+val(txtangka2.text)
5. Mengapa ada "val" ? Fungsinya adalah untuk merubah angka yang dimasukkan dalam textbox menjadi angka numerik yang bisa digunakan dalam operasi matematis. Coba jika kedua val dihilangkan, wot hepen ? Coba ya..plok..plok...bantu ya....apa yang terjadi ?
6. Perhatikan juga, bahwa tempat menampung hasil (dalam hal ini adalah lblhasil), letaknya selalu di sebelah kiri sama dengan. Ini berlaku untuk semua operasi logika dan aritmatika. Ingat lo ya..ingat lo ya...

Tugas Anda adalah berlatih dan berlatih. Coba buat kalkulator sederhana.

Selanjutnya di pertemuan berikut, saya akan berbagi (karena saya juga mendapatkan gratis) gratis tentang seleksi kondisi/kontrol kendali dan perulangan.

Semoga bermanfaat.

Bahan UKK Kelas X Semester Genap 2010-2011

Tidak terasa, tahun ajaran 2010-2011 sudah akan berakhir. Sudah hampir sampai tahap Ulangan Kenaikkan Kelas, yang untuk SMA Stella Duce 1 Yogyakarta akan dilaksanakan 30 Mei - 8 Juni 2011.
Ya...semoga hasil belajar tahun ajaran ini tidak sia-sia, sehingga hasilnya bisa naik kelas semua.
Berikut bahan UKK Mapel TIK untuk kelas X (semester genap 2010-2011).
1. Sejarah bahasa pemrograman PASCAL
2. Aturan penulisan nama program, variabel dan konstanta
3. Tipe-tipe data
4. Operator logika dan aritmatika
5. Seleksi kondisi IF dan CASE
6. Perulangan FOR, WHILE dan REPEAT
7. Pesan kesalahan dalam PASCAL
8. Membuat program sederhana
9. Fungsi perintah-perintah dasar dalam PASCAL (write,writeln,readln,read,gotoxy,uses,clrscr,dll)
10. Penggunaan tombol-tombol pada papan ketik (hotkey) untuk melakukan sesuatu pada PASCAL
11. FLOWCHART/DIAGRAM ALIR

Angry Bird

Selamat pagi dan selamat berakhir pekan yang sangaaaaaaaaaaaaaat panjang (terutama buat PNS) yang menikmati kebijakan super bejat (menurutku) dari pejabat-pejabat korup di Jakarta (libur bersama kok diputuskan mendadak).
Wes, ra sah dipikir.
Intinya, saya mau membagi sebuah permainan ringan yang mungkin sudah tidak terlalu populer. Tapi rugi jika saya tidak berbagi. Ini game, ceritanya dulu dibuat untuk iPhone. Tapi akhirnya berkembang juga untuk PC/laptop. Cara bermainnya cenderung monoton. Hanya seperti main ketapel dengan 'amunisi' berupa burung-burung yang sedang marah dengan babi yang telah mencuri telur-telurnya. Ada beberapa tingkat dan setiap tingkat terdiri dari puluhan langkah yang harus dilalui.
Beberapa macam burung yang bisa digunakan untuk 'amunisi' :
1. Burung pertama yang ketemu kita adalah berwarna merah. Tidak ada istimewanya sih. Tapi cukup kuat untuk menghancurkan balok kayu atau membuat retak balok beton.
2. Burung berwarna kuning. Keistimewaannya, saat melesat bisa kita percepat lajunya dengan meng-klik kiri mouse sekali. Hati-hati, salah ambil waktu menambah cepat, sasaran bisa meleset. Hanya bisa sekali dilakukan.
3. Burung kecil berwarna biru. Keistimewaannya, saat melesat dengan klik kiri sekali burung ini akan menggandakan diri menjadi 3....
4. Burung berwarna hitam bulat. Sudah tau bentuknya mirip apa ? Ya, bola bowling/bom jaman perangnya VOC. Keistimewaannya yaitu tadi, bisa meledak disasaran. Bisa meledak sendiri atau diledakkan dengan cara klik kiri.
5. Burung berwarna putih gemuk. Mirip angsa. Keistimewaannya, bisa bertelur di udara dan telurnya bisa difungsikan sebagai peledak. Tinggal klik kiri saja saat burung ini ada di udara, maka telur akan meluncur lurus ke bawah...
6. Burung berwarna hijau berparuh panjang. Ini yang agak sulit kendalinya. Saat melayang, dengan klik kiri burung ini bisa berubah bagai bumerang.

Burung lainnya belum mencoba, karena level saya baru sampai enam burung itu. Ada yang mau menambahkan ?
Ada yang belum mencoba ? Silakan download di sini. Cara mainnya gampang. Di sini ada dua folder. Satu folder berisi game, satu lagi berisi file msvcr100.dll yang harus di copykan ke C:windows/system32.
Tidak perlu diinstal. Selamat mencoba

Semua ada dalam namaNya saat Tetap dalam Harapan, Iman dan Kasih....