Подсчет сумм элементов матрицы в строках и столбцах

@Buzunenok · Регистрация: 01.04.2014

Author24 — интернет-сервис помощи студентам

столкнулась с такой проблемой.
нужно определить суммы мо всем строкам и столбцам и диагоналям матрицы.
все считает верно кроме первой строки, что очень и очень странно. ведь вторая строка подсчитана верно. помогите исправить ошибку в коде, пожалуйста. Название: йцйчцч.PNG
Просмотров: 47

Размер: 2.1 Кб

Название: йцйчцч.PNG
Просмотров: 47

Размер: 2.1 Кб

Delphi

  
{sg1-stringGrid1}
//сумма по строкам
n:=sg1.colcount
   for i:=1 to n-1  do begin
   sum1:=0;
for j:=1 to n-1 do begin
 sum1:=sum1+strtoint(sg1.cells[i,j])  ;
   sg1.Cells[i,0]:=inttostr(sum1);
end;
   sum1:=sum1+1;
  end;

@volvo · 30.10.2014, 22:58

Pascal

procedure TForm1.Button1Click(Sender: TObject);
var
  i, j, n: integer;
  sum1, sum2: integer;
begin
  n := sg1.colcount;
  for i := 1 to n - 1 do
  begin
    sum1 := 0; sum2 := 0;
    for j := 1 to n - 1 do
    begin
      sum1 := sum1 + StrToInt(sg1.cells[i, j]);
      sum2 := sum2 + StrToInt(sg1.cells[j, i]);
    end;
    sg1.Cells[i, 0] := IntToStr(sum1);
    sg1.Cells[0, i] := IntToStr(sum2);
  end;
end;

Это подсчет и по строкам и по столбцам при условии, что число строк и столбцов - одинаковое...

	30.10.2014, 22:58