1 / 7

P R O C E D U R E

P R O C E D U R E. Prosedur. adalah suatu program terpisah dalam blok tersendiri yang berfungsi sebagai sub program (program bagian) dan diawali dengan kata cadangan Procedure. Bentuk Umum Prosedur :. Procedure nama (daftar_parameter); Var Bagian deklarasi; begin Bagian pernyataan;

noelani-blake
Download Presentation

P R O C E D U R E

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. PROCEDURE

  2. Prosedur adalah suatu program terpisah dalam blok tersendiri yang berfungsi sebagai sub program (program bagian) dan diawali dengan kata cadangan Procedure Bentuk Umum Prosedur : Procedure nama (daftar_parameter); Var Bagian deklarasi; begin Bagian pernyataan; End;

  3. Program judul_program; var {bagian deklarasi prosedur, sifatnya global} ProcedureNama_Prosedur; {Jika prosedur tidak memiliki parameter, tanda kurung tidak disertakan} var {bagian deklarasi prosedur, sifatnya lokal} begin statement-1; statement-2; ………… Statement-n; end; {program utama} begin Nama_Prosedur; end.

  4. Program Mencetak_Kata; • uses wincrt; • var • kata:string; • Procedure input_data; • begin • write('MASUKKAN SEBUAH KATA :');readln(kata); • end; • Procedure output_data; • begin • clrscr; • writeln(kata); • end; • {===program utama===} • begin • input_data; {Memanggil prosedur input_data} • output_data; {Memanggil prosedur output_data} • end.

  5. Program Luas_Keliling; uses wincrt; var pjg,lbr,luas,kel:integer; Procedure masukan; begin writeln('PROGRAM MENGHITUNG LUAS & KELILING PERSEGI PANJANG'); writeln('__________________________________________________'); writeln; write('MASUKKAN PANJANG :');readln(pjg); write('MASUKKAN LEBAR :');readln(lbr); end; Procedure hitung; begin luas := pjg * lbr ; kel := (pjg + lbr) * 2 ; end; Procedure keluaran; begin clrscr; writeln('PERSEGI PANJANG'); writeln('_________________'); writeln; writeln('PANJANG :',pjg); writeln('LEBAR :',lbr); writeln('LUAS :',pjg,' x ',lbr,' = ',luas); writeln('KELILING : (',pjg,' + ',lbr,') x 2 = ',kel); end; begin masukan ; {Memanggil prosedur masukan} hitung ; {Memanggil prosedur hitung} keluaran ; {Memanggil prosedur keluaran} end.

  6. Latihan • Buatlah Program Penghitungan Gaji Karyawan dengan menggunakan Procedure yaitu : • Procedure Input Data • Procedure Hitung Gaji Gaji Pokok : Direktur = 10.000.000 Manager = Rp. 5.000.000 Staff = Rp.3.000.000 Tunjangan berdasarkan lama kerja yaitu : (2010 - TAHUN MASUK )/100 * Gaji Pokok • Procedure Cetak Gaji • Contoh tampilan program Program Penghitungan Gaji Karyawan N.I.K : 200299 N A M A : Mr. X JABATAN [ 1 =DIREKTUR 2=MANAGER 3=STAFF ] : 2 TAHUN MASUK : 2000 Gaji Pokok : Rp. 5000000 Tunjangan : Rp. 500000 T o t a l Gaji : Rp. 5500000

  7. Program Gaji_Karyawan; uses wincrt; var nik,nama : string; jb,tm,lk:integer; gapok,tjg,tg:longint; Procedure input_data; begin writeln('PROGRAM PENGHITUNGAN GAJI KARYAWAN'); writeln('____________________________________'); writeln; write('N.I.K :');readln(nik); write('N A M A :');readln(nama); write('JABATAN [ 1=DIREKTUR 2= MANAGER 3=STAFF ] :');readln(jb); write('TAHUN MASUK : ');readln(tm); end; Procedure hitung_gaji; begin if jb=1 then gapok:=10000000 else if jb=2 then gapok:=5000000 else gapok:=3000000 ; lk := 2010 - tm ; tjg:=(lk div 100) * gapok ; tg :=gapok + tjg ; end; Procedure cetak_gaji; begin writeln('______________________________'); writeln; writeln('GAJI POKOK : Rp.',gapok); writeln('TUNJANGAN : Rp.',tjg); writeln('TOTAL GAJI : Rp.',tg); end; {===program utama===} begin input_data ; hitung_gaji ; cetak_gaji ; end.

More Related