Parameter Keluaran

Prosedur mungkin menghasilkan satu atau lebih keluaran yang akan digunakan oleh program pemanggil. Jika ini kasusnya, maka nilai keluaran tersebut ditampung di dalam parameter keluaran.  Ketika prosedur yang mengandung parameter keluaran dipanggil, maka nama parameter aktual menggantikan (substitute) nama parameter formal yang bersesuaian di dalam prosedur. Selanjutnya, nama parameter aktual akan digunakan selama pelaksanaan prosedur (ini berlawanan dengan parameter masukan, yang dalam hal ini nilai dari parameter aktual yang di-assign ke dalam parameter formal). Karena nama parameter merupakan suatu lokasi di memori, maka bila di dalam prosedur parameter aktual meskipun prosedur selesai dilaksanakan. Jadi, setelah pemanggilan, parameter aktual berisi suatu nilai yang merupakan keluaran dari prosedur tersebut.

Parameter keluaran dideklarasikan di dlaam header prosedur, sebagaimana parameter masukan. Tetapi, parameter keluaran harus dideklarasikan dengan kata kunci output.

procedure HitungLuasSegitiga(input alas,tinggi : real, output luas : real)

{ Menghitung luas segitiga dengan rumus Luas = (alas x tinggi) /2 }

{ K.Awal : alas dan tinggi sudah terdefinisi sebelumnya }

( K.Akhir : luas berisi luas segitiga }

DEKLARASI

{ tidak ada }

ALGORITMA

   luas <- (alas x tinggi)/2

--------------------------------------------

PROGRAM Segitiga

{ Menghitung luas N buah segitiga }

DEKLARASI

i, N : integer

a, t, L : real { alas,tinggi, dan luas segitiga)

procedure HitungLuasSegitiga(input alas, tinggi : real, output luas: real)

{ Menghitung luas segitiga dengan rumus L= (alas x tinggi)/2 }

ALGORITMA

  read(N) { tentukan banyaknya segitiga }

  for i <- 1 to N do

       read(a,t)

      HitungLuasSegitiga(a,t,L)

write(L)

endfor