Materi X TKJ : ARRAY TIGA DIMENSI

                  Array tiga dimensi merupakan array yang memiliki tiga buah subskrip dan lebih kompleks apabila dibandingkan dengan array dua dimensi. Subskrip yang ada akan direpresentasikan dengan sumbu x, y dan z atau panjang, lebar dan tinggi.

namaArray : array[1..XMaks, 1..YMaks, 1..ZMaks] of tipe_data ;

Bentuk umum pendeklrasian array tiga dimensi:

Array3D : array[1..2, 1..3, 1..4] of integer;

Contoh program:

program akses_array3D;

uses crt;

const

     xMaks = 2;

     yMaks = 2;

     zMaks = 2;

type

    Array3D = array[1..xMaks, 1..yMaks, 1..zMaks] of integer;

var

   A : Array3D;

   i,j,k : integer;

   x : integer;

begin

   clrscr;

   x := 1;

   for i := 1 to xMaks do

   begin

     for j := 1 to yMaks do

     begin

       for k := 1 to zMaks do

       begin

         A[i,j,k] := x;

         inc(x);

       end;

     end;

   end;

   for i := 1 to xMaks do

   begin

     for j := 1 to yMaks do

     begin

       for k := 1 to zMaks do

       begin

         write('A[', i, ',', j, ',', k, '] = ', A[i,j,k], ' ');

       end;

     end;

     writeln;

   end;

end.

Bila program dijalankan akan didapatkan output:

A[1,1,1] = 1    A[1,1,2] = 2    A[1,2,1] = 3    A[1,2,1] = 4

A[2,1,1] = 5    A[2,1,2] = 6    A[2,2,1] = 7    A[2,2,1] = 8