Ardilliansah's Weblog

Materi Kuliah, 17 Desember 2010

ardilliansah — Sun, 19 Dec 2010 04:43:29 +0000

Review dan Penerapan Procedure dan Function dalam Pascal

Tentu, kita semua masih ingat bahwa pascal adalah bahasa pemrograman yang terstruktur. Untuk itu, algoritma dari program yang akan dibuat dengan bahasa pascal harus jelas proses dan tujuannya. Jadi, program dalam pascal itu haruslah terstruktur dan teratur.

Untuk itu, dalam beberapa jenis progrma yang ditujukan untuk problem solving dari suatu kasus yang rumit, sangat diperlukan untuk memecah program utama kita menjadi sub-sub program dengan menggunakan procedure dan function.

Procedure dan function merupakan sub-program yang memiliki bagian deklarasi dan (begin-end;) tersendiri layaknya suatu program pascal.

Tujuan pemakaian procedure maupun function adalah untuk memecah program kita menjadi

kesatuan logika yang lebih kecil (sub-sub program).

Selain itu, untuk menghindari perulangan pengetikan dan memudahkan pembacaan.

Salah satu contohnya berikut ini dalam menghitung Luas persegi dengan procedure dan Function.

Program dengan Procedure :

program Square;

uses wincrt;

var s,L:integer;

procedure luas;

begin

L:=s*s;

end;

begin

write(‘masukkan sisi = ‘);

readln(s);

luas;

write(‘luasnya =’,L);

end.

Program dengan Function :

program Square;

uses wincrt;

var L,s,sisi:integer;

function luas(s:integer) : real;

begin

luas:=s*s;

end;

begin

write(‘masukkan sisi = ‘);

readln(sisi);

write(‘luasnya =’,luas(sisi):0:3);

end.

Contoh Aplikasi lain yakni untuk meghitung nilai faktorial. Misalnya 5!=5 x 4 x 3 x 2 x 1

Program untuk menghitung nilai faktorial dengan procedure dan function adalah sebagai berikut :

program fact;

uses wincrt;

var hasil,x:integer;

{prosedur}

procedure faktorial;

var i:integer;

begin

hasil:=1;

for i:=x downto 1 do

hasil:=hasil*i;

end;

{program utama}

begin

write(‘Enter the value = ‘);

readln(x);

faktorial;

writeln(x,’! is =’,hasil);

end.

Slide 7

program fact;

uses wincrt;

function factorial(n : integer):longint;

Var i : integer; result : longint;

begin

result:=1;

for i:=n downto 1 do

result:=result*i;

factorial:=result;

end;

var

x : integer;

begin

writeln(‘Enter a value : ‘); readln(x);

writeln(x,’! is ‘,factorial(x));

end.

Selamat mencoba, dan silahkan dipahami tiap langkah dalam program-program di atas. Jika dianggap butuh bimbingan silahkan menghubungi pihak yang berwajib,, hehe.. Boleh lah untuk memberi komentar atau saling berdiskusi.

ya ya,, kurang lengkap tanpa link download..

silahkan jika ingin mengunduh alias men-download file nya di :

http://www.4shared.com/document/juEh7uoi/Presentation_Pascal_Procedure_.html

Salam…

Pengumuman Rekapitulasi Tugas PIK D3 Statistik ITS

ardilliansah — Thu, 09 Dec 2010 06:35:50 +0000

Sahabat Sekalian peserta MK PIK D3 2010 Jurusan Statistika ITS.

(Mohon MAAf jika pengumumannya memang Terlambat,, Maafin ya…)

Setelah mengamati email yang masuk dalam beberapa hari terakhir ini, Kami telah mencatat banyak entitas yang kemudian kami susun dalam beberapa field yang akhirnya melahirkan suatu database mahasiswa yang mengumpulkan ”bingkisan” untuk liburan dengan kategori TEPAT WAKTU (halah,, bahasanya Access bgt,, hehe).

Adapun nama-nama tersebut antara lain :

Tugas Beras Ketan (Ardil)

1310030005

1310030023

1310030009

1310030019

1310030003

1310030015

1310030013

1310030017

1310030001

1310030021

1310030007

1310030025

Tugas Kalkulator (Alifah)

1310030053

1310030055

1310030059

1310030065

1310030069

1310030071

1310030075

1310030077

1310030081

1310030083

1310030085

Tugas Luas Bidang (Diana)

1310030033

1310030041

1310030037

1310030039

1310030043

Beberapa hal yang perlu disampaikan antara lain :

Yang pertama, Bagi yang belum tercantum dalam database di atas, harap segera mengirimkan tugas Anda (masih dengan format yang sama) ke alamat email yang sudah ditentukan untuk masing-masing jenis Tugas (paling lambat Jum’at, 10 Desember 2010 pkl 09:00).

Yang kedua, untuk soal Beras Ketan, berikut saya cantumkan lampirkan salah satu alternatif program pascal-nya. Tidak menutup kemungkinan Sahabat Sekalian bisa meng-improve-nya menjadi lebih catchy lagi.

Lampiran Program :

Program Beras_Ketan;

Uses winCrt;

Var Angka,kg,harga:longint;

x:Char;

Begin

Clrscr;

Writeln(‘Daftar Perhitungan Penjualan Beras dan Ketan’);

Writeln(‘============================================’);

Writeln(‘Jika anda memilih angka 1 = maka daftar beras’);

Writeln(‘Jika anda memilih angka 2 = maka daftar ketan’);

Writeln;

Write(‘Pilihan anda 1 or 2 ?’);Readln(angka);

Writeln;

While (angka<1) or (angka>2) do

begin

Write(‘Mau coba lagi (Y/N) ?’);Readln(x);

if x=’N’ then write(‘Selesai’);

if x=’Y’ then

Write(‘Pilihan anda (1 or 2) ?’); Readln(angka);

end;

Writeln;

Case angka of

1:Begin

Write(‘Berapa kilo beras yang anda beli ?’);Readln(kg);

harga:=kg*900;

Write(‘Anda harus membayar Rp.’,harga);

End;

2:Begin

Write(‘Berapa kilo ketan yang anda beli ?’);Readln(kg);

harga:=kg*1000;

Write(‘Anda harus membayar Rp.’,harga);

End;

Readln;

End.

Contoh Outputnya :

Tugas PIK D3 2010 Jurusan Statistika ITS

ardilliansah — Sat, 04 Dec 2010 09:05:40 +0000

Sahabat Sekalian peserta mata kuliah PIK D3 2010. Sebelumnya saya ucapkan Selamat Datang di blog saya yang msh dalam taraf belajar blogging ini.

Berkenaan dengan Kuliah pada hari Jum’at, 3 Desember 2010 (menurut saya, kuliah kemaren merupakan salah satu suasana kelas yang begitu kondusif,, hhee jujur lho ini pujiannya. Dipertahankan ya untuk minggu depan,, hehe biar Asdosnya juga sedikit lebih ringan kerjanya)

Yang kedua, berkaitan dengan ”bingkisan liburan 1 Muharram”,, beberapa exercise yang diberikan bisa sahabat sekalian kerjakan dengan improvisasi sebaik mungkin, but the most important, kriteria penilaian berupa konten dan tampilan harus tetap dicapai. Program bisa dijalankan sesuai alur yang diharapkan serta tampilan harus catchy (alias easy and interesting to use).

Yang ketiga, Selama beberapa hari (hingga hari Selasa) ini jika mendapati kesulitan memaknai tugas yang diberikan, kami persilahkan untuk meghubungi Yang Berwajib (eits,, bukan Pak Polisi ya,, tapi ke asisten yang bersangkutan à Tugas ”Beras Ketan” ke Ardil, Tugas ”Kalkulator” ke Diana, dan Tugas ”Luas Bangun Datar” ke Alifah.

Yang keempat,, (banyak banget boz pengumumannya,, hhee)

Pengumpulan Terakhir Tanggal 7 Desember 2010 pk. 23:59 via e-mail.

Format Nama File : Nama_NRP_Judul Tugas (format .doc dan pascal)

Format Subject E-mail : Nama_NRP_Judul Tugas

Akhirnya,, sahabat sekalian, kami ucapkan Selamat Berkarya dan Berprestasi merangkai program yang menarik dan handal.

Salam !!

Aku Shock !!!

ardilliansah — Mon, 10 Nov 2008 14:58:56 +0000

Tadi siang ada empat orang mahasiswa yang mendatangi saya. Terus terang, saya bingung waktu itu. Di bagian paling depan, tampak sosok yang sepertinya tidak asing bagi saya. Langkahnya sedikit terburu-buru, sambil senyam-senyum sendiri. Semakin dekat, eh.. ternyata dia adalah sosok orang yang telah berkumpul dengan saya selama hampir 20 tahun, Adikku, Rifky. Dia memimpin teman-temannya yang berjumlah tiga orang untuk menemui saya. Dalam hati, saya berpikir, pasti tentang ‘kasus’ yang kemarin.

“Mas, maafin kita ya.. Kami tahu kalo kita salah mas.. Kita gak akan ngulangin lagi” kata Rifky dengan muka yang sedikit memelas. Tapi, dasarnya saya sudah tahu ‘akal bulusnya’, ya saya hanya menanggapinya dengan mesem saja.

“Lho, ada masalah apa tho?” jawabku sampil pura-pura bingung.

“Yang kemaren itu lho mas, kami minta maaf ya mas..” jawab si KOMTING (singkatan dari Komandan Gak Penting.. Sorry ya dhek..).

Begini masalahnya, keempat mahasiswa tersebut telah tertangkap basah melakukan aktivitas ‘terlarang’ ketika kuliah Komputasi sedang berlangsung. Dan saya ingat betul waktu itu, Asisten Dosennya (Alifah dan Mbah Darmo sedang membahas soal UTS). Dengan berlagak seperti tim pencari Fakta dari KPK, saya dengan teliti menginterogasi mereka.

Singkat cerita, mereka saya suruh menceritakan kesalahan mereka masing-masing.

Tersangka Pertama dan Kedua

“Mas, kami salah, karena kami waktu kuliah berlangsung sedang nonton pilem BatMan…” Mendengar jawaban tersebut, saya langsung Shock !!! (Mengapa kalian tidak mengajakku ??? padahal aku kan demen nonton film yang beraromakan heroic tapi sedikit “khayal”..) Jujur saya heran, apa yang membuat mereka sempat-semapatnya nonton film ketika sedang kuliah ?? Pasti ada yang salah dengan kami tim asisten dosen mata kuliah Komputasi !!! Tenang saja, secepatnya akan kami perbaiki formasi tim agar lebih solid dan mampu meng-handle kelas seperti yang disarankan sebagian besar Mahasiswa D3 2008 kepada kami.

Tersangka Ketiga,

Mungkin ini yang sedikit menggelikan.. “Maaf mas saya tidak sengaja tiba-tiba komputernya nyala dan keluarlah sebuah film..” dan kalian tahu film itu adalah American Pie part 6 “Beta House” Sungguh Berani nih anak.. Nonton Film komedi Dewasa Buatan orang bule dalam suasana kuliah yang aman dan tenteram. Bayangkan saja, ketika asyik masyuk menikmati sajian pesta “syahwat” ala mahasiswa bule itu, masuklah sang Dosen.. Apa Kata Dunia..?? Sungguh kenekadan yang benar-benar gokil.

Tersangka Terkahir, Adikku yang tercinta.. Huekss..

Dengan polos dia berkata “Mas aku ngerjakan tugas dari senior buat buku rally (semacam tugas mencari tanda tangan para senior)..” Oke, mungkin ini adalah alasan pembelaan yang sedikit meng”kambing hitam”kan para pengurus Himpunan yang berkaitan dengan Pengaderan yang Lazim disebut BCS (Bina Cinta Senior… Eh salah.. Bina Cinta Statistika..)

kasihan...

Teman-teman penikmat blog yang saya cintai ini, apa yang harus yang saya lakukan…???

Butuh Software Turbo Pascal ???

ardilliansah — Mon, 10 Nov 2008 00:52:55 +0000

Bagi Rekan-Rekan Peserta Mata Kuliah Komputasi.

Harap Segera mendapatkan materi dan software Turbo Pascal.

Bagi yang membutuhkan softwarenya, bisa diambil di Lab Statistika, atau silahkan rental di persewaan CD installer.

Atau mau saya kirim ke email rekan-rekan masing-masing ?

Silahkan kirim alamat email ke e-mail saya atau ke comment link dalam blog ini.

InsyaAllah segera saya kirimkan dalam bentuk “Folder Zip”.

PENGUMUMAN DAN PERUBAHAN JADWAL 7 NOVEMBER 2008

ardilliansah — Wed, 05 Nov 2008 15:55:14 +0000

PENGUMUMAN

REKAN-REKAN MAHASISWA MATA KULIAH KOMPUTASI PROGRAM DIPLOMA 3 JURUSAN STATISTIKA ITS SURABAYA :

UJIAN PERBAIKAN UTS YANG AKAN DILAKSANAKAN PADA HARI JUM’AT TANGGAL 7 NOPEMBER 2008 DITUNDA, DAN DIUNDUR MENJADI TANGGAL 14 NOPEMBER 2008 PUKUL 13.00 WITS DI LAB BARAT (DIPISAH DUA GELOMBANG).

MATERI UNTUK PRAKTIKUM HARI JUM’AT, 7 NOPEMBER 2008

1. LATIHAN SOAL KUIS DAN UTS TAHUN LALU TENTANG MIC. EXCEL DAN MIC. ACCESS

2.PERSIAPAN UTS PERBAIKAN MINGGU DEPAN (TERUTAMA YANG MENDAPAT POIN KURANG DARI DELAPAN)

3. PENGENALAN TURBO PASCAL

Pengenalan Materi Kuliah

ardilliansah — Wed, 05 Nov 2008 15:39:18 +0000

Sejarah Pascal

Pascal adalah bahasa tingkat tinggi (high level language) yang orientasinya pada segala tujuan, dirancang oleh Prof. Niklaus Wirth dari Technical University di Zurich, Switzerland. Nama “Pascal” diambil sebagai pengharhaan terhadap Blaine Pascal, ahli matematika dan filosofi terkenal abad 17 dari Prancis.

Selamat Datang Rekan-rekan sesama Mahasiswa, Mari Kita mengikuti Mata Kuliah ini dengan penuh SEMANGAT, dan penuh KEIKHLASAN. InsyaALLAH akan bermanfaat nantinya…

Mata kuliah Komputasi untuk Program Diploma III Jurusan Staistika ITS Surabaya tahun 2008 ini akan mempelajari beberapa topik bahasan, antara lain :

BAB I PENGENALAN

Meliputi : Pengantar program Turbo Pascal, meliputi pengenalan Menu Bar, Toolbar, dan Editor, Struktur basa Pascal, meliputi bagian Deklarasi, dan bagian Pernyataan, Tipe data dalam Pascal, Operator dan Operand

BAB II PERNYATAAN INPUT DAN OUTPUT

Meliputi : Pernyataan WRITE dan WRITELN, meliputi persamaan dan perbedaan penggunaan kedua pernyataan tersebut, memformat keluaran dari WRITE dan WRITELN, pernyataan READ dan READLN, meliputi persamaan dan perbedaan penggunaan kedua pernyataan tersebut.

BAB III PERNYATAAN BERSYARAT

Meliputi : Pernyataan IF, Struktur Logika pernytaan IF Bersarang, Pernyataan CASE

BAB IV PERNYATAAN PERULANGAN

Meliputi

Statement FOR

Statement FOR bersarang

Penggunaan aplikasi Statement FOR dalam perkalian dan penjumlahan

Staement While

Statement WHILE untuk jumlah yang diketahui

Statement WHILE untuk jumlah yang TIDAK diketahui

Statement WHILE Bersarang (Nested While)

Statement REPEAT

Statement REPEAT untuk Jumlah Pengulangan yang Diketahui

Statement REPEAT untuk Jumlah Pengulangan yang Tidak Diketahui

BAB V ARRAY

Meliputi : Array dimensi Satu, Array Dimensi Dua

BAB VI FILE TEKS

Meliputi : File teks, Deklarasi File Teks, Statement dalam File Teks

Rekan-rekan sekalian, untuk memperlancar kuliah Komputasi silahkan melengkapi referensi (buku, jurnal, soal latihan, dll). Tidak ada paksaan untuk memenuhinya.

Apabila rekan-rekan ada pertanyaan yang masih dibingungkan tentang kuliah komputasi, referensi, (asalkan jangan masalah privacy ya…)

Silahkan menanyakan langsung ke masing-masing asdosnya. Rekan-rekan bisa meninggalkan comment di blog ini, atau kirimkan pesan ke email atau hand phone (lihat di profil saya).