1 / 12

ARRAY (LARIK)

ARRAY (LARIK). MINGGU VI. Deklarasi Array. Array yang akan dipergunakan harus di deklarasikan terlebih dahulu. Deklarasi dari Array diawali dengan kata cadangan Array diikuti oleh tipe index yang diletakkan diantara tanda “ [ ] ” diikuti lagi oleh kata cadangan of dan tipe arraynya.

burian
Download Presentation

ARRAY (LARIK)

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. ARRAY (LARIK) MINGGU VI

  2. Deklarasi Array • Array yang akan dipergunakan harus di deklarasikan terlebih dahulu. Deklarasi dari Array diawali dengan kata cadangan Array diikuti oleh tipe index yang diletakkan diantara tanda “ [ ] ” diikuti lagi oleh kata cadangan of dan tipe arraynya. • Array dapat bertipe sederhana byte, word, integer, real, boolean, char, string dan tipe scalar atau subrange. • Contoh : Var X : array [ 1..100 ] of integer ; • Array(Larik) X dideklarasikan sebagai larik tipe integer dengan jumlah elemen maksimum 100 elemen, dimana nilai elemen larik ini harus berisi nilai integer. Misalkan : X [1] : = 18 ; X [2] : = 5 ; • Untuk mencetak elemen ke-1 dari array X : writeLn ( x[1] );

  3. Deklarasi Tipe Index • Subrange Integer Var NilaiHuruf : array [1..5] of char ; [1..5] inilah yang dimaksud dengan index subrange integer. Dapat dideklarasikan menjadi : Type Jangkauan = 1..5 ; {tipe subrange integer} Var NilaiHuruf : array [Jangkauan] of char ; Begin … … end.

  4. Deklarasi Tipe Index • Subrange Byte Var X : array [0..255] of real ; Karena [0..255] merupakan nilai subrange byte maka dapat dideklarasikan menjadi : Var X : array [byte] of real ; • Subrange Word jika jangkaun index dari 0 sampai 65535 maka dapat dideklarasikan menjadi : Var X : array [word] of real ;

  5. Deklarasi Tipe Index • Skalar Index dari larik dapat berupa tipe scalar atau enumerated. • Contoh program: Var Jumlah : array [(Jan, Peb, Mar)] of integer ; Begin Jumlah[Jan] : = 125 ; Jumlah[Peb] : = 75 ; Jumlah[Mar] : = 18 ; Writeln ( ‘Jumlah untuk bulan maret = ‘, Jumlah[Mar]); End.

  6. Deklarasi Konstanta Larik • Larik tidak hanya dapat berupa suatu variable yang dideklarasikan di bagian deklarasi variable, tetapi juga dapat berupa suatu konstanta yang dideklarasikan dibagian deklarasi konstanta. • Contoh program : Const X : array [1..5] of integer = (6, 25, 375, 5, 2) ; Var I : word ; Begin For I : = 1 to 5 do Writeln ( ‘Nilai konstanta larik ke ‘, I, ‘=’, X[I] ) ; End.

  7. Larik Dimensi Banyak • Larik juga berdimensi lebih dari satu. Dapat berdimensi dua, tiga, dan seterusnya. • Larik berdimensi dua mewakili suatu bentuk tabel atau matrik, yaitu index pertama dapat menunjukkan baris dan index kedua dapat menunjukkan kolom dari tabel atau matrik. • Bentuk Umum : Nama_larik = array [tipe index1,tipe index2] oftipe larik

  8. Larik Berdimensi Dua • Contoh : Var Tabel : array [1..3, 1..2] of byte ; I, J : byte ; Begin Tabel[1,1] : = 5 ; Tabel[1,2] : = 25 ; Tabel[2,1] : = 200 ; Tabel[2,2] : = 22 ; Tabel[3,1] : = 75 ; Tabel[3,2] : = 50 ; For I : = 1 to 3 do Begin For J : = 1 to 2 do Write ( table [I,J] : 10 ) ; Writeln ; End ; • End. • Output program : • 5 25 • 22 • 75

  9. Persiapan Kuis Minggu Depan

  10. Jawaban Tugas Minggu Lalu Mencetak deret bilangan 1,2,4,8,16,32 …. Menguji dengan nilai N = 5… Program akan berulang selama user menekan tombol Y dan Deret bilangan sebanyak N atau 5.. Hasil Uji Coba : N : 5 I : 1, 2, 4, 8, 16 A : 1, 2, 3, 4, 5 Cetak I = 1 , 2, 4, 8, 16

  11. Program Uses wincrt; Var A,N,I : Integer; Tombol : Char; Begin write ('Masukan Banyaknya deret yang akan ditampilkan :'); ReadLn (N); I := 1; writeLn ('Deret :'); Repeat Begin For A := 1 to N do begin write (I,' '); I := I + I; end; WriteLn; WriteLn ('Ulangi ? [Y]/[T] '); Tombol := Readkey; End; Until (Tombol = 'T') or (Tombol = 't'); End.

  12. Mencetak deret Bilangan 1,3,9,27,81,243 ….. Menguji dengan nilai N = 5 (banyaknya deret bilangan) Program akan berulang selama user menekan tombol Y dan Deret bilangan sebanyak 5 deret.. N = 5, 4 A = 1, 2, 3, 4 I = 1, 3, 9, 27, 81, Cetak 1, 3, 9, 27, 81

More Related