ARRAY PADA PASCAL

Jun 21, 2009 8 Comments by Sahabat

Array adalah variabel yang dapat menyimpan lebih dari satu nilai sejenis. Terdapat dua bagian penting yaitu elemen array yang merupakan nilai dan endeks array yang merupakan nilai urut untuk mengakses nilai pada array.
Berikut ini contoh array A dengan 10 buah elemen tiap elemen memiliki nilai antara 10 hingga 100.

A[1]A[2]A[3]A[4]A[5]A[6]A[7]A[8]A[9]A[10]
12345678910
102030405060708090100

Deklarasi Array.
Array dideklarasikan pada bagian deklarasi. Deklarasi umum dari array adalah
NamaArray : array[IndeksAwal..IndeksAkhir] of tipe_data;

Contoh: Jika akan mendeklarasikan viriabel A sebagai Array dengan 10 elemen bertipe integer :
Var
A: array [1..10] of Integer;
Contoh lain:
A1: array[0..9] of Integer;
A1: array[10..20] of Integer;
A1: array[‘a’..’j’] of Integer;
Mengakses elemen Array
Untuk memberikan nilai pada variabel array dapat dengan menggunakan parameter berikut :
NamaArray [indeks]:=nilai;

Contoh
Var
A: array[1..10] of integer;
Begin
A[1]:=1; {Mengisikan elemen 1 dengan nilai 1}
A[9]:=200; {Mengisi elemen 9 dengan nilai 200};
End.
Array sebagai konstanta

Nilai pada array dapat bernilai konstan. Dapat kita lakukan dengan mendeklarasikannya pada bagian constanta.
Bentuk umum pendeklrasiannya adalah:
Const
NamaArray : array[IndeksAwal..IndeksAkhir] of Tipe_Data = (nilai1, nilai2,………);
Banyaknya nilai konstanta harus sama dengan jumlah elemennya.
Contoh penggunaanya
Program ArrayKonstanm;
Uses Wincrt;
Const
Hari : array[1..2] oof string = (‘senin’,'selasa’,'rabu’,'kamis’,'jumat’,'sabtu’,'minggu’);
Var
noHari:integer;
begin
clrscr;
write(‘Masukan nomor harinya : ‘);readln(noHAri);
write(‘Hari ke’,noHari,’adalah’,Har[noHari]);
end.
Jika dieksekusi maka hasilnya adalah:
Masukan nomor harinya : 2
Hari ke 3 adalah rabu
Array saebagai parameter

Array pada waktu tertentu dapat digunakan sebagai parameter dari suatu proesdur atyau fungsi. Contoh
Type
Bilangan = array [1..100[ of integer;
Procedure InputArray(A:bilangan; N:integer);
var
i:integer;
begin
for i:=1 to N do
write('Masukan elemen array ke ',i); readln(A[i]);
end.
Contoh diatas adalah prenggunaan array sebagai parameter untuk memberikan nilai pada suatu array tertentu.
Array berisi record
Caranya adalah mendefinisikan record terlebih dahulu yang kemudian akan digunakan sebagai tipe data pada saat pendeklarasiaan array. Contoh:
Type
Tsiswa = record
NIM:=string[9[;
Nama:string[25];
End;
TkumpulanSiswa = array [1..100] of Tsiswa;

Var
A: TkumpulanSiswa;

Variabel A diatas akan menampung 100 buah record yang bertipe Tsiswa. Sementara untuk record berisi array dengan contoh perhitungan nilai siswa berikut : Nilai = (20% * kuis) + (30% * UTS) + (50% * UAS). Maka kita dapat mendefinisikan mahasiswa sebagai tipe record yang memiliki 3 nilai dengan menggunakan array. Yaitu:
Type
Tsiswa = record
NIM:=string[9[;
Nama:string[25];
Nilai = array [1..3] of real;
Kode diatas menunjukan bahwa setiap mahasiswa memiliki 3 nilai.
Metode pencarian pada Array
Ada beberapa macam teknik dalam mendapatkan nilai dari suatu elemen pada array salh satunya dengan metode pencarian beruntun.Contoh:
Program CaraiBeruntun;

Uses Wincrt;
Const
N : array[1..5] of integer= (10,20,30,40,50);
Var
a,b,index : integer;
begin
clrscr;
write(‘Masukan nilai yang akan dicari : ’);readln(a);
index:=0;
for b:=1 to 5 do begin
if N[b] = a then begin
index:=b;
break;
end;
end;
writeln(a,’ adalah nilai yang ditemukan pada index ke ’,index);
end.
Array 2 dimensi
Array 2 dimensi adalah array yang memiliki 2 buah elemen bertipe array yang berbentuk kolom dan baris. Pendeklarasiannya adlah sebagai berikut:
NamaArray : array[1..BanyakBaris, 1..BanyakKolom] of tipe_data;
Contoh
Array2D : array[1..3, 1..4] of integer;
Sedangkan untuk mengaskes maupun memberikan nilai dengan parameter:
Array2D [2,3]:=200; {Mengisikan nilai 200 pada baris 2 kolom 3}

RMD
rahmads89@gmail.com

Kata Kunci

array pascal, array pada pascal, array dalam pascal, pascal array, contoh array pascal, fungsi array pada pascal, program pascal array, program array pada pascal, contoh program array pada pascal, array 2 dimensi pascal.

Pascal
Sahabat

Tentang Penulis

Penulis adalah sahabat-sahabat yg menyumbang tulisan di nusinau.com untuk dimuat dengan bijaksana. Silakan kirim tulisannya ke nusinau[at]gmail[dot]com atau ke admin[at]nusinau[dot]com. Butuh diskusi cepat? colek di twitter @nusinau

8 Responses to “ARRAY PADA PASCAL”

  1. uya says:

    Thanks banget atas tulisannya yach!!!

  2. arianto says:

    IBU CARA PROGAMNYA TIGA DIMENSI 3D BAGIMAN BU

  3. eny says:

    tolong kasih contoh list programnya bisa ?? biar lebih jelas.. thanks

  4. Egi Mardareta says:

    bisa tlg buatin program array dr soal ne ga’….
    Gol GAji Pokok Jabatan Tunjangan Jabatan
    1 1.500.000 tetap 500.000
    tidak tetap 300.000
    2 2.000.000 tetap 750.000
    tidak tetap 500.000
    3 3.000.000 tetap 1.000.000
    tidak tetap 800.000
    tunjangan = 15.000/jam
    pajak = 15% dari gaji pokok
    total = gaji pokok+ tunj jabatan + tunj lembur – pajak
    dengan output
    Daftar Gaji Karyawan
    Nip Nama Golongan Jabatan Lembur Gaji Pokok Tunj Jabatan Tunj lembur Total
    tolong ya….
    butuh cepat ne…
    makasih sebelumnya….

  5. zapry says:

    bu gmn carax htung limas

  6. Ahsyan says:

    makasih, web ini sangat membantu dalam pembelajaran..

  7. ardin says:

    maaf, mau tanya:
    kalo programnya kyak gni :

    program cba;
    uses wincrt;
    type data= record
    nama: string;
    end;
    dt= array [1..3] of data;
    var i:integer;
    d:dt;
    begin
    {bagaimana program utamanya?}
    end.

    mhon bantuannya,
    trimakasih sblumnya

  8. Crazy Program says:

    thanks gan, sangat mudah dimengerti :)

Leave a Reply