Setelah sebelumnya menulis tentang PROGRAM ALGORITMA PROSEDUR DALAM PASCAL+ CONTOH PROGRAM dan PENGANTAR PEMPROGRAMAN MODULAR PASCAL & C+ maka kali ini saya akan mencoba menulis Function (Fungsi) secara garis besar sama dengan procedure yang membedakannya adalah nama fungsi harus dideklarasikan dengan type datanya. Fungsi adalah suatu bagian program yang mengerjakan satu tugas dan hasilnya biasanya hanya satu. Fungsi juga menerima parameter-paramter seperti procedure yaitu Parameter Nilai dan Parameter Variabel. Selain itu fungsi juga diperbolehkan memiliki deklarasi lokal tersendiri. Dan Cara memanggil fungsi adalah dengan menuliskan nama fungsi beserta parameter-parameter yang diperlukan.
Bentuk umum pendefinisian fungsi:
Function NamaFungsi(Parameter-Parameter) : Tipe Fungsi;
Tipe Lokal
Konstanta Lokal
Variabel Lokal
Sub Program Lokal (Fungsi/Prosedur)
Begin
    .................
End;
    Contoh program:
Function Hitung (X, Y, Z : Byte): Byte;
Begin
    Z : = X + Y;
    Writeln (‘Nilai X = ‘, X);
    Writeln (‘Nilai Y = ‘, Y);
    Writeln (‘Nilai Z = ‘, Z);
End;
 
Var
    A, B, C : Byte;
Begin
    A := 5; B:= 7; C:=3;
    Hitung (A, B, C);
    Writeln (‘Nilai A = ‘,A,’Nilai B = ‘,B,’Nilai C = ‘,C);
    Readln;
End.


Fungsi Rekursif


fungsi yang memanggil dirinya sendiri disebut sebagai prosedur rekursif. Pemanggilan terhadap dirinya sendiri akan tetap dilakukan Prosedur Cetak karena tidak ada pernyataan yang menghentikan pemanggilan. Pemanggilan ini akan terus berlangsung terus-menerus (continues call). Untuk mengatasi masalah ini maka perlu dibuat suatu pernyataan yang membatasi pemanggilan prosedur. Misalkan kode program  seperti berikut ini:
Var
I : Byte;
function Cetak : sting;
      Begin
         IF (I<=5) Then
         begin
            writeln('Respati');
            {Prosedur Memanggil Dirinya Sendiri}
            Cetak;
            I:=I+1;
          end;
 End;
{Program Utama}
Begin
I:=1;
 {Panggil Prosedur}
 Cetak;
End.
:)

SHARE PLEASE..


0 komentar:

Poskan Komentar

Jangan lupa klik iklannya, ngak susah kok! siapa tahu ada yang menarik.. karena setiap klik agan, sangat berarti buat blog ini biar tetep eksis!

KOMENTAR:
- mau koment ngasih link idup, mau ngasih link mati, terserah yang penting koment!!
- mau panjang atau pendek, ngak masalah yang penting koment!!
- mau kasar, SARA atau jorok, terserah yang penting koment!

( MANUSIA YG BERAKAL, BERAKHLAK & BERIMAN BOLEH KOMENT ASALKAN BUKAN ROBOT MBAH GOOGLE!!)

About Me


Saya seorang Blogger Pemula, Lahir di Banjarmasin 11 Desember 1993, saat ini sekarang saya sedang Kuliah di Universitas Lambung Mangkurat , Banjarbaru. untuk jurusan dan fakultas, saya di Fakultas MIPA Banjarbaru dan mengambil Jurusan Ilmu Komputer angakatan 2011.

jika kalian kenal, jangan ragu untuk menyapa, saya orangnya terbuka dan ramah kok! siap berteman dengan siapa saja hehe... dan jika kalian belum kenal, maka kita ada baiknya kenalan yuk!! sekian dulu, wassalam!
More About Me


FOLLOW & LIKE DULU GAN!



[X] CLOSE
close klik kanan