Array Sebagai Parameter

Array Sebagai Parameter

Array dapat digunakan sebagai parameter yang dikirimkan baik secara nilai (by value) atau
secara acuan (by reference) ke procedure atau ke function. Procedure yang menggunakan
parameter berupa array harus dideklarasikan di dalam judul procedure yang menyebutkan 
parameternya bertipe array.
         
Contoh Program :

Program Contoh_Pengiriman_Parameter_Array_Di_Procedure;
Uses Crt;
Const
Garis ='---------------------------------------------------';
Type
             Untai   = Array[1..10] of String[15];
             Bulat   = Array[1..10] of Integer;
             Huruf   = Array[1..10] of Char;
Var
             i,Banyak   : Integer;

Procedure  Proses(Nama:Untai;Nilai:Bulat);
Var
              Ket   : String;
              Abjad : Char;
Begin
             Writeln(Garis);
             Writeln('Nama             Nilai      Abjad     Keterangan');
             Writeln(Garis);
               For i := 1 to Banyak Do
           Begin
             If Nilai[i] > 90 Then
               Begin
                  Abjad:='A';
                   Ket  :='Istimewa';
               End;
             If (Nilai[i]<90) And (Nilai[i]>70) Then
                Begin
                   Abjad:='B';
                   Ket  :='Memuaskan';
                End;
             If (Nilai[i]<70) And (Nilai[i]>60) Then
                Begin
Abjad:='C';
                   Ket :='Cukup';
                End;
             If (Nilai[i]<60) And (Nilai[i]>45) Then
                Begin
                   Abjad:='D';
                   Ket :='Kurang';
                End;
             If Nilai[i]< 45 Then
               Begin
                      Abjad:='E';
                     Ket  :='Sangat kurang';
               End;
             Writeln(Nama[i]:15,' ',Nilai[i]:4,'    ',Abjad,'   ',Ket:15);
            End;
                 Writeln(Garis);
End;

Procedure Masuk_Data;
Var
Nama  : Untai;
              Nilai : Bulat;
Begin
              Write('Banyak data =');Readln(Banyak);
               For i:= 1 to Banyak Do
                Begin
             ClrScr;
               Writeln('Data ke - ',i);
               Write('Nama =');readln(Nama[i]);
               Write('Nilai =');readln(Nilai[i]);
                End;
Proses(Nama,Nilai);
End;

{modul Utama}
Begin
         Masuk_Data;
                Readln;
End.