Опять нули, выручайте Опции

[qwerty)]

Условие:Даны матрицы A(n,n),B(m,m),C(n1,n1).Найти в каждом из исходных массивов суммму квадратов положительных элементов,лежащих на побочной диагонали и ниже её.НАхождение сумммы квадратов положительных элементов,лежащих на побочной диагонали и ниже её оформить в виде подпрограммы.

Вот что я написал,в конце выводит одни нули

program abs;
type vect=array [1..100,1..100] of integer;
var A,B,C:vect;x,y,n,m,n1,sum:integer;
procedure wwod(n,m:integer;var z:vect;q:string);
var i,j:integer;
begin
For i:=1 to n do begin
For j:=1 to m do begin
write (q,'[',i,',',j,']=') ;readln (z[i,j]);
end;end;end;

Procedure holms (var z:vect; const n,m: integer;x:integer);
var i,j:integer;
begin
For i:=1 to n do 
for  j:=1 to n-i do
If z[i,n-i+1]>=0 then sum:=z[i,n-i+1]*z[i,n-i+1];
sum:=0;
end;
begin
Write('n=');
readln(n);
Write('n=');
readln(n);
Write('m=');
readln(m);
Write('m=');
readln(m);
Write('n1=');
readln(n1);
Write('n1=');
readln(n1);
wwod (n,n,A,'A');
wwod (m,m,B,'B');
wwod (n1,n1,C,'C');
holms (A,n,n,x);
writeln('sum=',x);
holms (B,m,m,x);
writeln('sum=',x);
holms (C,n1,n1,x);
writeln('sum=',x);
readln;readln;
end.

[volvo]

sum:=0;

Вынеси из процедуры, и вызови только один раз перед ПЕРВЫМ к ней обращением...

[Malice]

Чтобы напечатать Х как результат надо как минимум вернуть его из процедуры через Var в параметрах и , соответственно, менять значение этого Х.

Procedure holms (var z:vect; const n,m: integer; VAR x:integer);
var i,j:integer;
begin
x:=0;
For i:=1 to n do 
for  j:=1 to n-i do
If z[i,n-i+1]>=0 then x:=x+z[i,n-i+1]*z[i,n-i+1];
end;

[qwerty)]

program abs;
type vect=array [1..100,1..100] of integer;
var A,B,C:vect;x,y,n,m,n1,sum:integer;
procedure wwod(n,m:integer;var z:vect;q:string);
var i,j:integer;
begin
For i:=1 to n do begin
For j:=1 to m do begin
write (q,'[',i,',',j,']=') ;readln (z[i,j]);
end;end;end;

Procedure holms (var z:vect; const n,m: integer; VAR x:integer);
var i,j:integer;
begin
x:=0;
For i:=1 to n do 
for  j:=1 to n-i do
If z[i,n-i+1]>=0 then x:=x+z[i,n-i+1]*z[i,n-i+1];
end;

begin
Write('n=');
readln(n);
Write('n=');
readln(n);
Write('m=');
readln(m);
Write('m=');
readln(m);
Write('n1=');
readln(n1);
Write('n1=');
readln(n1);
wwod (n,n,A,'A');
wwod (m,m,B,'B');
wwod (n1,n1,C,'C');
holms (A,n,n,x);
writeln('sum=',x);
holms (B,m,m,x);
writeln('sum=',x);
holms (C,n1,n1,x);
writeln('sum=',x);
readln;readln;
end.

если вводить размерность 2 на 2 и все элементы вводим 2-ки
получаем 2*2+2*2+2*2=12,а по моей проге получается 4....в каждом,должно быть по 12 в каждом....


Volvo я опять не допер,я ламер...

Сообщение отредактировано: qwerty) - 20.05.2007 1:11

[compiler]

примечание
локальные переменные "y" и "sum" not used...

[qwerty)]

Неполучается,по-моему,оно что-то не досчитывает или диагональ или еще что-то,очень прошу помочь

Сообщение отредактировано: qwerty) - 20.05.2007 13:13

[volvo]

Смотри:

type
  vect = array [1..100,1..100] of integer;

var
  A,B,C:vect;

procedure wwod(n,m:integer;var z:vect;q:string);
var i,j:integer;
begin
  For i:=1 to n do
    For j:=1 to m do begin
      write (q,'[',i,',',j,']=') ;readln (z[i,j]);
    end;
end;

{ Подпрограмму лучше сделать функцией, зачем тебе лишняя морока?  }
Function holms (var z:vect; const n: integer): integer;
var sum, i, j: integer;
begin
  sum := 0;
  For i := 1 to n do
    for  j := n-i+1 to n do
      If z[i,j]>=0 then sum:=sum + sqr(z[i,j]); { Здесь см. внимательно на индексы }
  holms := sum; { возвращаем значение }
end;

var
  n, m, n1: integer;


begin
  Write('n='); readln(n);
  Write('m='); readln(m);
  Write('n1='); readln(n1);

  wwod (n,n,A,'A');
  wwod (m,m,B,'B');
  wwod (n1,n1,C,'C');

  writeln('A: sum=',holms (A,n)); { вот тебе и преимущество функции - вызов прямо в выражении }
  writeln('B: sum=',holms (B,m));
  writeln('C: sum=',holms (C,n1));

  readln;readln;
end.

(лишние переменные убрал...)