Programiranje 1 - Februar 2014 prvi zadatak

Feb2014 Prvi zadatak

program feb2014_prvi;

const MAX = 20;

type matrix = array [1..MAX,1..MAX] of integer;

var matrica : matrix;
    x, v, k : integer;

procedure eq_matrix(matrica : matrix; x,v,k : integer);
   var s1,s2,i,j : integer;

   begin
      s1:=0;
      writeln('Test unetih promenjivih:','x=',x,' v=',v,' k=',k);
      for j:=1 to k do s1:= s1 + matrica[x,j];
      writeln('Zbir ',x,'. kolone je: ', s1);
      for i:=1 to v do
        begin
        s2:=0;
          if (i <> x) then
            begin
            for j:=1 to k do s2:= s2 + matrica[i,j];
            if (s2 = s1) then
                writeln('Vrsta ',i,' ima isti zbir clanova kao i vrsta ',x);
        s2:=0;
            end;
        end;
   end;

function enter_matrix(var v,k:integer):matrix;
  var i, j   : integer;
    begin
            write('Unesite broj vrsta matrice: '); readln(v);
            if (v <= 0) or (v >= MAX) then
                begin
                writeln('Uneli ste nevazece vrednosti, molimo pokusajte ponovo:');
                end;
            write('Unesite broj kolona matrice: '); read(k);
            if (k <= 0) or (k >= MAX) then
                begin
                writeln('Uneli ste nevazece vrednosti, molimo pokusajte ponovo:');
                end;
            writeln('Unesite vasu matricu : == >');
                for i:=1 to v do
                    for j:=1 to k do
                        read(matrica[i,j]);
    end;

procedure test_matrix(v,k :integer);
  var i,j : integer;
      begin
        for i:=1 to v do
          begin
          for j:=1 to k do
          write(matrica[i,j],' ');
          writeln();
          end;
      end;

begin
 enter_matrix(v,k);
 test_matrix(v,k);
 writeln('Koju kolonu zelite da koristite za referencu: ');
 read(x);
 eq_matrix(matrica,x,v,k);
 readln(x);
end.