OLIMPIADE PASCAL

Dalam Turbo Pascal terdapat fungsi-fungsi standar yang siap dipergunakan. Contohnya fungsi matematika, seperti dibawah ini:

FUNGSI KETERANGAN

Cos(x) Untuk memperoleh nilai cosinus dari sudut x (radian). Parameter dan
hasil bertipe Real.
Sin(x) Untuk memperoleh nilai sinus dari sudut x (radian).
ArcTan(x) Memperoleh arctangen dari nilai x. Parameter dan hasilbertipe Real.
Exp(x) Menghasilkan nilai eksponen dari x. Parameter dan hasil bertipe Real.
Int(x) Mendapatkan bagian bulat dari argumen x. Hasil bertipe Real.
Sqr(x) Memperoleh nilai kuadrat dari x. Tipe hasil sesuai dengan parameter.
Sqrt(x) Memperoleh akar kuadrat dari x. Hasil dan parameter bertipe Real.
Abs(x) Digunakan untuk memperoleh nilai mutlak. Tipe hasil sesuai dengan
Parameter
Ln(x) Menghasilkan logaritma alami dair x. Parameter dan hasil bertipe Real.
Odd(bil) Memberikan hasil berupa True kalau bil (tipe LongInt)
Random(bil) Memberikan hasil berupa bilangan acak yang nilainya lebih besar
atau sama dengan nol kurang dari bil. Parameter dan hasil bertipe Word.

Pemrograman Turbo Pascal, mampu membuat sendiri suatu fungsi. Dengan bentuk sebagai berikut:
FUNCTION nama_fungsi(daftar_parameter):tipe; <— JUDUL FUNGSI
Bagian_deklarasi; <—- DEKLARASI FUNGSI
Bagian_pernyataan; <—- PERNYATAAN

JUDUL FUNGSI
Untuk pemberian judul fungsi, aturannya sama seperti pemberian pengenal (identifier).
Bentuk parameter berisi sejumlah parameter dengan bentuk
daftar_parameter(parameter_1:tipe_1;parameter_2:tipe_2;….;parameter_n:tipe_n)
tipe parameter menyatakan tipe dari parameter.
Untuk tipe dalam Fungsi menyatkan tipe dari hasil fungsi.

contoh judul fungsi:
FUNCTION Kali(A : Integer; B:Integer):Integer;
dari contoh fungsi kali mempunyai 2 parameter (A dan B) yang masing-masing bertipe Integer, dengan hasil fungsi bertipe Integer.

DEKLARASI FUNGSI
Deklarasi fungsi mempunyai bentuk seperti deklarasi program, yang mengandung Variabel, type, konstanta bahkan prosedur atau fungsi.

PERNYATAAN
Contoh
FUNCTION Kali(A,B : Real): Real;
Begin
Kali := A * B;
End;
Artinya fungsi kali akan memberikan nilai berupa penjumlahan dari parameter A dan B.

Conoth program menggunakan fungsi:

Program fungsi1;
Uses Crt;
var x, y, z: Real; {Variabel global}
FUNCTION kali (A,B : Integer) integer; {mulai fungsi kali}
Var Hasil : integer; {Variabel lokal}
Begin
Hasil := A * B;
kali := Hasil;
END; { akhir fungsi kali}
Begin {Program utama}
ClrScr;
x:= 2;
y:= 5;
z := x + y;
Writeln (z);
Writeln (kali(2, 5));
Readln;
End.

Hasil program tersebut adalah
7.0000000E+00
10

Dari program diatas, terdapat dua variabel yaitu Variabel global dan variabel lokal. variabel global merupakan variabel umum dalam program yang dapat

dipangil oleh program dan oleh fungsi. Sedangkan variabel lokal hanya dapat diakses oleh fungsi. Hasil 7.0000000E+00 (tipe Real) didapat dari Fungsi, sedangkan nilai 10 di proleh dari penjumlahan nilai x dan y dalam Program Utama.