BAG V FUNGSI
BAB V
FUNGSI
5.1 Pengertian Fungsi
Pengertian secara umum mengenai fungsi adalah merupakan sebuah penggalan program yang terpisah dari program utama dan berfungsi sebagai sebuah program bagian dari program utama. Penulisan fungsi diawali dengan kata cadangan function dan dideklarasikan dalam bagian deklarasi fungsi. Dan penulisan program fungsi ditempatkan pada program utama. Satu ha yang perlu diperhatikan dalam penulisan fungsi adalah harus diikuti dengan tipe datanya.
Bentuk Umum penulisan Fungsi
Fuction indentifier(daftar-parameter) : type;
Contoh
Function hitung(var a,b : real) :real;
Penulisan blok fungsi diawali dengan kata cadangan begin dan diakhiri dengan end;.
5.2. Fungsi Tunggal
fungsi tunggal merupakan suatu fungsi dimana proses pemanggilan dirinya sendiri tanpa melalui fungsi yang lain atau fungsi yang tidak terdapat dalam fungsi yang lain.
Contoh
.
a. Hasil yang diinginkan
b. Desain Form
c. Listing Program Dengan Fungsi
function hitung(var a,b : integer): integer;
begin
hitung := a+b;
end;
procedure TForm10.bjumlahClick(Sender: TObject);
var
x,y : integer;
c : integer;
begin
x := strtoint(enil1.Text);
y := strtoint(enil2.Text);
c:= hitung(x,y);
ehasil.Text := inttostr(c);
end;
Didalam program utama tidak ditempatkan rumus untuk menghitung penjumlahan tetapi ketika dilakukan eksekusi terhadap program dan kita melakukan input nilai 1 dan 2 dan kita klik jumlah maka akan ditampilkan hasil yang diinginkan. Hasil itu diperoleh dari pengiriman nilai dari teks ke nilai pada variabel deprogram utama (x := strtoint(enil1.Text);y := strtoint(enil2.Text);). Selanjutnya nilai pada variabel deprogram utama dikirim ke fungsi hitung untuk mendapat hasil penjumlahan (c:= hitung(x,y);).
5.3. Fungsi Untuk Memanggil Fungsi yang Lain
Merupakan pembuatan program fungsi yang digunakan untuk memanggil program fungsi yang lain didalam satu listing program.
Contoh
a. Hasil Yang Diinginkan
b. Desain Form
c. Desain Properties
Object Caption/Text Name
Label 1 Nama Peminjam Label1
Label 2 Jumlah Uang Pinjam Label2
Label 3 Tingkat Bunga (dalam %) Label3
Label 4 Lama Pinjam Label4
Label5 Besarnya Uang Yang Harus Dikembalikan Label5
Label6 Cicilan Uang Setiap Bulan Label6
GroupBox1 Rincian Nama Anggota Groupbox1
Edit1 - Epeminjam
Edit2 - Epinjam
Edit3 - Ebunga
Edit4 - Elama
Edit5 - Ekembalian
Edit6 - Ecicil
Button1 Total Btotal
Button2 Bersih Bbersih
Button3 Close Bclose
d. Listing Program
Fungsi Perhitungan Bunga
function pangkat(x,y : real):real;
begin
pangkat := exp(ln(x)*y);
end;
function bunga(e,f,g : real):real;
begin
bunga := e*pangkat((1+f/100),g);
end;
Program Total
procedure TForm15.btotalClick(Sender: TObject);
var
a,b,c,d,e : real;
begin
a := strtofloat(ejumlah.Text);
b := strtofloat(ebunga.Text);
c := strtofloat(elama.Text);
d := bunga(a,b,c);
ekembalian.Text := floattostr(d);
ekembalian.Text := formatfloat('#.###,0',d);
e := d/c;
ecicil.Text := floattostr(e);
ecicil.Text := formatfloat('#.###,0',e);
end;
Program Bersih
procedure TForm15.bbersihClick(Sender: TObject);
begin
ejumlah.Text :='';
elama.Text := '';
epeminjam.Text := '';
ebunga.Text := '';
ekembalian.Text :='';
ecicil.Text := '';
end;
Program Menutup Form
procedure TForm15.bcloseClick(Sender: TObject);
begin
close;
end;