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;