-->
banner here

PROCEDURE Pada Bahasa Pemrograman Pascal

- 12:39 PM
advertise here
Penggunaan Procedure Pada Program bahasa Pascal - Prosedur dalam bahasa pascal. Apa yang di maksud dengan procedure pada Program pascal.

Apa itu Procedur dalam bahasa pemrograman pascal ?
Procedure/prosedur merupakan suatu program yang terpisah dalam blok sendiri yang berfungsi sebagai sub-program (modul program) yang merupakan sebuah program kecil untuk memproses sebagian dari pekerjaan program utama. Procedure berguna untuk mengumpulkan statemen-statement (Pernyataan) yang dapat dijalankan menjadi satu dalam blok dan untuk menjalankan kembali hanya dengan menuliskan nama procedure yang menampungnya, yaitu pemanggilan dilakukan pada program utama.

STRUKTUR PROCEDURE :
  • JUDUL (header) --> nama prosedur dan deklarasi parameter(kalau ada) 
  • DEKLARASI --> mengumumkan nama-nama dan tipe data 
  • ALGORITMA --> badan prosedur (instruksi)
NOTASI ALGORITMA UNTUK PROCEDURE :
Procedure NamaProsedur(deklarasi parameter, jika ada)
{spesifikasi prosedur, berisi penjelasan tentang apa yg dilakukan oleh prosedur ini.
Kondisi awal : keadaan sebelum prosedur dilaksanakan.
Kondisi akhir : keadaan setelah prosedur dilaksanakan}
DEKLARASI
{semua nama yg dipakai di dalam prosedur dan hanya berlaku lokal di dalam prosedur ini}
ALGORITMA
{badan prosedur, berisi urutan instruksi}

PENGGUNAAN/PEMANGGILAN PROCEDURE :
  • Prosedur bukan program yg beridiri sendiri 
  • Prosedur tidak dapat dieksekusi secara langsung. 
  • Instruksi-instruksi di dalam prosedur dapat dilaksanakan bila prosedur itu diakses. 
  • Prosedur diakses dg cara memanggil namanya dari program pemanggil (misalnya dari program utama atau modul program lainnya) 
  • Jika prosedur tanpa parameter, maka pemanggilannya cukup dg nama prosedurnya saja,
Selain itu procedure yang banyak dipakai untuk menampung baris-baris perintah yang sering dipakai dalam sebuah program. Untuk mendeklarasikan procedure dapat dilakukan dengan dua cara :
  • Header Procedure tanpa parameter
  • Header Procedure dengan menggunakan parameter
1. Header Procedure tanpa parameter
yaitu penulisannya diawali dengan kata baku procedure dan diikuti dengan nama procedure serta diakhiri dengan tanda titik koma (;).

Bentuk Umum :
   Procedure <namaProcedure>

Example :
   Procedure makcumabdu;
   Procedure kampret;

Contoh Programnya :
uses wincrt;
var
kol,bar,has1,has2:integer;
procedure tabel;
begin
has1:= kol+bar;
has2:= kol*bar;
writeln('Kolom + Baris = ',has1);
writeln('Kolom * Baris = ',has2);
end;
begin
gotoxy(21,2); writeln('Contoh Program Procedure Tanpa Parameter');
gotoxy(21,3); writeln('----------------------------------------');
write('Masukkan Jumlah Kolom = '); readln(kol);
write('Masukkan Jumlah Baris = '); readln(bar);
tabel;
end.
Output Program :
Contoh Program Procedure tanpa parameter


2. Header Procedure Dengan Menggunakan parameter
Yaitu penulisannya hampir sama dengan Procedure tanpa parameter. yaitu diawali dengan kata baku procedure, lalu diikuti dengan parameter-parameter (yang berada didalam kurung) yang masing-masing dipisahkan dengan koma beserta dengan tipenya yang dipisahkan dengan titik dua (:) serta diakhiri dengan tanda titik koma (;).

Bentuk Umum :
   Procedure <namaProcedure> (<daftarParameter>);

Example :
   Procedure makcumabdu(nim:integer; nama:string);
   Procedure kampret(jos,jis:real);

Contoh Programnya :
uses wincrt;
var
kol,bar,has1,has2:integer;
procedure tabel(a,b:integer);
begin
has1:= kol+bar;
has2:= kol*bar;
writeln('Kolom + Baris = ',has1);
writeln('Kolom * Baris = ',has2);
end;
begin
gotoxy(21,1); writeln('****************************************');
gotoxy(21,2); writeln('*Contoh Procedure Mneggunakan Parameter*');
gotoxy(21,3); writeln('*--------------------------------------*');
gotoxy(21,4); writeln('****************************************');
write('Masukkan Jumlah Kolom = '); readln(kol);
write('Masukkan Jumlah Baris = '); readln(bar);
tabel(kol,bar);
end.
 Output Programnya :
Contoh Program Procedure tanpa parameter


CONTOH KASUS :
Buatlah program dengan memanfaat Procedure untuk kasus Penilaian dengan kreteria Tugas 30%, UTS 30% dan UAS 40%.

Jawaban : 
uses wincrt;
var
a,b,c,d:real;
procedure nilai;
begin
d:= ((a*0.3) + (b*0.3) + (c*0.4));
write(d:2:2);
end;
begin
write('Masukkan Nilai Tugas Anda : ');readln(a);
write('Masukkan Nilai UTS Anda   : ');readln(b);
write('Masukkan Nilai UAS Anda   : ');readln(c);
write('Nilai Anda : ');
nilai;
end.
Output Program :
Program Procedure Menentukan Nilai Tugas, UTS dan UAS
Semoga Bermanfaat ^_^.
Advertisement advertise here

4 komentar

avatar

Out put nya gak keluar bang

avatar

min tanpa Procedure bisakah program berjalan? alasannya?


EmoticonEmoticon

 

Start typing and press Enter to search