#4 Pascal Programming

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

, , , ,

  1. #1 by deniar on March 22, 2008 - 2:35 am

    Wah semangat banget lo har posting2 beginian, sharing lah kirimin juga ke belajarpemrograman.net

  2. #2 by joandearc on November 7, 2008 - 2:09 pm

    Maksud variabel input/output apa kak?
    paling nda ngerti😦
    sy nda tw bedanya contoh 1 sama 2, variabel lokal ada VAR itu artinya gmn?

    newbie😦

Leave a Reply

Please log in using one of these methods to post your comment:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: