ALGORITMA 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 :

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.

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 :