P r o c e d u r e
This presentation is the property of its rightful owner.
Sponsored Links
1 / 7

P R O C E D U R E PowerPoint PPT Presentation


  • 63 Views
  • Uploaded on
  • Presentation posted in: General

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;

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.While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server.


- - - - - - - - - - - - - - - - - - - - - - - - - - E N D - - - - - - - - - - - - - - - - - - - - - - - - - -

Presentation Transcript


P r o c e d u r e

PROCEDURE


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;

End;


P r o c e d u r e

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.


P r o c e d u r e

  • 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.


P r o c e d u r e

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.


Latihan

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


P r o c e d u r e

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.


  • Login