Membuat Function di Turbo Pascal

Setelah beberapa hari yang lalu saya membahas tentang Membuat Procedure di Turbo Pascal
kali ini saya akan melanjutkan dengan Membuat Function di Turbo Pascal

Apa itu function ?
Function hampir sama dengan Procedure yaitu suatu modul program yang terpisah dari program utama yang diletakan dalam blok tersendiri yang berfungsi sebagai bagian dari program, tapi function memiliki perbedaan dengan procedure yaitu, jika function memberikan nilai balik (return) namun jika procedure tidak

Langakah - langkah Membuat Function di Turbo Pascal

1. Buka program turbo pascal yang anda punya

2.. Ketikan script dibawah ini

program fungsi;
uses crt;

function hitungluas(p,l:integer):integer; {membuat fungsi hitungluas dimana parameter p dan l adalah integer}
begin       {Dan nilai yang akan dikembalikan (return) berupa integer}
 hitungluas:=p*l; {Menghitung luas persegi,hasil dari hitungluas adalah nilai yang akan dikembalikan (return)}
end;

var
 pj,lb:integer;
begin
 clrscr;
 writeln('===============');
 writeln('Tutorial Koding');
 writeln('===============');
 
 write('Masukan Panjang Persegi Panjang : ');readln(pj);
 write('Masukan Lebar Persegi Panjang : ');readln(lb);

 writeln('Luas Persegi Panjang : ',hitungluas(pj,lb)); {Memanggil fungsi hitungluas serta mengirimkan parameter berupa pj dan lb}
 readln;
end.