1 / 14

Array Dimensi Banyak

Array Dimensi Banyak. Gerlan A. Manu, ST., MKom. Mengingat Kembali. Array adalah tipe terstruktur yang terdiri dari sejumlah komponen-komponen yang mempunyai tipe yang sama. Contoh : Var X : Array[1..100] of Integer ……. X[1] := 25; X[2] := 75; …..

muncel
Download Presentation

Array Dimensi Banyak

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 Dimensi Banyak Gerlan A. Manu, ST.,MKom - Algoritma Pemrograman II Gerlan A. Manu, ST.,MKom

  2. Mengingat Kembali • Array adalah tipe terstruktur yang terdiri dari sejumlah komponen-komponen yang mempunyai tipe yang sama. • Contoh : Var X : Array[1..100] of Integer ……. X[1] := 25; X[2] := 75; ….. writeLn (X[1]); {untuk menampilkan Array X pertama} Gerlan A. Manu, ST.,MKom - Algoritma Pemrograman II

  3. Array Dimensi Banyak • Array dapat juga berdimensi lebih dari satu yang disebut array dimensi banyak (multidimensi array). • Array Berdimensi Dua (Two Dimensional Array) • Array Berdimensi Tiga (Three Dimensional Array) • Dst… Gerlan A. Manu, ST.,MKom - Algoritma Pemrograman II

  4. Array Dimensi Dua • Array DimensiDuamewakilisuatubentuktabelataumatrik, yaituindeks yang pertamadapatmenunjukkanbarisdanindekskeduadapatmenunjukkankolomdaritabelataumatrik. nama_array = array[tipe_indeks1] of array [tipe_indeks2] of tipe_data; atau, nama_array = array[tipe_indeks1,tipe_indeks2] of tipe_data; Gerlan A. Manu, ST.,MKom - Algoritma Pemrograman II

  5. Contoh Uses wincrt; 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 Begin write (Tabel[I,J]:5); End; writeLn End; End. Gerlan A. Manu, ST.,MKom - Algoritma Pemrograman II Menampilkannilai array setelahspasi 5 kali Coba anda hilangkan :5, perhatikan apa yang terjadi setelah di Run.

  6. Lanjutan… Tabel[1,1] := 5; Tabel[1,2] := 25; Tabel[2,1] := 200; Tabel[2,2] := 22; Tabel[3,1] := 75; Tabel[3,2]:= 50; • Untukmengisinilaibisalangsungpada program sepertidiatasataubisadenganReadLn; For I := 1 to 3 do Begin For J := 1 to 2 do Begin write ('MasukanNilaiTabel[',I,',',J,'] = '); ReadlN (Tabel[I,J]); End; End; Gerlan A. Manu, ST.,MKom - Algoritma Pemrograman II Perhatikanpenggunaankoma Utkmemisahkannilaivariabel (I dan J) Dan tampilankarakter (masukannilaitabel)

  7. Latihan • Buatlah program untukmatrikdibawahini : 13 24 21 22 14 10 12 1 31 • Buatlah program untungmenjumlahkanmatrikdibawahini : • Matrik A 2 3 1 5 2 6 7 8 4 • Matrik B 4 9 1 2 1 3 3 2 5 Gerlan A. Manu, ST.,MKom - Algoritma Pemrograman II Untuk kuliah online latihan dikumpul paling lambat jam 6 sore hari ini

  8. Deklarasi Array Dimensi Dua • Seperticontohsebelumnyadeklarasi array ditulis : Var Tabel : array[1..3,1..2] of byte; • Bisajugaditulisseperti : Type X = array[1..3,1..2] of byte; Var Tabel : X; • Atau; Type Baris = 1..3; Kolom = 1..2; X = array[Baris,Kolom] of Byte; Var Tabel : X; Gerlan A. Manu, ST.,MKom - Algoritma Pemrograman II

  9. Parameter Larik • Larik dapat digunakan sebagai parameter yang dikirimkan baik secara nilai(by value) atau secara acuan (by reference) ke prosedur atau fungsi. • Prosedur yang menggunakan parameter barupa larik harus dideklarasikan di dalam judul prosedur yang menyebutkan parameternya bertipe larik. Gerlan A. Manu, ST.,MKom - Algoritma Pemrograman II

  10. Contoh Uses wincrt; Type Larik = array[1..50,1..50] of Real; Var I,J,K , N: byte; X : Larik; Procedure Invers(Var X : Larik; N : byte); Var Pv, A : real; Begin For I := 1 to N do Begin PV := X[I,I]; X[I,I] := 1; For J := 1 to N do X[I,J] := X[I,J]/ PV; For K := 1 to N do Begin If K <> I Then Begin A := X[K,I] X[K,I] := 0; For J:= 1 to N do X[K,J] := X[K,J]-A*X[I,J]; End; End; End; End; Gerlan A. Manu, ST.,MKom - Algoritma Pemrograman II

  11. Lanjutan Contoh… {program utama} Begin Clrscr; Write ('Ordedarimatrik ? '); Readln(N); WriteLn; {memasukkan data} For I := 1 to N do Begin For J := 1 to N do Begin Write( 'Nilai [', I, ' , ' ,J, '] = '); ReadLn (X[I,J]); End; WriteLn; End; {mencetaknilaimatrikasli} Clrscr; writeLn ('MatrikAwal'); For I := 1 to N do Begin For J := 1 to N do Write ( X[I,J]:10); WriteLn; End; {menghitung invers matrik} Invers(X,N); writeLn; {mencetakinvermatrik} WriteLn ('Matriks Invers'); For I := 1 to N do Begin For J := 1 to N do Write ( X[I,J]:10); WriteLn; End; End. Gerlan A. Manu, ST.,MKom - Algoritma Pemrograman II

  12. Array Dimensi Tiga • Untuk array dimensi tiga : nama_array = array[tipe_indeks1,tipe_indeks2,tipe_indeks3] of tipe_data; Contoh : Tabel : array[1..3,1..3,1..3] of integer; Gerlan A. Manu, ST.,MKom - Algoritma Pemrograman II Untuk menginputkan data dan menampilkan data sama dengan array dimensi dua

  13. Tugas Array Dimensi Banyak • Buatlahduabuahmatrikkemudiankalikan! • Implementasikanperkalianmatriktersebutdalam program denganmenggunakan array dimensidua! Gerlan A. Manu, ST.,MKom - Algoritma Pemrograman II

  14. Algoritma Program • Duabuahmatrik yang akandikalikanharusmempunyaiordejumlahkolommatrikpertamadanjumlahbarismatrikkeduaharussama. • Masukkan Data dariMatrik yang Pertama. • Masukkan Data dariMatrik yang Kedua. • Kalikankeduamatriktersebut. • TampilkanHasil. Gerlan A. Manu, ST.,MKom - Algoritma Pemrograman II

More Related