- PENGERTIAN PROCEDURE
Pengertian secara kasar adalah suatu
cara atau langkah yang dilakukan untuk mencapai tujuan. Procedure membuat
langkah untuk mencapai tujuan utama dengan cara membagi-bagi menjadi
langkah-langkah dengan tujuan kecil terlebih dahulu. Untuk pengertian yang
lebih jelasnya bisa anda lihat di sini.
Contoh dalam kehidupan : jika anda
ingin pergi belanja ke supermarket, maka :
1. Pergi ke halte
2. Naik kendaraan umum
3. Turun di depan supermarket
4. Beli gorengan di depan supermarket
dahulu.
5. Nongkrong
6. Belanja di supermarket.
Atau anda menggunakan langkah :
1. Pergi ke garasi
2. Naik motor
3. Turun di supermarket
4. Belanja
Yang penting hasil akhirnya belanja.
- PENGERTIAN FUNCTION
- PENGERTIAN PARAMETER
Sebuah identifier yang dapat ditemui
di dalam prosedur atau function dan berfungsi untuk menghasilkan output
berbeda.
- CONTOH SYNTAX
- Program Procedure Bintang.
uses crt;
procedure cetak1;
begin
write('*');writeln;
write('**');writeln;
write('***');writeln;
write('****');writeln;
write('*****');
end;
procedure cetak2;
begin
write('*****');writeln;
write('****');writeln;
write('***');writeln;
write('**');writeln;
write('*');
end;
procedure cetak3;
begin
write('* *');writeln;
write('* * *');writeln;
write('* * *');writeln;
write('*****');
end;
procedure cetak4;
begin
write('* *');writeln;
write('* * *');writeln;
write('* * *');writeln;
write('* *');
end;
begin
clrscr;
cetak1;
cetak2;
cetak1;
readkey;
end.
Keterangan =
di bentuk akhirnya bisa dilihat dibawah. Hasil akhirnya ada gambar yang
berpolakan sama. Nah dengan prosedur, kita dapat menulis pola tersebut satu
kali di dalam procedure. Kemudian kita dapat memanggil pola tersebut 2x atau
seterusnya.
2. Procedure perkalian tanpa parameter
uses crt;
procedure perkalian;
var x,x2:integer;
begin
write ('jika nilai x = ');
readln(x);
x2:=x*x;
writeln('maka nilai x2 = ',x2);
end;
begin
clrscr;
perkalian;
readln;
end.
3. Procedure dengan parameter
uses crt;
procedure cetakAngka(x:integer);
begin
write(x);
end;
begin
cetakAngka(5);writeln;
cetakAngka(10);
readkey;
end.
4. Function simpel banget
uses crt;
function hitungLuas:integer; (*diberi nilai integer*)
begin
hitungLuas:=5*10;
end;
begin
clrscr;
write(hitungLuas);
readkey;
end.
5. Penerapan prosedur,fungsi,parameter
program prosedurfungsi;
uses crt;
var angka1,angka2,angka3:integer;
procedure cetak;
begin
write('*');
end;
procedure cetak4;
begin
cetak;cetak;cetak;cetak;writeln();
end;
procedure cetak2;
begin
cetak;write(' ');write('
');cetak;writeln();
end;
procedure bentuk1;
begin
cetak4;cetak2;cetak2;cetak4;
end;
procedure bentuk2;
begin
cetak4;cetak2;cetak2;cetak2;cetak2;cetak2;cetak4;
end;
function luasPersegi(s:integer):integer;
begin
write('Luas Persegi adalah: ');
luasPersegi:=s*s;
end;
function
luasPersegiPanjang(p,l:integer):integer;
begin
write('Luas Persegi Panjang adalah:
');
luasPersegiPanjang:=p*l;
end;
begin
clrscr;
bentuk1;
writeln('Menghitung Luas Persegi');
write('Masukkan sisi persegi: ');
readln(angka1);
writeln(luasPersegi(angka1));
write('Klik enter untuk
melanjutkan...');
readln;
bentuk2;
writeln('Menghitung Luas Persegi
Panjang');
write('Masukkan panjang:
');readln(angka2);
write('Masukkan lebar:
');readln(angka3);
writeln(luasPersegiPanjang(angka2,angka3));
readkey;
end.
Keterangan
Pada variable diatas ada angka1,angka2,angka3. Di dalam prosedur (angka1)
diganti dengan variable (s), kemudian pada variable (angka2) dan (angka3)
diganti dengan (p) dan (l).
Dengan demikian segitulah tutorial pada kesempatan ini. Semoga bermanfaat. Dan nantikan episode selanjutnya...
Selamat malam Pak..
