Сумма строк в StringGrid

[CallMeJammer]

Всем привет! прошу помощи! ситуация такая: имеется stringgrid с пятью колонками и произвольным количеством строк которое задается через spinedit! вот мне необходимо определить сумму всех строк по пятому столбцу для дальнейшего нахождения среднего его значения! как это реализовать (нахождение суммы)??

[Serge_Bliznykov]

в первой строке, небось, заголовки?!
Если да, то начинаем отсчёт от 1 (иначе от нуля)

  Sum5 := 0.0;
  for i:=1 to StringGrid1.RowCount-1 do Sum5 := Sum5 + StrToFloat(StringGrid1.Cells[4, i]);

[CallMeJammer]

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

в первой строке, небось, заголовки?!
Если да, то начинаем отсчёт от 1 (иначе от нуля)

  Sum5 := 0.0;
  for i:=1 to StringGrid1.RowCount-1 do Sum5 := Sum5 + StrToFloat(StringGrid1.Cells[4, i]);

Sum5 - это что? его объявлять чем?
это можно просто на кнопку писать код или надо функцию создавать Function Sum? а то я не разобрался как эта функция работает(

и вот это выражение: Sum5 := Sum5 + StrToFloat(StringGrid1.Cells[4, i]) я что-то не понял! у тебя Sum5 равно этой же величине плюс.....разве это верно??

[Serge_Bliznykov]

попытка номер два.

на форму помещаем кнопку.
На кнопку такой код:

procedure TForm1.Button1Click(Sender: TObject);
var Sum5 : real;
   i : integer;
begin
  Sum5 := 0.0;
  for i:=1 to StringGrid1.RowCount-1
     do Sum5 := Sum5 + StrToFloat(StringGrid1.Cells[4, i]);
  ShowMessage('Сумма всех чисел в 5-м столбце равна '+FloatToStr(Sum5));
end;

p.s.

Sum5 := Sum5 + .... я что-то не понял! у тебя Sum5 равно этой же величине плюс.....разве это верно??

Да верно. Это же классика. Так всегда считается сумма в цикле.
Получается что переменная в себе "накапливает" сумму...
пример. Вы хотите сложить числа 5 10 3 20
вначале переменная S равно нулю.
S := 0;
для первого числа S := S + 5 = 0 + 5 = 5;
для второго: S := S + 10 = 5 + 10 = 15;
для третьего: S := S + 3 = 15 + 3 = 18;
для четвёртого: S := S + 20 = 18 + 20 = 38;

ответ сумма равна 38.

Теперь понятнее?...

[CallMeJammer]

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

попытка номер два.

на форму помещаем кнопку.
На кнопку такой код:

procedure TForm1.Button1Click(Sender: TObject);
var Sum5 : real;
   i : integer;
begin
  Sum5 := 0.0;
  for i:=1 to StringGrid1.RowCount-1
     do Sum5 := Sum5 + StrToFloat(StringGrid1.Cells[4, i]);
  ShowMessage('Сумма всех чисел в 5-м столбце равна '+FloatToStr(Sum5));
end;

p.s.

Да верно. Это же классика. Так всегда считается сумма в цикле.
Получается что переменная в себе "накапливает" сумму...
пример. Вы хотите сложить числа 5 10 3 20
вначале переменная S равно нулю.
S := 0;
для первого числа S := S + 5 = 0 + 5 = 5;
для второго: S := S + 10 = 5 + 10 = 15;
для третьего: S := S + 3 = 15 + 3 = 18;
для четвёртого: S := S + 20 = 18 + 20 = 38;

ответ сумма равна 38.

Теперь понятнее?...

Да!)) спасибо огромное за помощь, все заработало!!! но есть еще вопрос))) можно ли (а я думаю можно) сделать так сказать перебор чисел по столбцу, чтобы определить те которые меньше единицы! требуется просто определить значения меньше еденицы и вывести сообщение... я просто не пойму как со столбца считать указав ему что все числа используем для определения значений меньше единицы