PROCEDURE FUNCTION Sub Program Pengenalan Sub Program Procedure

PROCEDURE & FUNCTION Sub Program

Pengenalan Sub Program

Procedure & Function (1) • Procedure dan Function adalah suatu program terpisah dalam blok sendiri yang berfungsi sebagai sub-program (modul program) yang merupakan sebuah program kecil untuk memproses sebagian dari pekerjaan program utama. Subprogram yang tidak memberikan / mempunyai nilai akhir • Function = Subprogram yang memberikan / mempunyai nilai akhir • Procedure =

Procedure & Function (2) PROCEDURE nama; PROCEDURE nama (formal parameter : jenis); FUNCTION nama : jenis hasil; FUNCTION nama (formal parameter : jenis ) : jenis_hasil;

Procedure non parameter program halo; uses wincrt; procedure coba; begin writeln('PASCAL'); end; begin write('halo '); Pemanggilan Procedure coba; Readln; end. Definisi Procedure Program Utama

Procedure with parameter lokal program loop; uses wincrt; Parameter Formal procedure ulangi(karakter: char; jum: integer); var i: integer; Parameter Lokal begin for i: =1 to jum do write(karakter); Definisi Procedure writeln; end; begin ulangi( '*‘ , 10 ); Parameter Aktual ulangi( '#‘ , 3 ); ulangi( '+‘ , 5 ); Readln; end. Program Utama

Procedure with parameter global program loop; uses wincrt; var i: integer; Parameter Global procedure ulangi(karakter: char; jum: integer); begin for i: =1 to jum do write(karakter); Definisi Procedure writeln; end; begin ulangi( '*‘ , 10 ); ulangi( '#‘ , 3 ); ulangi( '+‘ , 5 ); Readln; end. Pemanggila n Procedure Program Utama

Latihan • Bagaimana membuat program LUAS BIDANG DATAR dengan menggunakan Procedure? ?

Function (1) program coba; uses wincrt; var x: integer; Parameter Global function tambah(a, b: integer): integer; begin tambah: = a + b; end; begin x: =tambah(2, 3); write(x); readln; end. Definisi Function Program Utama

Function (1) program coba 2; uses wincrt; var p, q, a, b: integer; Function max (x, y : integer) : integer; Begin If x < y then max : = y else max : = x; End; begin write('input a: '); readln(a); write('input b: '); readln(b); p: = max(a, b); q: = max(a+b, a*b); writeln('p= ', p); writeln('q= ', q); readln; end.