Pascal - Function Pascal

Blok fungsi hampir sama dengan blok prosedur,  hanya fungsi harus dideklarasikan dengan tipenya atau jenis hasilnya. Tipe deklarasi ini menunjukkan tipe hasil dari fungsi. Secara umum bentuk header suatu function adalah :

FUNCTION identifier(daftar parameter) : type;

Parameter Nilai dalam function Parameter dalam function dapat dikirimkan secara nilai atau secara acuan. Penulisan judul function  yang menggunakan parameter secara Nilai adalah :

Function besar(a,b : real) : real;

program penggunaan_parameter_nilai;

uses crt;

function besar(a,b :real) : real;

  begin

   if a>b then

     besar:=a

   else

     besar:=b;

  end;

{modul utama}

var

nil1,nil2 : real;

begin

    write('bilangan 1=');readln(nil1);

    write('bilangan 2=');readln(nil2);

    writeln('bilangan terbesar =',besar(nil1,nil2):6:2);

    readln;

end.

Function dengan parameter

program pengiriman_parameter_secara_acuan;

function kali(var bil1,bil2,jumlah : integer) : integer;

begin

kali:=bil1*bil2;

jumlah:=bil1+bil2;

end;

var

x,y,z : integer;

begin

write('bilangan 1=');readln(x);

write('bilangan 2=');readln(y);

writeln(x:3,'*',y:3,' = ',kali(x,y,z):5);

writeln(x:3,'+',y:3,' = ',z);

readln;

end.

Function tanpa parameter

function tiga : integer;

begin

tiga:=3;

end;

begin

writeln(tiga);

end;

Jadi hasil : 3

Fungsi standar aritmatika

1.      Fungsi standar ABS

Bentuk umum :  ABS(x);

Digunakan untuk memutlakkan suatu nilai yang ditunjukkan oleh argumen x.

Contoh :

Begin

X:=-2.3;

Write(‘Nilai X = ‘,X,’ Nilai mutlaknya =

‘,Abs(X):3:1);

End.

2.      Fungsi standar SQR

Bentuk umum :  SQR(x);

Digunakan untuk menghitung nilai pangkat kuadrat dari argumen x.

Contoh :

Begin

X :=2;

Write(‘Nilai X = ‘,X,’ Nilai kuadratnya =

‘,sqr(x));

End.

Hasilnya : Nilai X = 2 Nilai kuadratnya = 4

3.      Fungsi standar SQRT

Bentuk umum :  SQRT(x) : real;

Digunakan untuk menghitung nilai akar dari argumen x, hasilnya berupa real.

4.      Fungsi standar INT

Bentuk umum :  INT(x:real):real;

Digunakan untuk menghasilkan nilai integer dari x.  hasil dari fungsi adalah tipe real dengan nilai yang berupa pembulatan ke bawah (nilai pecahan dibuang) dari nilai x.

Contoh :

Begin

X:=9.99;

Write(‘Nilai yang akan dibulatkan = ‘,X);

Writeln(‘Nilai pembulatannya =

‘,Int(X):3:2);

End.

Hasil :

Nilai yang akan dibulatkan = 9.99

Nilai pembulatannya = 9.00

Share this post