Penulisan Function dan Procedure Pada Pascal

Pada artikel sebelumnya mimin sudah menjelaskan tentang Function dan Procedure. Pada kesempatan kali ini mimin akan menjelaskan bagaimana cara penggunaan function dan procedure tersebut didalam bahasa pemrograman pascal. Pasti ada diantara kalian yang tidak tahu bagaimana cara menggunakan function atau procedure pada pascal. Oleh karena itu disini mimin akan menjelaskannya. Sebelum kita mulai, ada beberapa hal yang perlu kalian siapkan yaitu jika kalian belum menginstall Free Pascal silahkan kalian baca tutorial Install Free Pascal. Dalam pembelajaran ini mimin menggunakan Notepad++ untuk menuliskan scriptnya dan mengcompilenya, bagi yang belum tahu caranya silahkan kalian baca tutorial Coding Pascal di Notepad++. Jika sudah siap semuanya, mari kita mulai.

Cara Penulisan Function

Pada pembelajaran kali ini mimin akan menggunakan kasus yang sama seperti pada artikel Function dan Procedure yaitu menghitung luas persegi panjang. Sebelum kita ketahap selanjutnya, kalian harus tahu bagaimana cara penulisan function pada pascal, berikut cara penulisannya:

program nama_program;

uses crt;

var //Variable bersifat global

        var1 : type_data;

        var2 : type_data;

        varN : type_data;

function nama_fungsi(parameter1 : tipe_data; parameter2 : tipe_data; parameterN : tipe_data) : tipe_data; //return atau hasil keluaran dari function

var //Variable bersifat lokal

        var_1 : tipe_data;

        var_2 : tipe_data;

        var_N : tipe_data;

begin //Batas awal penulisan script dari function

    

        //Tulis Script function Disini

end; //Batas akhir penulisan script dari function

//Main Program

begin //Batas awal penulisan script main program

        //Cara Pemanggilan

        var1 := nama_fungsi(parameter1, parameter2, parameterN);

end. //Batas akhir penulisan script main program

Untuk lebih jelasnya silahkan simak dan pelajari cara pengimplementasian function dari contoh diatas sebagai berikut:

program lPersegiP;
uses crt;

var //Variable global
p : integer;
l : integer;
hasil : integer;

function Luas(panjang : integer; lebar : integer) : integer;
begin
Luas := panjang * lebar; //Penulisan return atau hasil keluaran dari function
end;

begin
write('Masukkan Panjang : ');
readln(p);
write('Masukkan Lebar : ');
readln(l);

//Panggil function
hasil := Luas(p, l);

writeln('Luasnya adalah ', hasil);
write('Tekan Enter Untuk Mengakhiri Program');
readln;
end.

Berikut codingan pada Notepad++

Dan hasilnya seperti ini.

Cara Penulisan Procedure

Kita lanjut ke pembelajaran selanjutnya yaitu cara penulisan procedure. Disini mimin menggunakan kasus tukar bilangan seperti pada artikel Function dan Procedure. Sebelum ke tahap selanjutnya, kalian harus mengetahui terlebih dahulu cara penulisan procedure. Pada dasarnya penulisan procedure hampir sama dengan penulisan function, berikut cara penulisannya:

program nama_program;
uses crt;
var //Variable global

        //Deklarasikan variable global disini

procedure(var parameter1 : tipe_data; parameter2 : tipe_data; var parameterN : tipedata);
var //Varaible lokal

        //Deklarasikan variable lokal disini

begin //Batas awal penulisan script procedure

        //Tulis script procedure disini

end; //Batas akhir penulisan script procedure

//Main Program
begin //Batas awal penulisan script main program

        //Cara pemanggilan procedure
        tukar(parameter1, parameter2, parameterN);

end. //Batas akhir penulisan script main program

Untuk lebih jelasnya silahkan simak dan pelajari cara pengimplementasian procedure dari contoh diatas sebagai berikut:

program tukarBilangan;
uses crt;
var //Variable global
bil1 : integer;
bil2 : integer;

procedure tukar(var a : integer; var b : integer);
var //variable lokal
c : integer;
begin
c := a;
a := b;
b := c;
end;

//Main Program
begin
write('Masukkan Bilangan ke 1 : ');
readln(bil1);
write('Masukkan Bilangan ke 2 : ');
readln(bil2);

//Sebelum pemanggilan procedure tukar
writeln('Sebelum ditukar');
writeln('Bilangan ke 1 : ',bil1);
writeln('Bilangan ke 2 : ',bil2);
writeln;

//Panggil Procedure tukar
tukar(bil1, bil2);

//Setelah pemanggilan procedure tukar
writeln('Setelah ditukar');
writeln('Bilangan ke 1 : ',bil1);
writeln('Bilangan ke 2 : ',bil2);
writeln;

writeln('Tekan Enter Untuk Mengakhiri Program');
readln;
end.

Berikut codingan pada notepad++

Dan hasilnya seperti ini.

Catatan Penting

Ada beberapa hal yang harus kalian ketahui agar kalian lebih mengerti dan tidak salah paham terhadap coding yang sudah mimin contohkan diatas.

1. Varaible global merupakan variable yang dideklarasikan di program utama dan bisa di akses atau digunakan di seluruh program, baik di gunakan pada function maupun procedure.
2. Variable lokal merupakan variable yang dideklarasikan di function atau procedure dan hanya bisa di akses atau digunakan pada function atau procedure tersebut.
3. Function atau procedure boleh menggunakan variable lokal boleh tidak, tergantung kebutuhnam
4. Bedakan antara penulisan end; dengan end. karena keduanta tentu sangat berbeda. Penggunaan end; hanya digunakan untuk mengakhiri penulisan script pada function atau procedure. Sedangkan end. digunakan untuk mengakhiri penulisan script pada main program atau program utama.
5. Function atau procedure boleh menggunakan parameter boleh tidak, tergantung fungsi dari function atau procedure tersebut.
6. Penggunaan parameter pada function atau procedure tidak terbatas, kalian bisa menggunakannya lebih dari 1.
7. Pemanggilan function di program utama haruslah menggunakan variable untuk menampung return atau hasil keluaran dari function tersebut.
8. Tipe data return atau hasil keluaran dari function harus sesuai dengan tipe data variable yang akan menampung keluaran tersebut.
9. Penggunaan var pada parameter hanya digunakan untuk procedure. Perbedaan antara parameter yang menggunakan var dengan yang tidak adalah jika parameter menggunakan var, parameter tersebut memiliki 2 fungsi yaitu sebagai input sekaligus sebagai output, jika tidak menggunakan var parameter tersebut hanya berfungsi sebagai input saja.

Ya mungkin hanya sekalin pembelajaran kali ini, silahkan dicoba dan di pelajari. Mudah - mudahan apa yang mimin ajarkan ini dapat bermanfaat untuk kalian semua, terimakasih atas kunjungan kalian.

Source Code

• Luas Persegi Panjang
• Tukar Bilangan