ARRAY SATU DIMENSI......

ARRAY SATU  DIMENSI

                                               

 Array berdimensi satu merupakan array dengan ciri memiliki tipe-indeks hanya sebuah dan tipe-komponen tidak berupa array. 

 Contoh array berdimensi satu: 

                           VAR x : ARRAY [1..8] of real; 

Menyatakan bahwa indeks-array dari variabel x dapat berupa 1,2,3,…,8 dan isi array bertipe real.

 Sedangkan VAR Huruf : 

                           ARRAY [‘A’..”Z’] of integer;

Menyatakan bahwa indeks-array dari variabel Huruf dapat berupa karakter A, B, C, …, Z dan tipe isi array adalah integer. Ukuran Array x sama dengan 8. Ukuran Array Huruf sama dengan 26.

Pengaksesan terhadap suatu array, dapat dibedakan dalam dua macamoperasi, yaitu penyimpanandan pengambilan elemen array. Untuk menjelaskan hal ini, diambil contoh:

 Pendeklarasian seperti di atas menginstruksikan kepada compiler supaya menyediakan 3 lokasi memori untuk menyimpan data integer dari variabel D, yaitu lokasi dari D[1], D[2], dan D[3]. Jadi masing-masing indeks-array[1..3] dari D memiliki lokasi masing-masing indeks-array[1..3] dari D memiliki lokasi penyimpanan tersendiri. Untuk menyimpan suatu nilai ke dalam lokasi penyimpanan, dapat dilakukan dengan instruksi dengan instruksi D[i] := nilai, dengan i merupakan indeks-array dan nilai adalah bilangan yang hendak disimpandiD[i] .Sebagaicontoh:

D[1]:=200;

setelah pengeksekusian pernyataan, D[1] bernilai 200.

Untuk mengambil isi array D, misalnya D[1],dapat digunakan instruksi:

 Writeln(D[1]);  yang akanmenampilkannilaiD[1] padalayar.
  Contohlain :

X:=D[1];  memberikannilaidariD[1] kevariabelX.
ContohProgramArraySatuDimensi:

Program array_satu;
Uses wincrt;
Const
N=7;
Var Var
                                   I,J:integer;
                                   Bilangan:array[1..N] of integer;
Begin
                                   For I:=1 to N do
                                   Begin
                                   Write(‘MasukkanData ke’,I,’?’); readln(Bilangan[I]);
                                   End;
                                   Writeln(‘Data yang anda masukkan adalah’);;
                                   Writeln(‘No Data’);
                                   For J:=1 to N do
                                   Begin
                                   Writeln(I,’ ‘,Bilangan[I]);
                                   End;
                                   Readln;
End.


 Jika program tersebut dijalan kan,maka keluarnya:

                  masukan data ke1?2
                  masukan data ke1?3
                  masukan data ke1?4
                  masukan data ke1?5
                  masukan data ke1?6
           data yang anda masukan adalah
                   no                     data
                    1                   2
                    2                   3
                    3                   4
                    4                   5
                    5                   6

LUTHFI RIZKY RAMDANI

AMIK WAHANA MANDIRI

2121310025