IT132 – Dasar-Dasar Pemrograman
Ramos Somya
Dalam program yang kompleks kode program panjang.
Sulit dalam memahami program (jalannya program).
Solusi: memecah program tersebut menjadi modul-modul sehingga lebih ringkas.
Untuk memecah program yang kompleks, membutuhkan procedure dan function.
kita
Berdasarkan penjelasan sebelumnya, prosedur atau fungsi yaitu suatu bagian/modul program yang terpisah dari program utama, diletakkan dalam blok tersendiri yang berfungsi sebagai bagian dari program.
Merupakan penerapan konsep modular, yaitu memecah program menjadi modul-modul atau subprogramsubprogam yang lebih sederhana.
Untuk hal-hal yang sering dilakukan berulang-ulang, cukup dituliskan sekali saja dalam prosedur dan dapat dipanggil atau dipergunakan sewaktu-waktu bila diperlukan.
Terdapat pola:
Cara manual: print*; print*; print*; prints; prints; prints; print*; print*;print*; NL; prints; prints; prints; print*; print*; print*; NL print*; print*; print*; prints; prints; prints; print*; print*;print*; NL;
Caranya: Lihat pola yang sama.
Buat definisi: def tigabintang()= print*; print*; print*; enddef def tigaspasi()= prints; prints; prints; enddef
Perintah menjadi: tigabintang();tigaspasi();tigabintang();NL; tigaspasi();tigabintang(); NL; tigabintang();tigaspasi();tigabintang();
Buatlah program untuk mencetak huruf HELLO dalam posisi vertikal. Ukuran tiap huruf 5x5. (Gunakan procedure)
def pola1() = print*;prints;prints;prints;print*;NL; enddef def pola2() = print*;print* print*;print*; print*;NL; enddef def pola3() = print*;NL; enddef
Perintah menggunakan procedure: pola1();pola1();pola2();pola1();pola1();NL; pola2();pola3();pola2();pola3();pola2();NL; pola3();pola3();pola3();pola3();pola2();NL; pola3();pola3();pola3();pola3();pola2();NL; Pola2();pola1();pola1();pola1();pola2();NL;
def hello() = def H() = pola1();pola1();pola2();pola1();pola1();NL; enddef def E() = pola2();pola3();pola2();pola3();pola2();NL; enddef def L() = pola3();pola3();pola3();pola3();pola2();NL; enddef def O() = pola2();pola1();pola1();pola1();pola2();NL; enddef def pola1() = print*;prints;prints;prints;print*;NL; enddef def pola2() = print*;print* print*;print*; print*;NL; enddef def pola3() = print*;NL; enddef H();E();L();L();O();
enddef Pemanggilan: hello();
def pola3() = print*;NL; enddef Procedure di atas bila dipanggil hasilnya selalu sama, karena tidak ada parameter. Dengan paramater memungkinkan memberikan hasil output yang berbeda tergantung parameter yang dipassingkan. Misal: def r3(p) = p();p();p() ; enddef def one() = p*; enddef def two() = NL; enddef def three() = NL; p*;p*;p*; enddef r3(one); r3(two); r3(three)
Merupakan sub program yang tidak mengembalikan nilai secara langsung.
Prosedur memiliki struktur yang sama dengan struktur program, yaitu terdiri dari nama prosedur, deklarasideklarasi 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.
PROCEDURE mempunyai Program utama tidak.
judul_prosedur
sedangkan
Untuk tanda berakhirnya Procedure diakhiri dengan tanda End; sedangkan Program Utama End.
Penggunaan prosedur selalu diawali dengan kata Procedure. Struktur umum prosedur adalah sebagai berikut : Procedure Nama_Prosedur (param_formal1:tipe_param1, param_formal2:tipe_param2,…); {Jika prosedur tidak memiliki parameter, tanda kurung tidak disertakan} var {bagian deklarasi prosedur, sifatnya lokal} begin statement-1; statement-2; ………… Statement-n; end;
Struktur blok program utama beserta prosedur:
Program judul_program; var {bagian deklarasi prosedur, sifatnya global} Procedure Nama_Prosedur; {Jika prosedur tidak memiliki parameter, tanda kurung tidak disertakan} var {bagian deklarasi prosedur, sifatnya lokal} begin statement-1; statement-2; ………… Statement-n; end;
{program utama} begin Nama_Prosedur; end.
uses crt; procedure cetakBintang; begin writeln('****'); end; begin clrscr; cetakBintang(); cetakBintang(); cetakBintang(); cetakBintang(); readkey; end.
uses crt; procedure Tanya_hitung; var X, Y : real; begin write ('Nilai X ='); readln (X) ; Y := X * X; end; begin Tanya_hitung; writeln ('NilaiY =', Y); end.
Bila program dikompilasi, akan dideteksi kesalahan oleh compiler, karena variable Y yang sifatnya local di procedure Tanya_hitung digunakan pada program utama.
Agar nilai-nilai variable dapat digunakan di modul lainnya yang membutuhkan, maka dapat dilakukan dengan beberapa cara, yaitu : - Dibuat global - Dikirimkan sebagai parameter ke modul lainnya.
uses crt;
var Y: real; procedure Tanya_hitung; var X: real; begin write ('Nilai X = '); readln (X) ; Y := X * X; end; begin clrscr; Tanya_hitung; writeln ('Nilai Y = ', Y: 2: 2); readkey; end.
Pengertian hampir sama dengan procedure (sama-sama sub program / bagian dari program).
Bedanya: - Fungsi memiliki tipe data. - Fungsi memberikan nilai balik, procedure tidak. - Harus ada NamaFungsi di dalam tubuh fungsi, karena digunakan untuk menyimpan output. - Penulisannya menggunakan kata Function
Function Nama_Fungsi : tipe_hasil; var {bagian deklarasi fungsi, sifatnya lokal}
begin statement-1; statement-2; ………… Statement-n; Nama_Fungsi:=hasil; end;
uses crt; function cetakBintang:string; begin cetakBintang:= '****'; end; begin clrscr; writeln(cetakBintang); writeln(cetakBintang); writeln(cetakBintang); writeln(cetakBintang); readkey; end.
Suatu variable yang berfungsi sebagai penampung nilai pada procedure atau function, yang diberikan oleh pemanggil procedure atau function. Contoh: Procedur nama_pro(parameter,parameter:tipe_data); Procedur hitung(angka1,angka2:integer); Procedur bagi(angka1:integer; angka2:real);
Parameter yang dikirmkan dari modul utama ke modul prosedur disebut dengan parameter nyata (actual parameter) dan parameter yang ada dan dituliskan pada judul prosedur disebut dengan parameter formal (formal parameter).
Proses pengiriman data lewat parameter nyata ke parameter formal disebut dengan parameter passing.
Parameter nyata dan parameter formal harus dengan tipe yang sama.
Pass by Value Pass by Reference
Parameter yang dikirimkan berupa nilai (value)nya saja. Jadi apabila terjadi pengubahan nilai pada prosedur ataupun function tidak akan mempengaruhi nilai pada variabel yang dipassingkan, atau yang dikirimkan.
uses crt; var angka1,angka2,hasil : integer; procedure dua(a,b,c : integer); begin c:=a+b; writeln('Hasil = ', c); end; Begin clrscr; angka1:=10; angka2:=5; dua(angka1, angka2, hasil); writeln; writeln('angka1 = ', angka1); writeln('angka2 = ', angka2); writeln('hasil = ', hasil); readln; end.
Parameter yang dikirimkan berupa acuan. Jadi apabila terjadi pengubahan nilai pada prosedur ataupun function akan mempengaruhi nilai pada variabel yang dipassingkan, atau yang dikirimkan. Kata kuncinya pemberian tambahan kata var pada pendeklarasian parameter.
uses crt; var angka1,angka2,hasil : integer; procedure dua(var a,b,c : integer); begin c:=a+b; writeln('Hasil = ', c); end;
begin clrscr; angka1 :=10; angka2:=5; dua(angka1, angka2, hasil); writeln; writeln('angka1= ', angka1); writeln('angka2= ', angka2); writeln('hasil = ', hasil); readln; end.
Buatlah program kalkulator untuk operasi penjumlahan, pengurangan, perkalian dan pembagian menggunakan inputan dari keyboard. Setiap operasi HARUS menggunakan procedure atau function (Pakai Parameter).
