Tablouri tridimensionale

Pentru a intelege lectia tablouri tridimensionale, trebuie sa cunoasteti ce este o matrice. 


Ce este un tablou tridimensional? Un tablou tridimensional este o multime de numere aranjate pe linii, coloane si nivele. In principiu, un tablou e ca o matrice, singura diferenta este aparitia nivelului. Intr-un program pascal un tablou tridimensional se precizeaza astfel: a[i,j,k] unde i reprezinta nivelul, j-linia si k-coloana.



Declaratia si citirea unui tablou tridimensional:

var a:array [1..10,1..10,1..10] of integer;
Begin

Write(‘n’);     readln(n);
Write(‘m’);     readln(m);

Write('o');     readln(o);

For i:=1 to n do
For j:=1 to m do
For k:=1 to o do
read(a[i,k,j]);


In rest totul e la fel ca la o matrice doar e cu o instructiune "For" in plus.




Problema rezolvata: Se da un tablou tridimensional. Calculati suma elementelor impare aflate la un nivel par.


Program T1;
var a:array [1..10,1..10,1..10] of integer;
var: m,n,o,i,j,k,S:integer;
Begin

Write(‘n’);     readln(n);
Write(‘m’);     readln(m);
Write('o');     readln(o);
For i:=1 to n do
For j:=1 to m do
For k:=1 to o do
read(a[i,k,j]);
S:=0;
For i:=1 to n do
For j:=1 to m do
For k:=1 to o do
If (i mod 2<>0) and (a[i,j,k] mod 2=0) then S:=S+a[i,j,k];
write('S=',);
end.




Intrebari? Nelamuriri? Nu ezitati sa comentati mai jos!