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

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

Форум «Всё о Паскале» _ Задачи _ Матрица

Автор: JoB 21.04.2006 4:38

Не могу понять что не так(вероятно уже время такое=):
найти сумму средних арефметических значений строк матрици размером м на н

Код

const n=2;m=2;
var a:array[1..n,1..m] of integer;
i,j,max:integer;
sum:extended;
begin
  sum:=0;
for i:=1 to n do
for j:=1 to m do begin
write('a[',i,',',j,']=');
readln(a[i,j]);
end;
for i:=1 to n do
for j:=1 to m do begin
begin
sum:=sum+a[i,j];
if j=m then
sum:=sum/m;
writeln(sum:4:2);
end;
end;
readln
end.

Автор: Bokul 21.04.2006 6:12

Код

const n=2;m=2;
var a:array[1..n,1..m] of integer;
i,j,max:integer;
sum,result:real;
begin
sum:=0;
result:=0;
for i:=1 to n do
for j:=1 to m do
     begin
            write('a[',i,',',j,']=');
            readln(a[i,j]);
     end;
for i:=1 to n do
for j:=1 to m do
     begin
            sum:=sum+a[i,j];
            if j=m then
                      begin    
                              result:=result+sum/m;
                              sum:=0;
                      end;
    end;
writeln(result:4:2);
readln;
end.

Автор: volvo 21.04.2006 11:52

Bokul,

for i:=1 to n do begin
  sum := 0;

  for j:=1 to m do sum:=sum+a[i,j];
  
  result:=result+sum/m;
end;

не проще?

Автор: lapp 21.04.2006 12:05

Цитата(volvo @ 21.04.2006 7:52) *

не проще?

volvo меня опередил (как обычно) smile.gif
Но все же добавлю, типа совет на будущее: не надо использовать переменную с именем result. Назови res, что ли..

Автор: Bokul 22.04.2006 2:40

Volvo,
да проще, просто я хотел как можно меньше изменять его код unsure.gif