FUNGSI

FUNGSI

Fungsi : modul program yang memberikan / mengembalikan (return) sebuah nilai yang bertipe sederhana (integer, real, boolean, dan string).

Suatu function :
• Dimulai dengan kata kunci function
• Strukturnya sama dengan sebuah procedure
• Didalam fungsi, suatu nilai dihasilkan dengan nama function
• Suatu function dipakai pada sisi sebelah kanan pada suatu ekspresi
• Hanya menghasilkan tipe data sederhana

SYNTAX

function Nama (deklarasi variabel) : tipe_data_hasil;
begin
:
pernyataan
:
end;

contoh:

function ADD_TWO ( nilai1, nilai2 : integer ) : integer;
begin
ADD_TWO := nilai1 + nilai2
end;

CONTOH PROGRAM

program CONTOH_FUNGSI;
uses wincrt;

var angka, jawaban : integer;

function KUBIK( x : integer ) : integer;
begin

KUBIK := x * x * x
end;

begin

writeln('Masukkan angka.');
readln(angka);
jawaban := KUBIK ( number );
writeln('Hasil pangkat tiga dari ',number,' adalah ', answer)
end.

Contoh Translasi :

Fungsi menentukan bilangan genap dan program utamanya.

ALGORITMIK

Fungsi :

function GENAP (input n : integer ) à
boolean

{ mengembalikan nilai true jika n adalah bilangan genap, false jika sebaliknya }

DEKLARASI

{ tidak ada }

DESKRIPSI

    return ( n mod 2 = 0 );

 

Program Pemanggil :

Algoritma GENAP_GANJIL

{ Program utama menentukan apakah sebuah bilangan genap atau ganjil }

DEKLARASI

    Bil : integer

    Function GENAP ( input n:integer ) à
boolean

    { Mengembalikan nilai true jika n adalah bilangan genap, false jika sebaliknya }

DESKRIPSI

    Read (bil)

    If GENAP (bil) then

        Write (n, ' adalah bilangan genap')

    Else

        Write (n, ' adalah bilangan ganjil')

    Endif

 

PASCAL

program GENAP_GANJIL;

uses wincrt;

var

    bil : integer;

 

Function GENAP(n:integer):boolean;

Begin

GENAP:=(n mod 2 = 0);

End;

 

Begin

Write ('Ketikkan sembarang bilangan bulat : '); Readln (bil);

    if GENAP(bil) then

        Writeln(bil, ' adalah bilangan genap')

    Else

        Writeln(bil, ' adalah bilangan ganjil')

End.