Belajar Membuat Function

Kita perhatikan Declarasi Function Berikut :

Function lulus (var prestasi:integer):string;

Penjelasan :

  1. lulus : Nama Function
  2. prestasi: Variabel yang akan kita masukkan didalam function, dimana mempunyai tipe data integer dan variabel ini bisa lebih dari satu, dimana tergantung inputan/syarat dari function lulus itu sendiri
  3. string : tipe data dari hasil function itu sendiri

Selanjutnya kita lihat isi dari funtion lulus
function TForm1.lulus (var prestasi:integer):string;
begin
if prestasi>=80 then
Result:=’Lulus’ else Result:=’Tidak Lulus’;
end;

Mempunyai arti : Jika prestasi mempunyai nilai lebihdari ato sama dengan 80, maka nilai function yang didapat adalah Lulus, dan jika dibawah 80 maka nilai function yang didapat adalah tidak lulus.

Dan terakhir kita membuat inputannya :

procedure TForm1.Button1Click(Sender: TObject);
var
nilaiku:integer;
begin
nilaiku:=strtoint(Edit1.Text);
Edit2.Text:=lulus(nilaiku);
end;

Penjelasan :

Edit1.text adalah nilai dari nilaiku yang akan kita kirim ke function lulus.

Edit2.text adalah hasil dari function lulus.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s