Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Опять нули

Автор: qwerty) 19.05.2007 22:33

Условие:Даны матрицы 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 19.05.2007 22:35

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

Автор: Malice 20.05.2007 0:50

Чтобы напечатать Х как результат надо как минимум вернуть его из процедуры через 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) 20.05.2007 1:11

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 я опять не допер,я ламер... unsure.gif

Автор: compiler 20.05.2007 2:07

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

Автор: qwerty) 20.05.2007 12:50

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

Автор: volvo 20.05.2007 14:16

Смотри:

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.

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