проблемы с двумерным массивом

[pancho]

здраствуйте снова..у меня опять проблема..никак не могу понять как считать строки в двумерном массиве..вот код

PHP код:

function MaxSum(b:TMas;m,n:integer):integer;
Var Sum,MaxS,h,i,j,Max,Maxi,Maxj:integer;
begin
Sum:=0;
i:=1;//начинаем с первого столбца
for j:=1 to m do begin
   Sum:=Sum+b[i,j];//суммируем элементы..допустим b[1,1]:=1+0;
end;
  inc(i);//смотрим следущий столбец
MaxSum:=Sum;
end; 


мне надо чтобы он всю строчку просчитал,перешёл на другую строку,её посчитал..в такой форме он мне считает только первую строку..
проблема видно в том куда поставить inc(i) а вот куда его ставить я так и не пойму...помогите пожалуйста..ступор с этим.заранее спасибо)

[maladoy]

repeat
for j:=1 to m do begin 
   Sum:=Sum+b[i,j];//суммируем элементы..допустим b[1,1]:=1+0; 
end; 
  inc(i);
until i>n;

[Bayazet]

я бы сказал, не мудрено, что он считает только первую, Вы ведь не используете второй цикл, чтобы перебирать строки.

For i := 1 to length(Mas) do
  For j := 1 to length(Mas[i]) do
    sum := sum + Mas[i,j];

и вообще, компьютерный счет начинается с нуля

[pancho]

не люблю repeat)
лучше с while

PHP код:

While i<n do begin
showmessage(IntToStr(i));
for j:=1 to m do begin
   Sum:=Sum+b[i,j];
end;
  inc(i);
end;
MaxSum:=Sum;
end; 


и тем более в цикле с вайл можно прибавлять счётчик?
по моему там он даже не смотрит..то есть пока выполняется условие считать сумму..
вообщем так оно не работает..он туда даже не заходит.

[maladoy]

Ты бы n присвоил вначале какое нибудь значение и все будет ок

[pancho]

Bayazet насчёт нуля я бы поспорил)так как мы должны же взять чтото за начало а начало соответственно Sum:=0
в итоге работает вот так

PHP код:

Sum:=0;
For i := 1 to length(b) do
  For j := 1 to length(b[i]) do
    Sum := Sum + b[i,j];
MaxSum:=Sum;
end; 


только программа считает сумму всех элементов,а мне нужно чтобы он выводил в мемо сумму каждой строки с помощью memo1.lines.add(MaxSum(B,m,n))

[pancho]

maladoy у меня n-это n:=StrToInt(Edit1.text) и n я ему даю

[maladoy]

Сообщение от pancho

вообщем так оно не работает..он туда даже не заходит.

раз не заходит значит не так даешь))

[pancho]

всё)проблема решена)после отдыха сел и сделал)конечно полазял по сайтам)всем спасибо)
если кому нада вот код который получился:

PHP код:

function SumStrok(b:TMas;m,n:integer):integer;
Var i,j,sum,summax,isummax:integer;
begin
isummax:=1;
summax:=0;
    for j:=1 to n do
      begin
        sum:=0;
        for i:=1 to m do begin
        sum:=sum+b[i,j];
        if sum>summax then
          begin
           summax:=sum;
           isummax:=j;
          end;
          end;
       end;
      SumStrok:=isummax;
end; 


PHP код:

procedure TForm1.MaxStrokaClick(Sender: TObject);
Var m,n:integer;
begin
   m:=StrToInt(Edit1.text);
   n:=StrToInt(Edit2.text);
   Edit5.Text:=IntToStr(SumStrok(B,m,n))+'  '+'строка';
end; 


всем ещё раз большое спасибо)

[Bayazet]

pancho, обязательно скопирую этот код и повешу в рамочку над кроватью, буду с утра просытаться и негодовать от величия великих программистов