MATRICE Jednodimenzionalne nizove karakterie to da se svakoj komponenti niza moe pristupiti navoenjem jedne indeksne vrednosti.

Meutim, ima mnogo problema gde bi se sa podacima bolje operisalo ako bi se reprezentovali u viedimenzionalnoj formi. U matematici se dvodimenzionalna tabela naziva matrica. Pri zadavanju matrice koriste se prirodni brojevi m i n koji definiu dimenziju matrice, tj. ukazuju da se matrica sastoji od n vrsta i m kolona. Ako je m=n matrica je kvadratna. Svaki element u matrici aij karakteriu dva indeksa: prvi oderuje vrstu, a drugi kolonu u kojoj se nalazi element. Deklaracija matrice: type niz=array[1..n] of integer; matrica=array[1..m] of integer; var A:matrica; 1. Napisati program kojim se za realnu matricu A (NxN) izraunava suma svih elemenata (lanova) matrice.

program SumaClanovaMatrice; uses WinCrt; const k=10; type niz=array[1..k] of real; matrica=array[1..k] of niz; var A : matrica; rezultat : real; i, j, n : integer; procedure ucitajMatricu(n:integer;var A:matrica); var i, j : integer; begin for i:=1 to n do for j:=1 to n do read(A[i][j]); end; function SumaElemenata(n:integer; A:matrica) : real; var s : real; i, j : integer; begin s:=0;

for i:=1 to n do for j:=1 to n do s:=s+A[i,j]; SumaElemenata:=s end; begin write('Upisati dimenzije matrice (n):'); readln(n); write('Unesite elemente matrice (3x3): '); ucitajMatricu(n, A); writeln('Elementi matrice su: '); for i:=1 to n do for j:=1 to n do writeln(A[i][j]:8:2); writeln; rezultat:=SumaElemenata(n, A); write('Suma elemenata matrice je: ', rezultat:8:2); end.

2. Napisati program (funkciju) kojom se za realnu matricu A (NxN) izraunava suma svih elemenata (lanova) matrice na glavnoj dijagonali. program SumaClanovaMatrice; uses WinCrt; const k=10;

type niz=array[1..k] of real; matrica=array[1..k] of niz; var A : matrica; rezultat : real; i, j, n : integer; procedure ucitajMatricu(n:integer;var A:matrica); var i, j : integer; begin for i:=1 to n do for j:=1 to n do read(A[i][j]) end; function SumaDijagonalnihElemenata(n:integer; A:matrica) : real; var s : real; i, j : integer; begin s:=0; for i:=1 to n do for j:=1 to n do if i=j then s:=s+A[i,j]; SumaDijagonalnihElemenata:=s end; begin write('Upisati dimenzije matrice (n):'); readln(n); write('Unesite elemente matrice (3x3): '); ucitajMatricu(n, A); writeln('Elementi matrice su: '); for i:=1 to n do for j:=1 to n do writeln(A[i][j]:8:2); writeln; rezultat:= SumaDijagonalnihElemenata (n, A); write('Suma elemenata matrice na glavnoj dijagonali je: ', rezultat:8:2); end.

3. Napisati program (funkciju) kojom se za realnu matricu A (NxN) izracunava suma svih negativnih elemenata (clanova) matrice. program SumaClanovaMatrice;

uses WinCrt; const k=10; type niz=array[1..k] of real; matrica=array[1..k] of niz; var A : matrica; rezultat : real; i, j, n : integer; procedure ucitajMatricu(n:integer;var A:matrica); var i, j : integer; begin for i:=1 to n do for j:=1 to n do read(A[i][j]) end; function SumaNegativnihElemenata(n:integer; A:matrica) : real; var s : real; i, j : integer; begin s:=0; for i:=1 to n do for j:=1 to n do if A[i,j]<0 then s:=s+A[i,j]; SumaNegativnihElemenata:=s end; begin write('Upisati dimenzije matrice (n):'); readln(n); write('Unesite elemente matrice (3x3): '); ucitajMatricu(n, A); writeln('Elementi matrice su: '); for i:=1 to n do for j:=1 to n do writeln(A[i][j]:8:2); writeln; rezultat:= SumaDijagonalnihElemenata (n, A); write('Suma elemenata matrice na glavnoj dijagonali je: ', rezultat:8:2); end.

Napomena: OBRATITI PANJU NAROITO NA ZADATKE KOJI SU RAENI NA VEBAMA NAKON OVIH ZADATAKA, A KOJI NISU DATI U OKVIRU OVOG FAJLA.