[Restart]

Мне нужно чтобы программа считала сумму всех ячеек столбца и выводила их в другой Stringrid.

Код:

var
  Form1: TForm1;
  SG1  :  Array[1..5,1..4] Of integer;  //входной массив (стринггрид1)
  SG2  :  Array[1..4] Of integer;	  //исходной массив (стринггрид2)
  i, j, s :  Integer;                          //переменные...(сумма, строки, столбцы)

Код:

begin
   For i:=1 To 5 Do
   For j:=1 To 4 Do
    If  (StrnGrd1.Cells[j-1,i-1]='') Then
      SG1[i,j] := 0
    Else
      SG1[i,j] := StrToInt(StrnGrd1.Cells[j-1,i-1]);  //если ячейки пустые, записать туда "ноль"
For i:=1 To strngrd1.ColCount Do                       //для каждого столбца
    Begin
S:=0;
for j:=1 to 5 do begin                                      //считаем сумму каждой ячейки
     S:=s+SG1[i,j];
end;
    SG2[i]:=S;                                                //присваиваем сумму ячейке матрицы SG2
    End;

   For i:=1 To 4 Do                                    
   StrnGrd2.Cells[0,i-1] := FloatToStr(SG2[i])      //Вывод в другой стринггрид (Stringgrid2 или strngrd)
end;

StrnGrd - тоже самое, что и stringgrid.

Программа работает, но считает неправильно.
В чем может быть проблема?


http://clip2net.com/s/54UMIS - картинка

[M.A.D.M.A.N.]

Ничего не могу понять в этом коде, хоть отформатируй по человечески и подпиши, что значат переменные.

[Alegun]

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

...Программа работает, но считает неправильно...

Вроде это суммирует правильно, проверьте

Код:

var
  SG1  : array [0..4, 0..3] of integer =
      (( 34, -23,  48,  47),
      ( -14,  29,  8 ,  37),
      (  46,  13, -12,  41),
      ( -3 ,  17,  38,  5 ),
      ( -11, -22,  18, -6));


procedure TForm1.Button1Click(Sender: TObject);
var
Col, Row: integer;
begin

 for Row:= 0 to StringGrid1.RowCount-1 do //  Заполнение грида

  for Col:= 0 to StringGrid1.ColCount-1 do
   StringGrid1.Cells[Col, Row]:= IntToStr(SG1[Row, Col]);

end;

procedure TForm1.Button2Click(Sender: TObject);
var
Col, Row, Sum: integer;
begin

   for Row := 0 to StringGrid1.RowCount-1 do   

    begin
     Sum:= 0;

      for Col := 0 to StringGrid1.ColCount-1 do // Сложение всех колонок
       Sum:= Sum + StrToInt(StringGrid1.Cells[Col, Row]);

     StringGrid2.Cells[0, Row]:= IntToStr(Sum);
    end;
end;

[Restart]

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

Вроде это суммирует правильно, проверьте

Да, вы все правильно сделали, но здесь одна моя ошибка, я не сказал, что нужно даные вводить рандомно:

Код:

begin
  Randomize;
  For i:=1 To 5 Do
  For j:=1 To 4 Do
  Strngrd1.Cells[j-1,i-1] := FloatToStr(Random(80)-25);
end;

Проблем у меня с этим не будет, я переделаю.

Ваш код работает, и считает, но не столбцы, а строки.
Нужно как-то изменить:

Код:

begin
 
   for Row := 0 to StringGrid1.RowCount-1 do  
 
    begin
     Sum:= 0;
 
      for Col := 0 to StringGrid1.ColCount-1 do // Сложение всех колонок
       Sum:= Sum + StrToInt(StringGrid1.Cells[Col, Row]);
 
     StringGrid2.Cells[0, Row]:= IntToStr(Sum);
    end;
end;

и тут я всегда зависаю...

[M.A.D.M.A.N.]

переменные местами поменять
сейчас слева направо, сверху вниз, а надо сверху вниз и слева направо.

[Страдалецъ]

Ну и неплохо бы учитывать, что могут быть названия колонок, строк. А тогда индекс начальный не 0 будет. Желательно использовать для задания границ грида специальные свойства хранящие эту инфу.

[Restart]

Сообщение от M.A.D.M.A.N.

а надо сверху вниз и слева направо.

Так?

Код:

begin
       for Col := 0 to StringGrid1.ColCount-1 do 
    begin
     Sum:= 0;
      for Row := 0 to StringGrid1.RowCount-1 do
        Sum:= Sum + StrToInt(StringGrid1.Cells[Col, Row]); 
      StringGrid2.Cells[0, Row]:= IntToStr(Sum);
    end;
end;

не работает

[Restart]

Сообщение от Страдалецъ

Ну и неплохо бы учитывать, что могут быть названия колонок, строк. А тогда индекс начальный не 0 будет..

Да, спасибо. Но в моем примере их нет.
Картинка
http://clip2net.com/s/54UMIS

[Alegun]

Сообщение от Страдалецъ

...Желательно использовать для задания границ грида специальные свойства хранящие эту инфу.

Ну да,за это отвечают FixedRows и FixedCols, но их можно не учитывать т.к. судя по рисунку они равны нулю.

Наверное ещё хорошо бы сделать так

Код:

var
SG1: array  of integer;
...
begin

SetLength(SG1, StringGrid1.RowCount,StringGrid1.ColCount); 
...
end;

мало ли, вдруг размерность грида изменится.


Оффтоп:

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

...считает, но не столбцы, а строки...

Это русский способ, построчное сложение, есть ещё еврейский - тоже построчно, но от конца к началу, а с верху к низу столбиком, вроде или японский или китайский вариант (кто-то там из них с иероглифами так мутит) - не, китайский код нам не нужен!

[Restart]

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

не, китайский код нам не нужен!

Может немного японского тогда?

[Alegun]

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

Может немного японского тогда?

Можно хоть на суахили, только тогда и второй грид извратить немного тоже нужно, расположив его под первым гридом и изменив кол-во строк до одной, а столбцов до 4х.

Код:

procedure TForm1.Button2Click(Sender: TObject);
var
Col, Row, Sum: integer;
begin
  for Col := 0 to StringGrid1.ColCount-1 do
    begin
     Sum:= 0;
     for Row := 0 to StringGrid1.RowCount-1 do
       Sum:= Sum + StrToInt(StringGrid1.Cells[Col, Row]);
        StringGrid2.Cells[Col, 0]:= IntToStr(Sum);
    end;
end;

[Restart]

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

Можно хоть на суахили, только тогда и второй грид извратить немного тоже нужно, расположив его под первым гридом и изменив кол-во строк до одной, а столбцов до 4х.

Да, это оно, работает
Спасибо.

Но, ведь же есть какой-то способ, чтобы вывести их в столбец (во втором стринггриде)?

[Alegun]

Можно, нужно добавить ещё одну переменную типа integer, напр b, потом в самом начале процедуры задать её как ноль, а в цикле... не можно проще, вот так

Код:

procedure TForm1.Button2Click(Sender: TObject);
var
Col, Row, Sum: integer;
begin
    for Col := 0 to StringGrid1.ColCount-1 do
    begin
     Sum:= 0;
     for Row := 0 to StringGrid1.RowCount-1 do
       Sum:= Sum + StrToInt(StringGrid1.Cells[Col, Row]);
        StringGrid2.Cells[0, Col]:= IntToStr(Sum);
      end;
end;

только всё равно у второго грида четыре строки нужны, сумм 4 всего будет.

[Restart]

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

не можно проще, вот так...

Да, то что нужно.
Просто и елементарно.
Я действительно долго мучался как правильно написать...
Спасибо.
Вы мне очень помогли