[Struktur Data] Procedure dan Fungsi

PROCEDURE & FUNCTION

PROCEDURE
Merupakan blok program yg terpisah dr program lain ( modul / sub program ), dan dapat dipanggil dari program lain dengan menyebutkan nama dari procedure yg bersangkutan.

Contoh :
    program pemakaian_procedure;
    uses crt;
    procedure input_data;
    begin
        write ( “ NIM = “ ); readln ( nim ) ;
        write ( “ Nama = “ ); readln ( nama ) ;
    end;
    var     nim : string [ 14 ] ;
        nama : string [ 20 ] ;
    begin
        clrscr ;
        input_data;
        writeln ( “ Selesai … “ ) ;
    end


FUNCTION
Blok fungsi hampir sama dengan procedure, hanya saja fungsi harus di deklarasikan dg tipe nya.

Buat program untuk menghitung jumlah 2 bilangan yg dilakukan dg fungsi & nilai dari kedua bilangan tsb, dikirimkan dr luar fungsi, yg mana nilai dr kedua bilangan harus diinputkan.

Program penjumlahan;
    Uses crt :
    Var bil1, bil2: byte;
    function hasil (var A,B: byte) : integer;
    Begin
        hasil:=A+B;
    end;
    begin
        clrscr;
        write (‘Bilangan 1=‘);readln(bil1);
        write (‘Bilangan 2=‘);readln(bil2);
        write (‘Bilangan1+Bilangan2=“, hasil(bil1,bil2));
    end
 

Untuk file lengkapnya download disini

Related Articel:

Posted in: MK-Struktur Data