novhard’s cube

Fungsi dan Prosedur

Di tulisan kali ini, aku akan mencoba membahas fungsi dan prosedur pada pascal.

1. Fungsi
Temen2 mungkin sudah sering mendengar kata fungsi di dalama pelajaran matematika.
pengertian fungsi di matematik dengan fungsi dalam pascal tidak jauh berbeda. Dapat dikatakan suatu
fungsi adalah sesuatu yang menrima inputan dan m enghasilkan sebuah ouputan. secara teori yang saya
ketahui sebuah fungsi akan menrima inputan dan akan mengembalikan sebuah nilai sesuai yang bertype sesuai
dengan type fungsinya. Fungsi memiliki type, variabel juga memiliki type, apakah fungsi dapat dikatakan
sebuah variable,mungkin bisa, tapi intinya sebuah fungsi data di tampung dalam sebuah variabel yang memiliki
type sama dengan fungsi tersebut.

contoh pendeklarasian sebuah fungsi

function namaFungsi(parameter): Type Fungsi;
variabel lokal
begin
end;

misalnya sebuah fungsi

function isgenap(a:integer):boolean;
var
z:integer;
begin
z:=a mod 2;
if(z=0) then
isgenap:=true;
else isgenap:=false;
end;

variabel yang ada didalam kurung pada contoh diatas misalnya a biasanya dikatakan sebagai parameter.
paramater ada yang bersifat sebagai parameter input, ada juga yang bersifat parameter input/output.
pendeklarasian parameter input/ouput dengan menggunakan kata kunci var di depan variabel yang diinginkan
dalam tanda kurung fungsi tersebut.
variabel yang dideklarasikan pada fungsi di katakan sebagai variabel lokal, variabel lokal adalah variabel
yang hanya berlaku pada fungsi atau procedure itu saja.
dalam sebuah fungsi diusahakan sedapat mungkin jangan terdapa perintah readln ataupun writeln.

2. procedure
Dalam pascal procedure dapat dikatakan sebagai program kecil yang memiliki fungsi tertentu. beda procedure
dari fungsi adalah procedure tidak memiliki type data. tidak seperti fungsi. procedure tidak bisa dimasukkan
kedalam sebuah variabel. Procedure dapat mengembalikan nilai dengan memanipulasi parameter input/outpunya.

contoh sebuah procedure

procedure tampilGenap(x:integer);
var
z:integer;
begin
z:=a mod 2;
if(z=0) then
Writeln (x,’adalah bilangan genap’);
else Writeln (x,’bukan bilangan genap’);
end;

untuk lebih jelasnya mengenai variabel lokal, parameter output/input serta parameter output
coba jalankan sintaks program di bawah ini

1.
var
a,b,c:integer;
procedure tambah(p,q,r:integer);
begin
r:=p+q;
writeln(p,q,r);
end;

begin
a:=1;
b:=4;
c:=3;
writeln(a,b,c)
end.

2.
var
a,b,c:integer;
procedure tambah(var p,q,r:integer);
begin
r:=p+q;
writeln(p,q,r);
end;

begin
a:=1;
b:=4;
c:=3;
writeln(a,b,c)
end.

3.
var
a,b,c:integer;
procedure tambah(p,q,r:integer);
begin
c:=a+b;
writeln(p,q,r);
end;

begin
a:=1;
b:=4;
c:=3;
writeln(a,b,c)
end.

amati perbedeaan ouputan dari ketiga program sederhana diatas ..