{"id":1395,"date":"2013-12-15T19:13:33","date_gmt":"2013-12-15T12:13:33","guid":{"rendered":"http:\/\/www.sulhansetiawan.com\/?p=1395"},"modified":"2013-12-15T19:13:33","modified_gmt":"2013-12-15T12:13:33","slug":"array","status":"publish","type":"post","link":"https:\/\/sulhansetiawan.com\/id\/array\/","title":{"rendered":"Array"},"content":{"rendered":"<p><\/p>\n<div style=\"width: 96px; margin-left: auto; margin-right: auto;\"><a href=\"\/id\/?p=1394\"><img decoding=\"async\" src=\"https:\/\/sulhansetiawan.com\/_wordpress_\/2013\/12\/arrowleft_green_32.png\" title=\"Record\"\/><\/a><a href=\"\/id\/?p=1379\"><img decoding=\"async\" src=\"https:\/\/sulhansetiawan.com\/_wordpress_\/2013\/12\/home_green_32.png\" title=\"Tutorial Delphi\"\/><\/a><a href=\"\/id\/?p=1396\"><img decoding=\"async\" src=\"https:\/\/sulhansetiawan.com\/_wordpress_\/2013\/12\/arrowright_green_32.png\" title=\"Konstanta\"\/><\/a><\/div>\n<p>Jika record bisa menggabungkan beberapa variabel dengan tipe yang berbeda-beda menjadi sebuah variabel. Maka array dapat mengumpulkan banyak variabel yang sejenis menjadi satu variabel. Untuk membuat array, kita bisa melakukan seperti berikut:<\/p>\n<pre class='brush: delphi'>var NamaVariabel:array[index1..index2]of tipe;<\/pre>\n<p>index1 adalah indek bawah dari array, sedangkan index2 adalah indek atas darai array.<\/p>\n<h3>Contoh program yang menggunakan array<\/h3>\n<pre class='brush: delphi'>program ArrayData;\r\n{$APPTYPE CONSOLE}\r\nvar data:array[0..4]of integer;\r\n    index:integer;\r\nbegin\r\n  \/\/ambil data\r\n  for index:=0 to 4 do\r\n  begin\r\n    Write('Masukkan sebuah angka: ');\r\n    Readln(data[index]);\r\n  end;\r\n  \/\/tampilkan data\r\n  Writeln(#13#10'Data yang Anda masukkan adalah:');\r\n  for index:=0 to 4 do\r\n    Writeln('Data ke ',index,': ',data[index]);\r\n\r\n  Writeln(#13#10'Tekan Enter');\r\n  Readln;\r\nend.<\/pre>\n<p><code>data <\/code>adalah kumpulan 5 buah variabel dengan tipe integer. Variabel pertama diacu dengan data[0], data kedua diacu dengan data[1] dan seterusnya. Jadi cara mengacu variabel dengan tipe array adalah dengan menyebut nama variabelnya diikuti dengan indek dari elemen datanya di dalam kurung kotak.<\/p>\n<p>Dalam memberikan indek kepada variabel bertipe array, kita harus memastikan bahwa indek yang diberikan berada dalam jangkauan variabel tersebut. Sebagai contoh, kita tidak boleh mengacu data[-1] atau data[5]. Kalau hal tersebut dilakukan maka program akan mengalami kesalahan. Kita dapat mengetahui indek bawah dari sebuah array dengan fungsi low dan mengetahui indek atas dari array dengan fungsi high. Sebagai contoh, untuk mengisi semua elemen dari variabel data, kita bisa melakukan dengan cara:<\/p>\n<pre class='brush: delphi'>for index:=low(data) to high(data) do data[index]:=....<\/pre>\n<p>Sebuah array dapat berisi array yang lain. Kita juga dapat membuat array menjadi sebuah tipe data. Contoh:<\/p>\n<pre class='brush: delphi'>type\r\n  TDataArray=array[0..10]of integer;\r\n\r\nvar\r\n  \/\/data dari TDataArray\r\n  MyData:TDataArray;\r\n  \/\/array data dari TDataArray\r\n  MyArray:array[0..10]of TDataArray;\r\n  \/\/array yang lain\r\n  MyArray1:array[0..10]of array[0..10]of integer;\r\n  MyArray2:array[0..10,0..10]of integer;<\/pre>\n<p>Array yang berisi array disebut dengan array dua dimensi. MyArray adalah array yang berisi array. Jadi MyArray adalah array dua dimensi. MyArray1 maupun MyArray2 memiliki bentuk dan jumlah elemen yang sama dengan MyArray. Anda dapat membuat array banyak dimensi. <\/p>\n<p>Untuk mengacu elemen-elemen di dalam array banyak dimensi, kita memisahkan nomor indeknya dengan koma di dalam kurung kotak, misalnya:<\/p>\n<pre class='brush: delphi'>MyArray1[0,0]:=5;<\/pre>\n<h3>String adalah array karakter<\/h3>\n<p>Dari awal kita sudah mengatakan bahwa string adalah untaian (array) dari karakter. Oleh karena itu kita bisa mendapatkan karakter tunggal dari sebuah string dengan memberikan nomor indek elemennya. Karakter pertama dari sebuah string memiliki nomor indek 1.<p><\/p>\nUntuk mengetahui panjang dari sebuah string dapat dilakukan dengan menggunakan fungsi length.<\/p>\n<pre class='brush: delphi'>program ArrayKarakter;\r\n{$APPTYPE CONSOLE}\r\nvar S:string;\r\n    i:integer;\r\nbegin\r\n  S:='Array';\r\n  for i:=1 to length(S)do Writeln(S[i]);\r\n  Writeln('Tekan Enter');\r\n  Readln;\r\nend.<\/pre>\n<p>Jika program tersebut dijalankan, maka tampilannya adalah seperti berikut:<\/p>\n<pre>A\r\nr\r\nr\r\na\r\ny\r\nTekan Enter\r\n\r\n<\/pre>\n<div style=\"width: 96px; margin-left: auto; margin-right: auto;\"><a href=\"\/id\/?p=1394\"><img decoding=\"async\" src=\"https:\/\/sulhansetiawan.com\/_wordpress_\/2013\/12\/arrowleft_green_32.png\" title=\"Record\"\/><\/a><a href=\"\/id\/?p=1379\"><img decoding=\"async\" src=\"https:\/\/sulhansetiawan.com\/_wordpress_\/2013\/12\/home_green_32.png\" title=\"Tutorial Delphi\"\/><\/a><a href=\"\/id\/?p=1396\"><img decoding=\"async\" src=\"https:\/\/sulhansetiawan.com\/_wordpress_\/2013\/12\/arrowright_green_32.png\" title=\"Konstanta\"\/><\/a><\/div>\n<p><\/p>","protected":false},"excerpt":{"rendered":"<p>Jika record bisa menggabungkan beberapa variabel dengan tipe yang berbeda-beda menjadi sebuah variabel. Maka array dapat mengumpulkan banyak variabel yang sejenis menjadi satu variabel. Untuk membuat array, kita bisa melakukan seperti berikut: var NamaVariabel:array[index1..index2]of tipe; index1 adalah indek bawah dari array, sedangkan index2 adalah indek atas darai array. Contoh program yang menggunakan array program ArrayData;&hellip;<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[105,104,96,145],"tags":[106],"class_list":["post-1395","post","type-post","status-publish","format-standard","hentry","category-delphi-lazarus","category-programming","category-all","category-tutorial","tag-delphi"],"_links":{"self":[{"href":"https:\/\/sulhansetiawan.com\/id\/wp-json\/wp\/v2\/posts\/1395","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/sulhansetiawan.com\/id\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/sulhansetiawan.com\/id\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/sulhansetiawan.com\/id\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/sulhansetiawan.com\/id\/wp-json\/wp\/v2\/comments?post=1395"}],"version-history":[{"count":0,"href":"https:\/\/sulhansetiawan.com\/id\/wp-json\/wp\/v2\/posts\/1395\/revisions"}],"wp:attachment":[{"href":"https:\/\/sulhansetiawan.com\/id\/wp-json\/wp\/v2\/media?parent=1395"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/sulhansetiawan.com\/id\/wp-json\/wp\/v2\/categories?post=1395"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/sulhansetiawan.com\/id\/wp-json\/wp\/v2\/tags?post=1395"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}