Procedure

Prosedur adalah suatu program terpisah dan berdiri dalam suatu blok program dan befungsi sebagai sebuah sub program (program bagian). Penulisan prosedur diawali dengan kata Procedure pada bagian deklarasi program dan cukup menuliskan nama prosedur yang dibuat pada bagian Implementasi.
Alasan penggunaan prosedur :
1. Digunakan untuk penggalan program yang akan digunakan secara berulang – ulang dalam suatu proses program.
2. Digunakan untuk memecah – mecah program menjadi sebuah modul program, sehingga listing program menjadi lebih sederhana.

Syarat penulisan nama procedure :
1. Harus diawali dengan karakter.
2. Untuk nama prosedur dengan menggunakan dua kata atau lebih penulisannya tidak boleh menggunakan spasi, harus digabung atau dihubungkan dengan underscore ( _ )
3. Tidak mengenal tanda baca.
Pertama buka delphi!
Pada tampilannya buatlah Console Aplication / Code Editor seperti di bawah ini :

 program Procedure2;

{$APPTYPE CONSOLE}

uses

  SysUtils;

procedure tambah;

var

a,b,c : integer;

begin

write('Masukkan Nilai A= '); readln(a);

write('Masukkan Nilai B= '); readln(b);

c:=a+b;

writeln('A+B= ',c:2);

end;

begin

tambah;

readln;

  { TODO -oUser -cConsole Main : Insert code here }

end.

Maka hasilnya akan seperti ini: