Tutorial Pascal - Function Pascal
Blok fungsi hampir sama dengan blok prosedur, hanya fungsi harus dideklarasikan dengan tipenya atau jenis hasilnya. Tipe deklarasi ini menawarkan tipe hasil dari fungsi. Secara umum bentuk header suatu function yakni :
FUNCTION identifier(daftar parameter) : type;
Parameter Nilai dalam function Parameter dalam function sanggup dikirimkan secara nilai atau secara acuan. Penulisan judul function yang memakai parameter secara Nilai yakni :
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, akhirnya berupa real.
4. Fungsi standar INT
Bentuk umum : INT(x:real):real;
Digunakan untuk menghasilkan nilai integer dari x. hasil dari fungsi yakni tipe real dengan nilai yang berupa pembulatan ke bawah (nilai penggalan 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
