Statemen adalah perintah untuk pengerjaan program pascal.
Statemen terletak di bagian deklarasi statemen dengan diawali oleh kata cadangan BEGIN dan diakhiri dengan kata cadangan END. Akhir dari setiap statemen diakhiri dengan titik koma [;].
Statemen statemen dalam bahasa Pascal terdiri dari pernyataan yang berupa fungsi dan prosedur yang telah disediakan sebagai perintah standar Turbo Pascal.


1. Statemen-statemen yang digunakan untuk input/output.

# Read/Readln [prosedur].


Perintah ini digunakan untuk memasukkan [input] data lewat keyboard ke

dalam suatu variabel.

Sintaks: Read/Readln(x); (ingat, selalu diakhiri dengan titik koma [;])

Keterangan : x = variabel.

Read = pada statemen ini posisi kursor tidak

pindah ke baris selanjutnya.

Readln = pada statemen ini posisi kursor akan

pindah ke baris selanjutnya setelah di

input.


# Write/Writeln [prosedur].


Digunakan untuk menampilkan isi dari suatu nilai variable di

layar.

Sintaks: Write/Writeln(x);

Keterangan : x = variabel.

Write/Writeln= statement ini digunakan untuk mencetak variable ke dalam monitor


2. Statemen-statemen yang digunakan untuk pengaturan letak layar.


# ClrScr [prosedur].


Perintah ini digunakan untuk membersihkan layar.

sintaks: ClrScr; 􀃆[Clear screen]

Unsur-unsur Pemrograman
a. Mendapatkan data dengan membaca data dari default input (key board, file atau sumber data lainnya).
b. Menyimpan data ke dalam memori dengan struktur data yang sesuai,
c. Memproses data dengan instruksi yang tepat.
d. Menyajikan atau mengirimkan hasil olahan data ke default output (monitor, file atau tujuan lainnya).

Nama yang dipergunakan du dalam program Pascal disebut dengan pengenal atau Identifier. Identifier digunakan untuk nama: Program, Sub-program (procedure dan function), nama: Variable, Constant, Type, Label.
Nama-nama ini digunakan untuk pemakaian dan pemanggilan dalam program. Ketentuan penulisan identifier
a. Nama identifier harus dimulai dengan karakter huruf alfabet: a sampai z, A sampai Z atau karakter ‘_’ (underscore – garis bawah)
b. Karakter berikutnya boleh karakter numerik (0 .. 9) atau kombinasi alphanumerik (huruf-numerik).
c. Panjang nama, pada berbagai versi Pascal umumnya antara 32 – 63.
d. Tidak boleh menggunakan karakter istimewa: + – * / | \ = < > [ ] . , ; : ( ) ^ @ { } $ # ~ ! % & ` ” ‘ dan ? Contoh penulisan:
Penulisan yang benar: NamaMahasiswa, Gaji_Karyawan, PX4, dll.
Penulisan yang salah: 3X, A & B, C Z dll.

Variable adalah identifier yang berisi data yang dapat berubah-ubah nilainya di dalam program. Deklarasi Variable adalah :
a. Memberikan nama variabel sebagai identitas pengenal
b. Menentukan tipe data variabel
Contoh deklarasi variabel: var X : integer;
R : real;
C : char;
T : boolean;
Konstanta adalah identifier yang berisi data yang nilainya tidak berubah di dalam program.
Deklarasi Konstanta adalah:
a. Memberikan nama konstanta sebagai identitas pengenal
b. Menentukan nilai konstanta
Contoh deklarasi konstanta: conts MaxSize = 100; {integer}
ExitC = ‘Q’; {char}

Reserved Words atau kata-kata cadangan pada Pascal adalah kata-kata yang sudah didefinisikan oleh Pascal yang mempunyai maksdu tertentu.Suatu Unit adalah kumpulan dari konstanta, tipe-tipe data, variabel, prosedur dan fungsi-fungsi. Unit standar pada Pascal yang bisa langsung digunakan adalah System, Crt, Printer Dos dan Graph. Untuk menggunakan suatu unit, maka kita harus meletakkan clausa atau anak kalimat Uses di awal blok program, diikuti oleh daftar nama unit yang digunakan. Pada materi ini yang akan dibahas adalah unit Crt. Unit ini digunakan untuk memanipulasi layar teks (windowing, peletakan cursor di layar, Color pada teks, kode extended keyboard dan lain sebagainya.

Tipe Data menunjukkan suatu nilai yang dpat digunakan oleh sutu variable yang bersangkutan.
Tipe Data dalam Pascal :
1. Tipe Data Sederhana, terdiri dari :
a. Tipe data standar :
– integer : merupakan tipe data berupa bilangan bulat
- real : merupakan jenis bilangan pecahan
– char : merupakan karakter yg ditulis diantara tanda petik tunggal. Ex : ‘A’, ‘a’, ’5′ dll
– string : merupakan urut-urutan dari karakter yang terletak di antara tanda petik tunggal.
– boolean : merupakan tipe data logika, yang berisi dua kemungkinan nilai: TRUE atau FALSE .
b. Tipe data didefinisikan pemakai
2. Tipe Data Terstruktur, terdiri dari :
a. Array
b. Record
c. File
d. Set
3. Tipe Data PointerOperator
Tanda operasi (operator) di dalam bahasa Pascal di kelompokkan dalam :
1. Assignment operator (operator pengerjaan) menggunakan simbol titik dua diikuti oleh tanda sama dengan (:=). Contoh –> A:=B;

2. Binary operator digunakan untuk mengoperasikan dua buah operand yang berbentuk konstanta ataupun variable. Operator ini digunakan untuk operasi arithmatika yang berhubungan dgn nilai tipe data Integer dan Real. Operasi yang dilakukan adalah : Pertambahan (+), Pengurangan (-), Perkalian (*), Pembagian Bulat (DIV), Pembagian Real (/) dan Modulus atau Sisa Pembagian (MOD)

3. Unary operator, operator ini menggunakan sebuah operand saja dapat berupa unary minus dan unary plus. Contoh : +2.5, a+(+b) dll

4. Bitwise operator digunakan untuk operasi bit per bit pada nilai integer.
Operator yang digunakan (NOT, AND, OR, XOR, Shl, Shr

A. Konsep pemrograman prosedural
Ketika program yang dibuat sudah terlalu panjang ratusan bahkan puluhan ribu baris, sehingga kita mengalami kesulitan untuk memahami jalannya program secara keseluruhan, maka ada baiknya bila program tersebut dipecah menjadi beberapa bagian yang biasanya disebut modul, subprogram atau subrutin. Konsep semacam ini biasa disebut dengan pemrograman prosedural. Dalam tulisan ini selanjutnya akan digunakan kata modul supaya lebih ringkas. Turbo Pascal yang digunakan pada percobaan ini adalah versi 7.1, bila anda menggunakan Turbo Pascal 7.0 maka prosesnya tidak jauh berbeda.
Memecah program menjadi modul-modul tentunya akan lebih memudahkan dalam mencari kesalahan, memperbaiki serta membuat dokumentasinya. Pembuatan modul di Turbo Pascal dibagi dua jenis yaitu : Prosedur dan Fungsi. Prosedur atau Fungsi adalah suatu modul program yang terpisah dari program utama, diletakan dalam blok tersendiri yang berfungsi sebagai bagian dari program. Setiap prosedur diawali dengan kata cadangan (reserver word) Procedure, sedangkan Fungsi diawali dengan kata cadangan Function.
Prosedur atau Fungsi banyak digunakan pada program terstruktur, karena :
1. Merupakan penerapan konsep modular, yaitu memecah program menjadi modul-modul atau subprogram-subprogam yang lebih sederhana.
2. Untuk hal-hal yang sering dilakukan berulang-ulang, cukup dituliskan sekali saja dalam prosedur dan dapat dipanggil atau dipergunakan sewaktu-waktu bila diperlukan.

B. Penulisan Prosedur (Procedure)
Prosedur memiliki struktur yang sama dengan struktur program, yaitu terdiri dari nama prosedur, deklarasi-deklarasi dan bagian deskripsi (statement atau aksi di dalam prosedur). Semua deklarasi di dalam prosedur bersifat lokal sehingga hanya bisa digunakan oleh prosedur itu saja, sedangkan deklarasi di dalam program utama bersifat global sehingga dapat dikenali di seluruh bagian program. Struktur umum prosedur adalah sebagai berikut :












Gambar 1. Cara Penulisan Prosedur di dalam Turbo Pascal

Struktur blok program utama beserta prosedur, adalah sebagai berikut :











Gambar 2. Struktur blok program beserta prosedur tanpa parameter

C. Bagaimana jika tanpa prosedur ?
Apakah dalam suatu program harus selalu terdapat prosedur? Jawabannya adalah tidak. Bila kita membuat program yang sangat sederhana, misalnya program untuk menampilkan kata “hallo world” di layar, maka boleh saja tidak menggunakan prosedur. Untuk lebih jelasnya berikut disajikan contoh program untuk menghitung luas dan keliling persegipanjang yang menggunakan prosedur dan tanpa prosedur.

















Gambar 3. Program Persegipanjang tanpa prosedur
Gambar 3. Program PersegiPanjang tanpa menggunakan prosedur

Bila dituliskan di Editor Turbo Pascal kira-kira tampilannya seperti dibawah ini. Untuk melihat hasilnya silahkan tekan Ctrl + F9.


Gambar 4. Tampilan di Editor Turbo Pascal, Program Persegipanjang tanpa prosedur

Setelah dirunning (Ctrl + F9), maka hasilnya seperti dibawah ini, kemudian cobalah untuk menginputkan data , misal : 4 untuk panjang dan 6 untuk lebar maka hasilnya adalah, Luas = 24 dan Keliling = 20.

Gambar 5. Tampilan setelah dirunning

Silahkan anda bisa mencoba dengan menginputkan angka yang berbeda, yang penting tidak melebihi 255, karena type data byte yang digunakan oleh variabel p dan l seperti pada contoh program diatas hanya mampu menampung data berupa angka sampai dengan 255, sedangkan variabel luas & keliling hanya mampu menampung angka -32768 s/d 32767 karena menggunakan tipe data integer. Mengapa demikian, bagaimana cara mengetahui jangkauan suatu tipe data?, Untuk mengetahui jangkauan (range) tipe data, anda bisa melihat di bagian help. Caranya : Help > Index, kemudian cari kata integer, lalu tekan enter maka akan muncul tampilan sebagai berikut :

Gambar 6. Tampilan Help di turbo pascal ketika menampilkan tipe data

Oh ya! di Turbo Pascal, terdapat fasilitas untuk mengatur warna tampilan, misalnya warna Sintaks (sintax), bila anda ingin mencoba silahkan masuk ke menu Option > Environment > Color. Di bagian Group cari kata Syntax, selanjutnya di bagian Item, terdapat item-item : Whitespace, Comments, Reserver Words, Identifiers, Symbols, Strings, Numbers, Assembler yang dapat diatur warna tampilannya, caranya pilih salah satu Item kemudian pilih warna apa yang dikehendaki pada bagian Foreground untuk warna depan sedangkan Background untuk warna latar belakang.


Gambar 7. Tampilan menu Colors

Pengaturan tampilan warna sintax pada Editor Turbo Pascal memang bukan suatu kewajiban, dan tidak akan berpengaruh terhadap proses program. Tetapi hal ini bermanfaat pada saat proses pembuatan/pengetikan program, dimana perbedaan warna item-item sintax akan membantu kita dalam pembacaan program.















D. Menggunakan prosedur

Selanjutnya kita modifikasi program tadi, dengan menambahkan prosedur sehingga menjadi seperti dibawah ini :


















Gambar 8. Program Persegipanjang menggunakan prosedur

Pada program tanpa prosedur maka seluruh statement dituliskan di dalam blok program utama, sehingga ketika program semakin besar maka blok program utama semakin padat. Tetapi bila menggunakan prosedur maka di dalam blok program utama akan lebih sedikit, karena hanya berisi nama prosedur yang dibutuhkan dan statement tambahan lainnnya yang dibutuhkan. Pada contoh diatas nama prosedur yang dipanggil di dalam blok program utama yaitu Hitung_Luas dan Hitung_Keliling dan arah pemanggilan prosedur digambarkan dengan garis putus-putus berwarna merah agar lebih jelas.
Bila dituliskan di Editor Turbo Pascal kira-kira tampilannya seperti dibawah ini. Untuk melihat hasilnya, seperti biasa silahkan tekan Ctrl + F9. Bila program sudah dieksekusi maka kedua program tersebut (program dengan prosedur atau tanpa prosedur) akan memberikan hasil yang sama, tetapi dari teknik pembuatan program jelas berbeda.

Gambar 9. Tampilan di Editor Turbo Pascal,
Program Persegipanjang menggunakan prosedur

Ketika kita membuat suatu program tanpa prosedur maka seluruh statement yang terdapat di dalam program utama akan dieksekusi secara beruntun (sequential) dari atas ke bawah, sedangkan bila menggunakan prosedur, maka program utama hanya akan mengeksekusi prosedur-prosedur yang dipanggil, bila prosedur tersebut dipanggil di dalam program utama, jadi bila untuk sementara kita tidak membutuhkannya, maka cara mudah yang dapat kita lakukan yaitu tidak usah menghapusnya tetapi cukup dengan tidak memanggilnya di dalam blok program utama.









Gambar 10. Arah eksekusi program utama ketika terdapat prosedur, maka akan memanggil prosedur dan melakasanakan statement yang terdapat di dalam prosedur

E. Variabel Global dan Variabel Lokal
Untuk lebih memudahkan kita memahami variabel lokal dan variabel global, mari kita modifikasi listing prorgram pada Gambar 9, perubahannya hanya sedikit yaitu, memindahkan penulisan variabel ls ke dalam Procedure Hitung_luas , dan variabel kel dipindahkan ke dalam Procedure Hitung_keliling, sehingga menjadi seperti dibawah ini.


Gambar 11. Program Persegipanjang menggunakan prosedur dengan variabel lokal

Variabel p dan l pada listing program di Gambar 11 diatas, bersifat global sehingga dapat dikenali baik di program utama maupun didalam Procedure Hitung_luas dan Procedure Hitung_keliling, variabel semacam itulah yang dimaksud dengan variabel global. Sedangkan variabel ls dan variabel kel bersifat lokal dan hanya dikenali oleh program itu sendiri, variabel seperti itu disebut variabel lokal. Bila variabel lokal dipanggil diluar prosedur tersebut maka tidak akan dikenali dan program menjadi error, sebagai bukti mari kita sedikit modifikasi listing program pada gambar 11, output program yang terdapat pada masing-masing program kita pindahkan ke dalam blok program utama, sehingga di dalam setiap prosedur hanya terdapat satu statement saja, hasilnya seperti dibawah ini.

Gambar 12. Program Persegipanjang , bila variabel lokal dipanggil dari luar

Bila program tersebut dicompile maka akan terjadi error karena variabel ls dan kel tidak dikenali (unknown identifier) di dalam blok program utama. Prosedur yang terdapat di dalam program pada listing diatas adalah contoh prosedur tanpa parameter.. Bila prosedur tidak memiliki parameter maka tanda kurung setelah nama prosedur tidak perlu disertakan. Agar listing program pada gambar 12 tidak terjadi error ketika dicompile, maka dapat dilakukan cara sebagai berikut :
1. Dibuat bersifat global
Supaya suatu variabel bersifat global, maka harus dideklarasikan di atas modul yang menggunakannya. Misalnya listing program pada gambar 12 dikembalikan sepertii listing program pada gambar 11.
2. Dikirim sebagai parameter ke modul yang membutuhkannya.
Bagaimana caranya?, apa yang dimaksud dengan parameter?, semoga tulisan berikut ini bisa menjawab kedua pertanyaan tersebut.

F. Parameter
Secara sederhana parameter merupakan variabel yang dituliskan di dalam kurung setelah nama prosedur atau fungsi. Dalam pembuatan program biasanya diperlukan pertukaran informasi antara prosedur atau fungsi, serta pada blok progam utama dimana nama prosedur atau fungsi tersebut dipanggil.
Berdasarkan penulisannya terdapat 2 jenis parameter, yaitu : parameter formal (formal parameter) dan parameter aktual (actual parameter). Parameter formal adalah parameter yang disertakan/dituliskan pada saat pendefinisian prosedur/fungsi itu sendiri. Sedangkan parameter aktual adalah parameter yang disertakan pada saat pemanggilan prosedur/fungsi tersebut di blok program utama.
Berdasarkan tujuannya terdapat 3 jenis parameter formal :
1. Parameter masukan (input parameter), yaitu : parameter yang nilainya berfungsi sebagai masukan untuk prosedur/fungsi, jenis parameter ini kadang disebut juga parameter nilai (value parameter atau parameter by value).
2. Parameter keluaran (output parameter), yaitu : parameter yang berfungsi untuk menampung keluaran yang dihasilkan oleh prosedur.
3. Parameter masukan/keluaran (input/output parameter) adalah parameter yang berfungsi sebagai “pintu” masuk dan keluar bagi prosedur tersebut. Parameter keluaran (output parameter) dan parameter masukan/keluaran (input/output parameter) kadang disebut parameter acuan (reference parameter atau paramater by reference).















Untuk lebih jelasnya, kita langsung praktekannya saja, seperti biasa kita modifikasi listing program pada gambar 12, sehingga hasilnya seperti dibawah ini.






















Gambar 13. Program Persegipanjang , dengan parameter

Parameter input adalah parameter yang nilainya berfungsi sebagai masukan untuk prosedur. Nilai yang dimasukan adalah nilai dari parameter aktual. Pada listing program gambar 13 diatas, parameter aktual/nyata (actual parameter) adalah pj dan lbr, sedangkan p dan l adalah parameter formal (formal parameter). Nama parameter aktual dan parameter formal boleh berbeda, yang penting tipe datanya sama, p dan l yang ditulis di dalam kurung setelah nama prosedur seperti listing program diatas termasuk ke dalam parameter input. Maksudnya bahwa p dan l berfungsi sebagai pintu masuk data bagi prosedur Hitung_Luas dan Hitung_Keliling. Data yang masuk ke dalam parameter p berasal dari parameter aktual pj, dan data yang masuk ke dalam parameter l berasal dari parameter aktual lbr. Bila diketikan di editor Turbo Pascal kurang lebih hasilnya sebagai berikut :

Gambar 14. Tampilan di Editor Turbo Pascal, Program Persegipanjang , dengan parameter

G. Passing Parameter
Proses pengiriman data dari parameter aktual ke parameter formal disebut dengan transfer parameter (passing parameter). Nama Parameter aktual dan parameter formal boleh berbeda, tetapi harus memiliki tipe data yang sama selain itu juga jumlah parameter aktual dan parameter formal harus sama. Di Turbo Pascal, parameter dapat dikirim/ditransfer secara nilai (by value) atau secara acuan (by reference).

1. Pengiriman parameter secara nilai (by value)
Jika parameter dikirim secara nilai (by value), maka parameter formal yang terletak di dalam pendefinisan prosedur akan berisi nilai yang dikirimkan dari parameter aktual, yang kemudian bersifat lokal di prosedur tersebut. Bila nilai parameter formal di dalam prosedur tersebut berubah, maka tidak akan mempengaruhi nilai parameter aktual (nilai parameter aktual tetap). Pengiriman parameter secara nilai (by value) biasanya terjadi pada jenis parameter masukan (input parameter). Agar lebih jelas seperti biasa kita modifikasi listing program Gambar 14, sehingga lebih pendek dan agar lebih sederhana kita buat hanya terdapat satu prosedur saja, hasil modifikasinya dapat dilihat pada gambar dibawah ini.


















Gambar 15. Program Persegipanjang , dengan pengiriman parameter secara nilai

Nilai-nilai parameter aktual pj , lbr dan luas di dalam blok program utama dikirimkan ke parameter formal p, l dan ls di prosedur Hitung_Luas. Dengan demikian, nilai parameter p, l dan ls di prosedur Hitung_Luas akan berisi nilai yang sama dengan parameter pj , lbr dan luas di dalam blok program utama. Bila program dijalankan maka hasilnya seperti dibawah ini.


Gambar 16. Tampilan program hasil running

Parameter formal p akan berisi nilai yang sama dengan parameter aktual pj, yaitu 10. Parameter formal l akan berisi nilai yang sama dengan parameter aktual lbr, yaitu 6. Parameter formal ls akan berisi nilai yang sama dengan parameter aktual luas, yaitu 0. Selanjutnya pada prosedur Hitung_Luas, parameter formal ls kemudian berganti nilai sebesar nilai p dikali nilai l, sehingga nilai parameter formal ls menjadi 10 x 6 = 60. Nilai akhir parameter formal p, l dan ls adalah :
p = 10
l = 6
ls = 60
Gambar diatas adalah contoh pengiriman parameter secara nilai (by value), pengiriman parameter seperti ini sifatnya lokal, maksudnya perubahan nilai parameter di dalam prosedur tidak akan mempengaruhi nilai parameter aktual di blok program utama, sehingga nilai parameter luas tidak akan dipengaruhi oleh perubahan nilai ls, jadi nilai parameter luas masih tetap 0.
Jadi pengiriman parameter secara nilai (by value) mempunyai karakteristik sebagai berikut :
1. Data yang dikirim dari parameter aktual di blok program utama ke parameter formal di prosedur adalah nilai dari datanya bukan alamat memori letak dari datanya.
2. Prosedur/Fungsi yang menerima nilai ini akan menyimpan data tersebut di alamat memori yang berbeda dari nilai aslinya yang digunakan oleh bagian program yang memanggil fungsi/prosedur tersebut di blok program utama.
3. Karena terdapat alamat memori yang berbeda, maka perubahan nilai di fungsi tidak akan merubah nilai asli di bagian program yang memanggil prosedur/fungsi tersebut.












2. Pengiriman parameter secara acuan (by reference)

Bila parameter dikirimkan secara acuan (by refence), maka perubahan-perubahan yang terjadi pada nilai parameter formal di prosedur akan mempengaruhi nilai parameter aktual di blok program utama. Jenis parameter ini dideklarasikan di dalam prosedur dengan menggunakan kata cadangan var. Seperti biasa, kita modifikasi program pada gambar 15, yaitu dengan menambahkan kata var pada paramaternya, sehingga hasilnya sebagai berikut :

















Gambar 17. Program Persegipanjang , dengan pengiriman parameter by reference

Nilai-nilai parameter aktual pj , lbr dan luas di dalam blok program utama dikirimkan ke parameter formal p, l dan ls di prosedur Hitung_Luas. Tetapi karena penulisan kata var sebelum ls pada parameter formal, maka parameter ls berfungsi sebagai parmeter input/output. Jenis pengiriman parameter seperti ini disebut pengiriman parameter secara acuan (by refence). Sehingga hasil perhitungan di prosedur Hitung_Luas yang ditampung di ls akan dilewatkan ke parameter ls di prosedur tersebut, selanjutnya dikirimkan kembali ke parameter luas di blok program utama. Dengan demikian parameter ls di prosedur Hitung_Luas akan berisi nilai yang sama dengan parameter luas di dalam blok program utama yaitu 60. Pada gambar diatas diberikan nomor urut 1, 2 dan 3 untuk menggambarkan urutan langkah transfer parameter dan juga menggunakan warna berbeda agar mudah membedakannnya.
Bila program dijalankan maka hasilnya seperti dibawah ini.

Gambar 18. Tampilan program hasil running

Pengiriman parameter secara acuan (by refence) biasanya terjadi pada jenis parameter keluaran (output parameter) dan parameter masukan/keluaran (input/output parameter). Pengiriman parameter secara acuan (by reference) mempunyai karakteristik sebagai berikut :
1. Pada saat pengiriman nilai, yang dikirim dari parameter aktual di blok program utama ke parameter formal di prosedur adalah alamat letak dari nilai datanya bukan.
2. Prosedur/Fungsi yang menerima nilai ini akan menggunakan alamat memori yang sama dengan nilai aslinya yang digunakan oleh bagian program yang memanggil fungsi/prosedur tersebut di blok program utama.
3. Karena menggunakan alamat memori yang sama, maka perubahan nilai di prosedur/fungsi akan merubah nilai asli di bagian program yang memanggil prosedur/fungsi tersebut.










H. Penulisan Fungsi (Function)
Apa yang dimaksud dengan fungsi?. Fungsi tidak jauh berbeda dengan prosedur, yaitu suatu modul program terpisah dari progam utama yang diletakan dalam blok tersendiri yang berfungsi sebagai bagian dari program. Namun fungsi memiliki perbedaan mendasar dengan prosedur yaitu : fungsi memberikan nilai balik (return) sedangkan prosedur tidak. Cara penulisan fungsi di Turbo Pascal seperti dibawah ini :








Gambar 19. Cara Penulisan Fungsi














Gambar 20. Struktur blok program beserta Fungsi

Jika kita ketikan di editor Turbo Pascal, kira-kira tampilannya seperti terlihat pada gambar dibawah ini :

Gambar 21. Tampilan di Editor Turbo Pascal,
Program Persegipanjang dengan Fungsi

Sama seperti prosedur, untuk mengakses setiap Fungsi kita harus memanggil namanya. Fungsi juda dapat memiliki parameter, tetapi parameter yang terdapat dalam fungsi selalu merupakan parameter masukan (input parameter). Tipe hasil di dalam suatu fungsi merupakan tipe nilai balik (return) yang diberikan oleh fungsi. Bila kita perhatikan listing program diatas, terdapat sebuah Fungsi/Function dengan nama Luas yang memiliki parameter p dan l, sedangkan tipe nilai balik (return) yang dihasilkan oleh fungsi tersebut adalah integer. Pada contoh diatas Luas digunakan sebagai nama fungsi, dan didalam fungsi tersebut, Luas digunakan sebagai variabel untuk menampung hasil perhitungan pada fungsi tersebut.
Apakah suatu modul program harus dibuat menjadi fungsi atau prosedur ?, jawabannya adalah terserah anda, karena ini semua tergantung dari kebutuhan dan kemampuan seorang programmer. Namun biasanya fungsi digunakan bila suatu modul program mengembalikan suatu nilai sedangkan prosedur digunakan untuk menghasilkan sekumpulan aksi. Semoga tulisan ini dapat bermanfaat bagi setiap pembacanya, bila ada kririk dan saran silahkan kirim ke : rohmatg@yahoo.com.

Pendahuluan
Pascal merupan salah satu program yang terkemuka karena struktur penulisannya yang mengalir seperti algoritma, saat ini kita akan mempelajari perbedaan antara case dan if pada pascal 1.5 (TPW 1.5). sebelum itu perhatikan keterangan berikut ini struktur dasarnya

Program namaprogram;  judul program
Var jenis : variable;  jenis variabel
Begin ;  memulai program
Clrscr  membersihkan layar (boleh digunakan dan tidak)
Isi  isi program
End.  akhir program

Keterangan
Write  menapilkan tulisan
Writeln  menapilkan tulisan pada garis baru
Read  menginput data
Readln  manginput data pada garis baru
Var  variable





Isi

CASE

program case1;
uses wincrt;
var nip,nama : string;
pendapatan,pajak : real;
gol : char;
begin
clrscr;
writeln('--------- DAFTAR PAJAK ----------');
writeln('_________________________________');
write ('NIP : ');readln(nip);
write ('Nama Karyawan : ');readln(nama);
write ('Golongan [A,B,C] : ');readln(gol);
write ('Pendapatan : ');readln(pendapatan);
case upcase(gol) of
'A' : begin
writeln('Golongan ini bebas pajak');
pajak := 0;
end;
'B' : pajak := 0.1 * pendapatan;
'C' : pajak := 0.2 * pendapatan;
else write('Salah melakukan Penginputan data ');
end;
writeln('Pajak : Rp. ',pajak:9:2);
end.

Tampilan saat case Di running




















Sedangkan untuk program IF

program if1;
uses wincrt;
var nip,nama : string;
pendapatan,pajak : real;
gol : char;
begin
clrscr;
writeln('--------- DAFTAR PAJAK ----------');
writeln('_________________________________');
write ('NIP : ');readln(nip);
write ('Nama Karyawan : ');readln(nama);
write ('Golongan [A,B,C] : ');readln(gol);
write ('Pendapatan : ');readln(pendapatan);
if (gol = 'A' )or (gol = 'a') then
pajak := 0
else if (gol = 'B') or (gol = 'b') then
pajak := 0.1 * pendapatan
else if (gol = 'C') or (gol = 'c') then
pajak := 0.2 * pendapatan
else write('Salah melakukan Penginputan data ');
writeln('Pajak : Rp. ',pajak:9:2);
end.

Waspadalah! Jangan merasa aman jika telah menggunakan antivirus pada komputer anda. Karena ternyata, menurut penelitian
yang dilakukan Google, piranti lunak anti-virus palsu yang menginfeksi komputer pribadi menjadi ancaman makin besar dalam
dunia maya. Google menganalisa 240 juta halaman internet selama 13 bulan dan mendapati bahwa program anti-virus palsu
menyumbang sekitar 15 persen dari semua program virus di dunia maya.
Scammers menipu dengan cara meyakinkan pengguna agar mengunduh program anti-virus karena komputer mereka terkena
virus. Begitu di install, piranti lunak tadi mungkin akan mencuri data atau memaksa yang bersangkutan membayar
produk-produk palsu tadi. ''Yang mengejutkan, banyak pengguna termakan tipuan ini dan kemudian membeli anti-virus palsu
tadi,'' sebut penelitian itu.
Lebih celaka lagi, anti-virus palsu tadi seringkali ditunggangi virus komputer yang sesungguhnya yang akan bersarang di
komputer. "Tak peduli pembayaran sudah dilakukan atau belum.''
Penelitian yang hasilnya dipaparkan di sebuah Lokakarya Usenix di Kalifornia dan membahas ancaman dan penipuan dalam
skala besar di dunia maya, menganalisa situs internet antara Januari 2009 hingga Februari 2010.
Mereka menemukan 11 ribu domain internet yang terlibat dalam penyebaran anti-virus palsu tersebut. Kalau sudah ada
anti-virus di dalam komputer, tidak semestinya pengguna harus mengunduh lagi.
Graham Cluley dari perusahaan keamanan Sophos mengatakan bahwa salah satu cara yang paling umum dilakukan adalah
dengan para hackers melakukan teknik yang dikenal dengan optimalisasi mesin pencari topi hitam.
''Para hackers mencari berita yang populer seperti kematian Michael Jackson misalnya,'' kata Cluley. ''Mereka kemudian
membuat situs yang dipenuhi dengan bahan yang kalau dicari lewat mesin pencari di internet akan muncul di halaman
pertama.''
Siapapun yang mengklik situs itu, katanya, akan diserbu dengan penampilan yang menghubungkannya dengan perangkat
lunak anti-virus palsu itu. Google mencoba menyaring situs-situs seperti itu, tetapi para hackers dikatakan dengan cepat
bergerak dari satu domain ke domain lain sehingga sulit terdeteksi.
Cluley mengatakan orang harus mengerti betul dengan program anti-virus mereka sendiri dan harus selalu waspada kalau ada
pop-up yang meminta pengguna mengunduh sesuatu dengan membayar untuk membersihkan komputer. ''Kalau sudah ada
anti-virus di dalam komputer, tidak semestinya pengguna harus mengunduh lagi,'' katanya

JAKARTA, KOMPAS.com — Peranti lunak (software) pendidikan sains dan matematika dari PT Pesona Edukasi, yang murni buah karya anak bangsa, mampu menembus pasar global. Bahkan, PT Pesona Edukasi terpilih menjadi satu dari sembilan partner Microsoft tingkat dunia untuk mengisi materi teknologi baru Microsoft untuk pendidikan MultiPoint Mouse.
Manfaat teknologi ini adalah memberi kesempatan anak berkolaborasi menjalankan satu program atau berkompetisi satu dengan yang lain.
-- Ananta Gondomono

Ananta Gondomono, Academic Program Manager PT Microsoft Indonesia, di Jakarta, Selasa (4/5/2010), mengatakan, muatan pendidikan yang diciptakan PT Pesona Edukasi itu diunggah di situs web Microsoft sehingga bisa diakses secara global dan gratis. Microsoft mengembangkan teknologi MultiPoint Mouse itu untuk mengatasi kesenjangan penggunaan teknologi informasi di dunia pendidikan.

Menurut Ananta, di ruang kelas yang memiliki komputer (PC) yang terbatas, kini komputer bisa digunakan secara bersama-sama oleh siswa. Yang sudah diuji coba bisa dipakai 20 siswa secara bersamaan.

Teknologi Windows® MultiPoint™ Mouse adalah rekayasa pemrograman komputer yang memungkinkan satu layar komputer dapat diakses sampai lebih dari 30 mouse sekaligus. Satu komputer dapat digunakan oleh 30 anak dalam satu kelas dengan setiap anak menggunakan mouse untuk menjalankan aplikasi secara bersama-sama.

Manfaat dari penggunaan teknologi ini adalah memberi kesempatan kepada anak untuk berkolaborasi dalam menjalankan satu program atau berkompetisi satu dengan yang lain. Aplikasi yang diberi nama Amazing Concert ini dapat diunduh secara gratis di http;//www.microsoft.com/multipoint/mouse-sdk/showcase.aspx.

Hary Candra, Marketing Director PT Pesona Edukasi, menjelaskan, PT Pesona Edukasi mengembangkan peranti lunak Amazing Concert sebagai satu aplikasi peranti lunak pendidikan "bermain musik bersama". Selain itu, ada juga DigiCarnival, yakni peranti lunak belajar matematika dengan topik mengurutkan angka, dan Monkey Rescue, yakni peranti lunak belajar bahasa dan pengetahuan umum yang dikemas seperti permainan hangman.

Bambang Juwono, Managing Director PT Pesona Edukasi, berharap melalui peranti ini anak-anak di seluruh dunia, termasuk anak-anak Indonesia, dapat menikmati kegembiraan dalam kebersamaan sehingga melalui seni dan teknologi mereka dapat belajar hidup bersama. (ELN)