Pengertian Prosedur

Prosedur dalam bahasa pemrograman pascal berperan sebagai subprogram. Keberadaan prosedur sebagai subprogram dapat membantu menghndari redundant (penulisan kode secara berulang-ulang). Dengan adanya prosedur, kita tidak perlu mengetik ulang kode untuk suatu perintah yang sama.

Syntax Prosedur dalam Pascal

procedure nama_prosedur;
const  
    // Konstanta Lokal
var    
    // Konstanta Lokal
begin
    // Statement
end;

Untuk memanggil prosedur, kita hanya perlu menyebut nama prosedur (dan diikuti parameter jika diminta).

nama_prosedur;

Parameter

Parameter memungkinkan untuk bertukar nilai antara prosedur dan main program. Parameter dapat dibedakan menjadi dua macam.

Passed by Value

Parameter passed by value merupakan penerimaan searah. Maksudnya si pengirim dan penerima merupakan variabel yang berdiri sendiri, sehingga ketika salah satu mengalami perubahan nilai, maka hal tersebut tidak akan mempengaruhi variabel lain.

Source Code

program passedbyref;
procedure myprocedure(a:integer);
begin
    a := 46;
    writeln('Set nilai A = 46');
end;
var x:integer=99;
begin
    writeln('Variabel X = ',x);
    myprocedure(x);
    writeln('Variabel X = ',x);
    readln();
end.

Variabel X = 99
Set nilai A = 46
Variabel X = 99
root@USER-PC:~$ |

Passed by Reference

Parameter passed by reference merupakan kebalikan dari parameter passed by value. Jika salah satu variabel mengalami perubahan nilai, maka variabel lain yang terkait juga akan mengalami perubahan nilai yang sama.

Source Code

program passedbyref;
procedure myprocedure(var a:integer);
begin
    a := 46;
    writeln('Set nilai A = 46');
end;
var x:integer=99;
begin
    writeln('Variabel X = ',x);
    myprocedure(x);
    writeln('Variabel X = ',x);
    readln();
end.

Variabel X = 99
Set nilai A = 46
Variabel X = 46
root@USER-PC:~$ |