FUNGSI

Pada dasarnya yang membedakan fungsi dan prosedur adalah fungsi memberikan nilai balik sedangkan prosedur tidak. Penggunaan fungsi selalu diawali dengan kata Function. Struktur umum penulisan fungsi adalah sebagai berikut :

Function Nama_Fungsi(param_formal:tipe_param,...):tipe_hasil;
var
{bagian deklarasi fungsi, sifatnya lokal}
begin
statement-1;
statement-2;
…………
Statement-n;
Nama_Fungsi:=hasil;
End;
Program persegi; {judul Program Utama}
uses crt;

Function cetakBintang : string; {Fungsi untuk mencetak bintang}
begin
cetakBintang := '****';
end;

{program utama}
begin
writeln(cetakBintang); {Memanggil fungsi cetakBintang}
writeln(cetakBintang);
writeln(cetakBintang);
writeln(cetakBintang);
End.