Procedure Pada Delphi berbasis Text

Hai Sweabyers !!!

Jumpa lagi dengan postingan~postingan aku seputar Algoritma dn pemrograman.
Pada posting kali ini akan membahas tentang Procedure dan beberapa macamnya pada Delphi.
Apa sih prosedure itu? 
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.
Prosedur banyak digunakan pada program yang terstruktur karena : 

- merupakan penerapan konsep program modular, yaitu memecah-mecah program yang rumit menjadi program-program bagian yang lebih sederhana dalam bentuk prosedur-prosedur. 

- Untuk hal-hal yang sering dilakukan berulang-ulang, cukup dituliskan sekali saja dalam prosedur dan dapat dipanggil atau dipergunakan sewaktu-waktu bila diperlukan. 

Ada 3 Parameter dalam procedure, yaitu:

1. Parameter Dalam Prosedur (Procedure Standart)

         Nilai didalam modul program Pascal sifatnya adalah local, artinya hanya dapat digunakan pada modul atau unit program yang bersangkutan saja, tidak dapat digunakan pada modul atau unit program yang lainnya.

Contoh program

 uses

  SysUtils;

  procedure tambah;

Var

  A,B,C: Integer;

Begin

  writeln('PROCEDURE STANDART');

  writeln('==================');

  write ('nilai A=');

  readln (A);

  write ('nilai B=');

  readln(B);

  C :=A+B;

  writeln ('A+B=',C);

  End;

  begin

  tambah;

  readln;

End.

Salin script diatas pada Delphi kalian seperti pada gambar berikut.

Jalankan maka akan tampil seperti berikut ini.

Masukkan angka sesuai keinginan kalian, terserah mau berapa aja boleh kok? Bebaslah pokoknya hehehe :D:D:D:D

Setelah selesai, klik enter dan jawaban kalian akan muncul seperti berikut ini.

Keterangan contoh program : 

Bila program dikompilasi, akan di deteksi kesalahan oleh compiler, karena variable C yang sifatnya local di procedure tambah digunakan pada program utama.

2.Pengiriman Parameter Secara Nilai  (Procedure by Value)

        Bila parameter dikirimkan secara nilai, parameter formal di prosedur akan berisi nilai yang dikirimkan yang kemudian bersifat local di prosedur. Bila nilai parameter formal di prosedur berubah, tidak akan mempengaruhi nilai parameter nyata ( nilai parameter nyata tetap, tidak berubah). Pengiriman secara nilai ini merupakan pengiriman searah, yaitu dari parameter nyata ke parameter formal, yang tidak dikirimkan balik dari parameter formal ke parameter nyata.  Parameter – parameter yang digunakan dengan pengiriman secara nilai ini disebut dengan parameter nilai ( value parameter ).

Contoh program

uses

  SysUtils;

  procedure tambah (a,b:integer);

Var

  C: Integer;

Begin

  C :=A+B;

  writeln('Hasil penjumlahan=',C);

end;

var

  x,y:integer;

begin

writeln('PROCEDURE BY VALUE');

  writeln('==================');

  write ('nilai x=');

  readln (x);

  write ('nilai y=');

  readln(y);

  tambah (x,y);

  readln;

End.

Salin script diatas pada Delphi kalian seperti berikut.

Jalankan programnya setelah selesai, maka akan muncul seperti gambar dibawah ini.

Setelah itu, masukkan angka yang kalian inginkan. Tekan enter, hasilnya akan muncul. Selesai, seperti gambar berikut ini.

Penjelasan program : 

- prosedur dimulai dengan deklarasi prosedur dengan judul prosedur tambah. Variable A dan B adalah parameter formal dan integer adalah tipe parameternya. 

- Variable local yang hanya dipergunakan di prosedur dan tidak termasuk parameter formal (parameter nilai), harus didefinisikan sendiri, yaitu : variable C 

- Hubungan antara parameter formal di prosedur dengan parameter nyata di modul utama adalah : nilai parameter nyata X dan Y di modul utama dikirimkan ke parameter formal A dan B di prosedur. Dengan demikian nilai parameter A dan B diprosedur akan berisi nilai yang sama dengan parameter X dan Y di modul utama.

3.Pengiriman Parameter Secara Acuan (Procedure by Reference)

          Bila pengiriman parameter secara acuan, maka perubahan-perubahan yang terjadi pada nilai parameter formal di prosedur akan mempengaruhi nilai parameter nyata. Parameter-parameter ini disebut dengan variable parameter serta dideklarasikan di deklarasi prosedur dengan menggunakan kata cadangan Var.

Contoh program

uses

  SysUtils;

var

  x,y,z:integer;

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

begin

  c:=a+b;

end;

begin

writeln('PROCEDURE BY REFERENCE');

  writeln('======================');

  write ('nilai x=');

  readln (x);

  write ('nilai y=');

  readln(y);

  tambah (x,y,z);

  writeln ('x+y =',z);

  readln;

End.

Salin script diatas pada Delphi kalian.

Setelah selesai, jalankan programnya.Maka tampilannya akan seperti berikut ini.

Masukkan nilai x dan y seperti berikut ini.

 Setelah selesai, tekan enter dan hasailnya akan muncul dibawahnya seperti pada gambar berikut ini.

Penjelasan program : 

- Pengiriman parameter secara acuan merupakan pengiriman dua arah, bolak-balik, sehingga perubahan nilai di parameter formal akan mempengaruhi nilai parameter nyata juga. Pada contoh, nilai parameter nyata Z akan mengikuti perubahan nilai dari parameter formal C. 

Nah, itu tadi penjelasan tentang procedure dan macam~macamnya.

Sekian postingan untuk kali ini, semoga bermanfaaat. terimakasih dan sampai jumpa di postingan~postingan aku berikutnya. :):):)

Jangan bosen~bosen buat belajar walaupun itu ada banyak tantangan menghadang, karna kita bisa karena terbiasa.

Salam Semangat !! :D:D

Dadaaaaahhh !!!!