120 likes | 247 Views
Procedure & Function. Sub Program. Pengenalan Sub Program. Procedure & Function (1).
E N D
Procedure & Function 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. • Procedure = Subprogram yang tidakmemberikan / mempunyainilaiakhir • Function = Subprogram yang memberikan / mempunyainilaiakhir
Procedure & Function (2) PROCEDURE nama; PROCEDURE nama (formal parameter : jenis); FUNCTION nama : jenishasil; FUNCTION nama (formal parameter : jenis ) : jenis_hasil;
Procedure non parameter program halo; uses wincrt; procedure coba; begin writeln('PASCAL'); end; begin write('halo '); coba; Readln; end. Definisi Procedure Program Utama Pemanggilan Procedure
Procedure with parameter lokal Parameter Formal program loop; uses wincrt; procedure ulangi(karakter:char; jum:integer); var i:integer; begin for i:=1 to jum do write(karakter); writeln; end; begin ulangi('*‘,10); ulangi('#‘,3); ulangi('+‘,5); Readln; end. Parameter Lokal Definisi Procedure Parameter Aktual Program Utama
Procedure with parameter global program loop; uses wincrt; var i:integer; procedure ulangi(karakter:char; jum:integer); begin for i:=1 to jum do write(karakter); writeln; end; begin ulangi('*‘,10); ulangi('#‘,3); ulangi('+‘,5); Readln; end. Parameter Global Definisi Procedure Pemanggilan Procedure Program Utama
Latihan • Bagaimanamembuat program LUAS BIDANG DATAR denganmenggunakan Procedure??
Function (1) program coba; uses wincrt; var x:integer; function tambah(a,b: integer): integer; begin tambah:= a + b; end; begin x:=tambah(2,3); write(x); readln; end. Parameter Global Definisi Function Program Utama
Function (1) program coba2; 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.