|
Tekst zadatka je sledeći:
Napisati program kojim se na izlazu ispisuje 1 ako je A>B, gde su A i B matrice. A>B ako je suma elemenata matrice A veca od sume elemenata matrice B. Za odredivanje sume elemenata matrice napraviti funkciju. Za odredivanje da li je A vece od B napraviti funkciju.
Uradio sam zadatak na ovaj način ali je daleko od dobrog, ako neko može da mi pomogne ili da uradi ovaj zadatak dobro bi mi došlo.
program zadatak;
type matrica = array [1..100,1..100] of integer;
var a,b:matrica;
v,k,i,j:integer;
procedure ucitajA(var a:matrica; v,k:integer);
var i,j:integer;
begin
writeln('Unesi elemente matrice A ');
for i:=1 to v do
for j:=1 to k do
readln(a[i,j]);
end;
procedure ucitajB(var b:matrica; v,k:integer);
var i,j:integer;
begin
writeln('Unesi elemente matrice A ');
for i:=1 to v do
for j:=1 to k do
readln(b[i,j]);
end;
function sumaA(var a:matrica; v,k:integer):real;
var i,j:integer;
s:real;
begin
s:=0;
for i:=1 to v do
for j:=1 to k do begin
s:=s+a[i,j];
sumaA:=s;
writeln('Suma A je ',sumaA(a,v,k):5:2);
end; end;
function sumaB(var b:matrica; v,k:integer):real;
var i,j:integer;
s:real;
begin
s:=0;
for i:=1 to v do
for j:=1 to k do begin
s:=s+b[i,j];
sumaB:=s;
writeln('Suma A je ',sumaB(b,v,k):5:2);
end; end;
function odredi(var a,b:matrica; v,k:integer):integer;
var i,j,o:integer;
begin
for i:=1 to v do
for j:=1 to k do
if (sumaA(a,v,k)<sumaB(b,v,k)) then
writeln('Suma A nije veca od B ')
else
writeln('Stampaj na izlazu ',odredi(a,b,v,k));
o:=1;
odredi:=o;
end;
begin
writeln('Unesi duzinu vrste ');
readln(v);
writeln('Unesi duzinu kolone ');
readln(k);
ucitajA(a,v,k);
ucitajB(b,v,k);
sumaA(a,v,k);
sumaB(b,v,k);
end.
|
