Penggunaan Variabel Array pada Pascal

Share On :

Tweet

Variabel bisa kita gunakan yang saat ini hanya bisa menampung satu data hanya pada satu variabel saja. Dalam banyak kasus kita akan repot menggunakan banyak variabel, sebagai contoh perhitungan nilai, jika terdapat banyak siswa, maka variabel nilai yang dibutuhkan disesuaikan dengan banyaknya siswa. Maka dilihat dari kasus diatas, maka dengan array, kita bisa mendeklarasikan nilai.

Array adalah tipe data terstruktur yang terdiri dari sejumlah komponen-komponen yang mempunyai tipe sama. Komponen-komponen tersebut disebut sebagai komponen type, array mempunyai jumlah komponen yang jumlahnya tetap. Banyaknya komponen dalam array ditunjukkan oleh suatu index, dimana tiap komponen di array dapat diakses dengan menunjukkan nilai indexnya atau subscript. Array dapat bertipe data sederhana seperti byte, word, integer, real, bolean, char, string dan tipe data scalar atau subrange. Tipe array mengartikan isi dari aray atau komponen- komponenya mempunyai nilai dengan tipe data tersebut.

Array Dimensi Satu

Mendeklarasikan Array Dimensi Satu

Bentuk deklarasi Array Dimensi Satu, seperti dibawah ini :

Var
nama_variabel : Array[ index ] Of Tipe_Data;

Contoh :

Var
Nilai : Array[1..10] Of Integer;

Pada contoh Array dengan nama Nilai telah dideklarasikan dengan tipe integer, dengan jumlah elemen maksimum 10 elemen, nilai dari elemen array tersebut diatas harus bertipe integer.

Memberikan Nilai ke Array Dimensi Satu

Untuk memberikan nilai kedalam variabel array berdimensi satu, nama variabel diikuti dengan index yang berada didalam kurung siku. Seperti contoh dibawah ini :

Nilai[1] := 75;
Nilai[2] := 85;
Nilai[3] := 74;
...
...

dan seterusnya

Contoh Program : Simpan dengan nama : Array01.Pas

PROGRAM PENGGUNAAN_ARRAY_DIMENSI_SATU;
Uses Crt;
VAR
A, N, Jml_Nilai : Integer;
Nilai : ARRAY[1..10] Of Integer;
Nil_Rata : Real;
BEGIN
ClrScr;
WriteLn('Program Latihan Array');
WriteLn('=====================');
WriteLn;

{Memasukan Nilai}
Write('Masukan Banyak Data : ');
ReadLn(N);

FOR A := 1 TO N DO
Begin
Write('Nilai Ke- ',A,' = ');
ReadLn(Nilai[A]);
End;

{Membaca Nilai Array}
Nil_Rata := 0;
Jml_Nilai := 0;
FOR A := 1 TO N DO
Begin
Jml_Nilai := Jml_Nilai + Nilai[A];
Write('Nilai Ke- ',A,' = ',Nilai[A]);
End;
Nil_Rata := Jml_Nilai / N;
WriteLn('---------------------');
WriteLn('Jumlah Nilai : ',Jml_Nilai);
WriteLn('Nilai Rata-Rata : ',Nil_Rata:5:2);

ReadLn;
END.

Berikut Hasil Program Array diatas seperti dibawah ini :