lp procedure

LP

Function

Function merupakan module atau kumpulan pernyataan yang mengembalikan hasil berupa nilai tunggal. Dalam procedure nilai yang dikembalikan bisa terdiri dari beberapa nilai, tetapi function mengembalikan nilai tunggal. Function digunakan untuk melakukan operasi matematika seperti perhitungan faktorial.

Contoh :

Program menentukan_luas_keliling_lingkaran;

uses crt;

const

     phi=3.14;

Function Luas_lingkaran(r,luas:real) :real;

begin

     luas:=phi*r*r;

     writeln('Luasliangkaran adalah ',luas:0:2);

     readln;

end;

{program utama}

var

   r,luas:real;

begin

     clrscr;

     writeln('Program menghitung luas lingkaran');

     writeln(' ');

     write('input jari2 lingkaran ');

     read(r);

     luas:=Luas_lingkaran(r,luas);

     readln;

end.

1.4  Procedure

Prosedure ini digunakan untuk aktivitas yang harus dilakukan lebih dari satu kali dan untuk menghindari penulisan teks program yang sama secara berulang kali. Prosedur ini cukup ditulis sebanyak satu kali namun dapat dipanggil dari bagian program utama. Pada dasarnya, struktur prosedur sama dengan struktur program yang sudah kita kenal, hanya saja bagian judul (header) ditulis PROSEDURE (bukan lagi PROGRAM)

Contoh :

   Program menentukan_luas_keliling_lingkaran;

uses crt;

const

     phi=3.14;

var

   r:real;

Procedure Luas_lingkaran;

var

   luas:real;

begin

     luas:=phi*r*r;

     writeln('Luasliangkaran adalah ',luas:0:2);

     readln;

end;

{program utama}

begin

     clrscr;

     writeln('Program menghitung luas lingkaran');

     writeln(' ');

     write('input jari2 lingkaran ');

     read(r);

     writeln;

     Luas_lingkaran;

     readln;

end.