Blok fungsi hamper sama dengan blok procedure, hanya fungsi harus dideklarasikan dengan tipenya. Tipe deklarasi ini menunjukkan tipe hasil dari function. Pada daftar parameter bisa berisi sejumlah parameter yang dipisahkan denga tanda koma. jika function tidak memiliki parameter, tanda() tidak perlu disertakan.
Contoh:
Program Latihan_Function;
Uses Wincrt;
Var
x,y:longint;
Function Tambah(a,b:longint):longint;
Var
Hasil:longint;
Begin
Hasil:=a+b;
Tambah:=Hasil;
End;
Begin
Write('Masukkan bilangan pertama: ');readln(x);
Write('Masukkan bilangan kedua: ');readln(y);
Write('Hasilnya adalah ',(Tambah(x,y)));
end.
0 komentar:
Posting Komentar