70 likes | 283 Views
ARRAY. Suatu array ( larik ) adalah tipe terstruktur yang terdiri dari sejumlah komponen-komponen yang mempunyai tipe yang sama . Komponen ini disebut dengan tipe komponen (component type) atau tipe basis (basis type).
E N D
ARRAY Suatu array (larik) adalahtipeterstruktur yang terdiridarisejumlahkomponen-komponen yang mempunyaitipe yang sama. Komponeninidisebutdengantipekomponen (component type) atautipe basis (basis type). Suatu array mempunyaimempunyaijumlahkomponen yang banyaknyatetap. Banyaknyakomponendalamsuaularikditunjukkanolehsuatuindekx (index type) berbentukungkapantipe ordinal. ARRAY BERDIMENSI SATU Jenis Array yang paling sederhanaadalah array berdimensisatu. Biasanya array berdimensisatudinyatakansebagaikotakpanjang yang dibagimenjadibeberapabagian yang sama. Bentukpenulisandari array adalah : Tipelarik : array [ tipeindeks ] of tipe Contoh : Var Tipedari array X : array[1..100] of integer;
Nilai X telahdideklarasikansebagai array tipe integer denganjumlahmaksimumsebanyak 100 elemen. Nilaielemen array iniharusberisinilai integer. Contoh : Nilai integer X[1] := 10; X[2] := 20; X[3] := 30; Bilanilaielemen ke-3 dari array X akanditampilkan, makadapatdigunakanstatemen : WRITELN(X[3]); IndeksBerupaKarakter Untukmendeklarasikan array dengantipe string makatipe string harusdideklarasikanterlebihdahuludibagiandeklarasiterlebihdahulupadabagiantipe. Misal : TYPE Huruf = string[30]; VAR Nama : array[1..100] of Huruf; Bentuk yang salah : Nama : array[1..100] of string[30];
Bilanilaielemen array dibatasinilainyadalamsuatujangkauannilai yang tertentu, makadapatdideklarasikandengantipe array subrange. Misal : TYPE RangeUsia = 17..100; VAR Usia : array[1..100] of RangeUsia; Bentuk yang salah : Usia : array[1..100] of 17..100; Sebuah array bisadiberinilaiawal. Pemberiannilaiawaldapatdilakukandalamdeklarasi CONST.
Contoh : PROGRAM larik; USES CRT; TYPE TIPEHARI = (Minggu, Senin, Selasa, Rabu, Kamis, Jumat, Sabtu); CONST KET : ARRAY [TIPEHARI] OF STRING[6] = ('Minggu', 'Senin', 'Selasa', 'Rabu', 'Kamis', 'Jumat', 'Sabtu'); VAR MAKS : REAL; HARI : TIPEHARI; SUHU : ARRAY[TIPEHARI] OF REAL; BEGIN CLRSCR; FOR HARI:= Minggu TO Sabtu DO BEGIN WRITE ('Masukkan data suhuhari ', KET[HARI]:6,' ='); READLN(SUHU[HARI]); END; MAKS := SUHU[Minggu]; FOR HARI:= Senin TO Sabtu DO IF SUHU[HARI] > MAKS THEN MAKS := SUHU[HARI]; WRITELN('SuhuTertinggiAdalah ', MAKS:4:1); READLN; END
ARRAY MULTIDIMENSI Array multidimensi merupakan array yang bertipe array. Pada bahasa PASCAL, jumlah dimensi array tidak dibatasi. Namun yang paling umum dipakai adalah array berdimensi dua. Bentuk deklarasi : Tipe larik : array [ tipe indeks1 ] of array [ tipe indeks2 ] of tipe-larik Atau dapat ditulis : Tipe larik : array [ tipe indeks1, tipe indeks2 ] of tipe-larik Contoh : PROGRAM larik; USES CRT; VAR TABEL : ARRAY [1..3, 1..2] OF BYTE; I, J : BYTE;
BEGIN CLRSCR; FOR I:=1 TO 3 DO BEGIN FOR J:=1 TO 2 DO BEGIN WRITE('Masukkan Matriks Baris ke-',I,' Kolom ke-',J,' = '); READLN(TABEL[I,J]); END; END; WRITELN;WRITELN('Hasil Matriks : '); FOR I:=1 TO 3 DO BEGIN FOR J:=1 TO 2 DO WRITE(TABEL[I,J]:7); WRITELN; END; READLN; END.
LATIHAN Buat program untuk menghitung penjumlahan dua buah matriks, contoh : 1 2 + 0 4 =1 6 4 5 1 2 5 7