Function (Fungsi) Pada Pascal

Function (Fungsi) secara garis besar sama dengan procedure yang membedakannya adalah nama fungsi harus dideklarasikan dengan type datanya. Fungsi adalah suatu bagian program yang mengerjakan satu tugas dan hasilnya biasanya hanya satu. Fungsi juga menerima parameter-paramter seperti procedure yaitu Parameter Nilai dan Parameter Variabel. Selain itu fungsi juga diperbolehkan memiliki deklarasi lokal tersendiri.

Bentuk umum pendefinisian fungsi:

view source

print?

1.Function NamaFungsi(Parameter-Parameter) : Tipe Fungsi;

2.Tipe Lokal

3.Konstanta Lokal

4.Variabel Lokal

5.Sub Program Lokal (Fungsi/Prosedur)

6.Begin

7..................

8.End;

Contoh Penulisan :
Function faktorial (var fak, hasil : I nteger) : integer;

Cara memanggil fungsi adalah dengan menuliskan nama fungsi beserta parameter-parameter yang diperlukan.

Parameter pada Fungsi

Sifat parameter dalam fungsi sama dengan sifat parameter dalam prosedur, yaitu bersifat lokal dan global.
Contoh program (parameter bersifat lokal)

view source

print?

01.Function Kali: Byte;

02.Var

03.A, B : Byte;

04.Begin

05.Write (‘Isi nilainya : ‘); Readln (A);

06.B := A * A;

07.End;

08. 

09.Begin

10.Kali;

11.Writeln (‘Nilai B = ‘, B);

12.End.

Contoh program (parameter bersifat global)

view source

print?

01.Var

02.A, B : Byte;

03.Function Kali: Byte;

04.Begin

05.Write (‘Isi nilainya : ‘); Readln (A);

06.B := A * A;

07.End;

08. 

09.Begin

10.Kali;

11.Writeln (‘Nilai B = ‘, B);

12.End.

Pemanggilan Fungsi

Parameter dalam fungsi (idem dengan prosedur), yaitu dapat dilakukan pemanggilan secara nilai (by Value) atau secara acuan (by reference)

Contoh program (by Value)

view source

print?

01.Function Hitung (X, Y, Z : Byte): Byte;

02.Begin

03.Z : = X + Y;

04.Writeln (‘Nilai X = ‘, X);

05.Writeln (‘Nilai Y = ‘, Y);

06.Writeln (‘Nilai Z = ‘, Z);

07.End;

08. 

09.Var

10.A, B, C : Byte;

11.Begin

12.A := 5; B:= 7; C:=3;

13.Hitung (A, B, C);

14.Writeln (‘Nilai A = ‘,A,’Nilai B = ‘,B,’Nilai C = ‘,C);

15.Readln;

16.End.

17. 

18.<strong>Contoh program (by Reference)</strong>

19. 

20.Function Hitung (Var X, Y, Z : Byte): Byte;

21.Begin

22.Z : = X + Y;

23.Writeln (‘Nilai X = ‘, X);

24.Writeln (‘Nilai Y = ‘, Y);

25.Writeln (‘Nilai Z = ‘, Z);

26.End;

27. 

28.Var

29.A, B, C : Byte;

30.Begin

31.A := 5; B:= 7; C:=3;

32.Hitung (A, B, C);

33.Writeln (‘Nilai A = ‘,A,’Nilai B = ‘,B,’Nilai C = ‘,C);

34.Readln;

35.End.