Procedure dan Function

Seperti yang kita ketahui bahwa dalam bahasa pemrograman apapun pastilah memiliki istilah yang disebut dengan function dan procedure. Tidak peduli kamu menggunakan bahasa pemrograman apapun, seperti Delphi, Java, C++, Visual Basic, dan program lainnya.

okk, saya akan coba untuk membahas tentang itu:

Pengertian Procedure dan Function
=> Procedure yaitu sub program yang digunakan untuk melakukan proses tertentu dan tidak mengembalikan nilai, bisa disimpan dalam database sebagai object skema, sehingga suatu procedure bisa digunakan berulangkali tanpa harus melakukan parsing dan compile ulang. 
=> Function yaitu Sebuah kumpulan Statement yang akan mengembalikan sebuah nilai balik pada pemanggilnya. Nilai yang dihasilkan Function harus ditampung kedalam sebuah variabel.

Perbedaan function dan procedure, yaitu :

Perbedaan Procedure dan function

Perbedaan antara function dan procedure adalah : kalau function dia akan mengembalikan suatu nilai pada pemanggilnya, sedangkan kalau procedure dia tidak akan mengembalikan nilai apapun pada fungsi pemanggilnya

Nahh,, Berikut contoh Sistem Procedur menggunakan program penjumlahan 2 bilangan:

Procedure sistem model

{$APPTYPE CONSOLE}
uses
  SysUtils;
procedure coba;
var
  a,b,c:integer;
begin
  writeln ('WELCOME TO munawir2706.blogspot.com');
  writeln ('=================================');
  writeln ('Nama : MUNAWIR');
  writeln ('NIK : 114224030');
  writeln ('=================================');
  write ('input nilai A = ');readln(a);
  write ('input nilai B = ');readln(b);
  C:=a+b;
  write ('hasil = ',c);readln;
end;

begin
coba;
readln;
end.


Atau dengan cara
Procedure By Value

{$APPTYPE CONSOLE}
uses
  SysUtils;
var
  x,y:integer;

procedure coba (a,b:integer);
var
c:integer;

begin
c:=a+b;
writeln ('hasil = ',c);
end;

begin
  writeln ('WELCOME TO munawir2706.blogspot.com');
  writeln ('=================================');
  writeln ('Nama : MUNAWIR');
  writeln ('NIK : 114224030');
  writeln ('=================================');
  write ('input x=');readln(x);
  write ('input y= ');readln(y);
  coba (x,y);readln;
end.

Atau dengan cara
Procedure By Reference

{$APPTYPE CONSOLE}
uses
  SysUtils;
var
  x,y,z:integer;
procedure coba (var a,b,c:integer);

begin
c:=a+b;
end;

begin
  writeln ('WELCOME TO munawir2706.blogspot.com');
  writeln ('=================================');
  writeln ('Nama : MUNAWIR');
  writeln ('NIK : 114224030');
  writeln ('=================================');
  write ('input x= ');readln(x);
  write ('input y = ');READLN(Y);
  coba (x,y,z);
  write ('hasil = ',z);readln;
end.

Hasil dari ketiga cara di atas sama, yang membedakan dari ketiga cara diatas hanya penempatan input, proses, dan outputnya saja. Berikut hasilnya:

Berikut cara mudah dari sistem Procedure.
Baca juga cara membuat program menghitung faktorial menggunakan sistem procedure

Sekian terimakasih,.,,,, :)