- 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.
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..
