MODUL 3
1.
Procedure
adalah modul program yang mengerjakan aktivitas / tugas secara khusus dan
menghasilkan efek tertentu
a. Procedure
Sub : tidak mengembalikan
hasil setelah dilakukan perintah hanya dapat melakukan operasi saja
b. Procedure Function :
dapat mengembalikan hasil setelah dilakukan perintah
c. Procedure Event : digunakan pada suatu event yang ada
pada objek
d. Procedure Property : untuk mengambil dan mengubah nilai
property pada objek
(http://sahrulwijaya.blogspot.com/2012/03/procedure-function-dalam-pascal.html?m=1)
(http://diazscript.files.wordpress.com/2010/11/668.PDF)
2.
Function
adalah program penerima nilai dan dapat memebrikan nilai balik setelah
diberikan perintah
Contoh fungsi:
Function max(a,b:integer):integer;
{mengirimkan a jika a>b dan b jika sebaliknya}
Begin
If a>b then
Max:=a
Else max:=b
End;
3.
Perbedaan
procedure dan function adalah procedure tidak memberikan nilai balik setelah
dilakukan perintah sedangkan function memberikan nilai balik
4.
ByVal : cara melewatkan nilai dari sebuah
argument ke sebuah procedure denga melewatkan alamatnya
ByRef : cara melewatkan alamat
dari argumen ke procedure dengan melewatkan nilai
Perbedan ByVal dan ByRef :
ByVal procedure hanya diizinkan untuk akses salinan variabel sedangkan
ByRef dapat akeses variabel sesungguhnya. Hasil ByVal yaitu niali variabel
sebenarnya tidak dapat diganti oleh prcedure yang melewatkannya, sedangkan
hasil ByRef yaitu nilai variabel sebenarnya dapat diganti procedure yang
melewatkan
5.
Operator
perbandingan (hubungan) digunakan untuk membandingkan hubungan dua operand
(nilai atau variabel)
= : sama dengan
<> : tidak sama dengan
< : kurang dari
> : lebih dari
<= : lebih kecil sama dengan
<= : lebih besar sama dengan
6.
Operator
percabangan adalah operator yang digunakan untuk mendapatkan hasil yang sesuai
dengan ketentuan
If... then : if untuk
memilih kondisi, dan selanjutnya juga dapat untuk perhitunan matematika,
pembatasan program
If... then.. else :
untuk mencari kondisi yang benar dengan seleksi
If bercabang/ bersarang (nested
if)
Select case : membuat kode lebih mudah untuk dibaca
7.
Operator
pengulangan adalah operator untuk memberikan pengulangan pada satu perintah
hingga jumlah terntentu
1. Do.. loop : eksekusi statement dalam jumlah yang belum ditentukan tapi
terus diseleksi apakah akan diteruskan atau tidak
2. For.. next : digunakan apabila mengetahui pengulangan yang dibutuhkan
3. While.. wend : pengulangan tak hingga dengan mengikuti
ketentuan yang benar, yang salah akan dilewati
8.
Listing I Love you 100x
Do while <kondisi>
I Love you
Loop
9.
Listing program gaji karyawan
Procedur T Form 3C Jabatan
click(sender:T object);
Begin
If jabatan text=”Direktur” then
e pokok text := ‘7.000.000’
else
if Jabatan text=”Manager” then
e pokok text:=’3.000.000’
else
if Jabatan text=”karyawan” then
e pokok text:=’1.500.000’
else
e pokok text=’0’
end.
10.
Kuadran 1 muncul saat x positif, y positif
Kuadran 2 muncul saat x negative,
y positif
Kuadran 3 muncul saat x negative,
y negative
Kuadran 4 muncul saat x positif, y
negative
Tidak akan keluar lokasi kuadran
jika tidak memenuhi syarat tersebut