Algoritma dan Pemrogaman : Prosedur dan Fungsi

📋 Daftar Isi

Procedure (Prosedur)

Penggunaan

Prosedur dapat dideklarasikan dengan bentuk seperti berikut:

procedure Nama_Prosedur [(parameter)];
[Deklarasi variabel;]
begin
  ...
    statemen-statemen
  ...
end.

Prosedur digunakan terutama untuk hal-hal spesifik atau yang sering dilakukan. Prosedur juga tidak mengembalikan nilai.

Contoh Prosedur

program judul;

procedure bintang;
begin
  write('*');
end;
var i:integer;
begin
  for i:=1 to 9 do bintang;
  writeln;
  bintang;
  write('Judul');
  bintang;
  writeln;
  bintang;
end.

Output dari program di atas akan seperti berikut:

Function (Fungsi)

Penggunaan

Fungsi dapat dideklarasikan dengan bentuk sebagai berikut:

function Nama_fungsi [(parameter)]:Tipe_fungsi;
[Deklarasi variabel;]
begin
...
  statemen-statemen;
  [Nama_fungsi:=nilai_fungsi]
end.

Fungsi digunakan terutama untuk hal-hal spesifik atau yang sering dilakukan. Berbeda dengan prosedur yang tidak dapat mengembalikan nilai, fungsi dapat mengembalikan nilai.

Contoh Fungsi

program luass;
function luas_lingkaran(r:real):real;
begin
  luas_lingkaran:=3.14*r*r;
end;
var luas:real;
    n:integer;
begin
  writeln('=========================');
  writeln('Menghitung Luas lingkaran');
  writeln('=========================');
  write('Masukkan nilai r = ');readln(n);
  luas:=luas_lingkaran(n);
  write('Luas = ',luas:0:2);
end.

Output dari program di atas akan seperti berikut: