Home » » Prosedur dan Fungsi Bahasa Pascal : Materi dan Contoh

Prosedur dan Fungsi Bahasa Pascal : Materi dan Contoh

By  May 19, 2023  No comments

Prosedur dan Fungsi Bahasa Pascal
Program dibagi kedalam Modul-Modul/subprogram, dimana Modul/subprogram dalam bahasa Pascal diimplementasikan dengan Prosedur dan fungsi. Prosedur/Fungsi dibentuk dengan mengelompokkan sejumlah perintah untuk menyelesaikan tugas tertentu. Subprogram prosedur dan fungsi sangat diperlukan jika kelompok perintah tersebut sering digunakan di tempat lain dalam program, sehingga programmer tidak perlu membuat syntax berulang kali.
A. PROCEDURE
Sebelum memanggil prosedur, kita harus mendefinisikan bagian-bagian subprogramnya. Berikut ini adalah daftar lengkap bagian-bagian deklarasi:

LABEL section
CONST section
TYPE section
VAR section
PROCEDUREs and FUNCTIONs section

Definisi prosedur sangat mirip dengan definisi program yang telah sering kita buat sebelumnya, karena juga terdiri dari header, bagian deklarasi, dan pernyataan. Syntax deklarasi nya sebagai berikut :

Procedure Nama_Prosedur [(parameter)];
[Deklarasi variabel ;]
Begin
…

statemen-statemen;
…

End;

Prosedur digunakan terutama untuk hal-hal spesifik atau yang sering dilakukan dan prosedur tidak mengembalikan nilai.

B. FUNCTION
Fungsi adalah subprogram yang mengembalikan nilai, yang kemudian ditetapkan ke nama fungsi dalam program panggilan. Fungsi yang ditentukan pengguna memiliki satu atau lebih parameter. Definisi fungsi muncul di bagian subprogram setelah bagian deklarasi program dan mencakup header, deklarasi, dan pernyataan. contoh header fungsi yang mengembalikan rata-rata tiga angka:

FUNCTION Avg(X, Y, Z :REAL) :REAL;

Header fungsi mirip dengan header prosedur, perbedaanya pada fungsi terdapat nilai yang dikembalikan mengikuti header fungsi (:REAL). Syntax deklarasi nya sebagai berikut :

Function Nama_fungsi [(parameter)]: Tipe_fungsi;
[Deklarasi variabel ;]
Begin
…

statemen-statemen;
[Nama_fungsi:=nilai_fungsi]
End;

Fungsi digunakan terutama untuk hal-hal spesifik atau yang sering dilakukan dan dapat mengembalikan nilai.

Kita telah belajar bagaimana membagi program Anda menjadi subprogram, maka kapan kita memilih menggunakan fungsi atau prosedur ?. berikut adalah poin penting untuk diingat:
1. Subprogram dideklarasikan setelah bagian deklarasi program dan terdiri dari header, deklarasi, dan pernyataan.
Header prosedur syntax: PROCEDURE name; or PROCEDURE procedure-name(list parameter formal);
Header fungsi syntax : FUNCTION function-name(list parameter formal) :TYPE nilai pengembalian;
2. Suatu prosedur disebut dengan namanya persis seperti pernyataan. Ketika parameter digunakan dalam panggilan prosedur, parameter tersebut harus cocok dengan parameter di header prosedur. Parameter prosedur adalah parameter nilai atau variabel. Parameter variabel digunakan ketika diperlukan prosedur untuk mengubah nilai parameter.
3. Fungsi biasanya disebut sebagai bagian dari ekspresi; fungsi mengembalikan nilai tunggal yang menggantikan nama fungsi dalam ekspresi tersebut.
4. Selalu ingat aturan yang mengontrol ruang lingkup dan hubungan antara variabel global dan lokal.

Contoh-contoh Prosedur dan Fungsi bahasa pascal :
Fungsi Rata-rata dan Standar Deviasi
Hitung rata-rata dan standar deviasi data diatas dengan modul tersendiri.
program fungsib;
uses crt;
var
    data : array [1..100] of integer;
    n,i: integer;

function Rerata (x: array of integer):real;
var
    sum :real;
begin
    sum := 0;
    for i := 0 to n do
    begin
        sum := sum + x[i];
    end;
    Rerata := sum/n;
end;

function stdev (x: array of integer):real;
var
    jumlah: integer;
    jlh_k:real;
begin
    jumlah:=0;
    jlh_k:=0;
    for i:=1 to n do begin
        jumlah:=jumlah+x[i];
        jlh_k:=jlh_k+(x[i]*x[i]);
    end;
    Stdev:=sqrt((jlh_k-(jumlah*jumlah)/n)/(n-1));
end;

begin
clrscr;
write ('Masukkan banyak data : ');
readln (n);
    for i := 1 to n do
    begin
        write ('Data ke-',i, ' = ');
        readln (data[i]);
    end;
    writeln ;
    for i := 1 to n do
    begin
        write (data[i],' ');
    end;
    writeln;
    writeln ('Rata-rata = ',Rerata(data):0:2)
    writeln ('Standar Deviasi = ',stdev(data):0:2);
readln;
end.

Prosedur Pangkat 2
Menjalankan program pangkat 2 pada setiap n yang dimasukkan (1^2, 2^2, .....).
program belajar_procedure;
uses crt;
var
    n,hasil : integer;

procedure pangkat2(a:integer);
begin
    hasil := a*a;
end;

begin
clrscr;
write ('Masukkan N = ');readln (n);
pangkat2(n);
writeln ('Pangkat 2 dari ',n,' = ',hasil);
readln;
end.
Contoh - contoh lanjutan terkait prosedur dan fungsi bahasa pascal. klik link tautan berikut atau cari di kolom pencarian untuk melihat contoh-contoh lain terkait instruksi prosedur dan fungsi bahasa pascal. 
Terima Kasih Telah Membaca semoga bermanfaat, jika ada saran, kritik, dan pertanyaan silakan sampaikan di kolom komentar ya !!! suara kalian sangat berarti...see you... 

Referensi : Abolrous, Sam A.2002.Learn Pascal in Three Days Third Edition.Texas:Wordware Publishing Inc
Categories: 

0 comments:

Post a Comment