Сумма значений ячеек в столбце

← →
Till © (2003-05-13 06:16) [0]

Гутен Морген Алес!
Чето я никак дотямать не могу как мне сложить данные из всех ячеек ов определенном столбце зная что там ячеек n-ое количество?
Нужна какая то формула я нафиг не могу понять точнее додуматьсмя какая помогите плиз буду благодарен!
Спасибо!

← →
Md (2003-05-13 06:59) [1]

В цикле...до n.

← →
Till © (2003-05-13 07:11) [2]

Я это понял что в цикле, знаю, а как подсчитать то? Не пойму :((

← →
Md (2003-05-13 07:14) [3]

sum:=0;
For i:=0 to n do
sum:=sum+ЗначениеЯчейки

← →
Till © (2003-05-13 07:15) [4]

var i: integer; str : String; begin for i:= 1 to n do begin str := StringGrid.Cells[5,i]; end; end;
Вот так данные считываються с каждой ячейки а как теперя их скласть??? :((

← →
Till © (2003-05-13 07:18) [5]

> sum:=0;
> For i:=0 to n do
> sum:=sum+ЗначениеЯчейки

Это чего вот так получаеться чтли?

var i: integer; sum : real; str : String; begin sum := o; for i:= 1 to n do begin str := StringGrid.Cells[5,i]; sum := sum + StrToFloat(str); end; end;
так чтоли? :(

← →
gek © (2003-05-13 07:19) [6]

ты что прикалываешься?

var
i: integer;
str : String;
fl:float;
begin
for i:= 1 to n do
fl :=fl + strtofloat(StringGrid.Cells[5,i]);

end;

← →
Till © (2003-05-13 07:23) [7]

Неа не так как то по другому.......

← →
Till © (2003-05-13 07:24) [8]

> ты что прикалываешься?
>
> var
> i: integer;
> str : String;
> fl:float;
> begin
> for i:= 1 to n do
> fl :=fl + strtofloat(StringGrid.Cells[5,i]);
>
> end;

Ща попробую!

← →
Md (2003-05-13 07:24) [9]

> Это чего вот так получаеться чтли?

Да.

var
i: integer;
sum : real; // лучше double
str : String;
begin
sum := o;
for i:= 1 to n do
begin
str := StringGrid.Cells[5,i];
sum := sum + StrToFloat(str);
end;
end;

> так чтоли? :(

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

← →
Till © (2003-05-13 07:31) [10]

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

233423
5645645668
978978
0
231234
345456
546
65767

К примеру вот эти все значения нужно скласть и запихать сумму в переменную....... а когда я пытаюсь делать как выше коды написаны просто в конце сделать ShowMessage(var);
У меня выводиться несолько раз цифры цифры :((( помогите плиз... прошу Вас!

← →
Md (2003-05-13 07:33) [11]

Sum:double ?
ShowMessage(Sum)?
Точно так.

У меня вот так
procedure TForm1.Button1Click(Sender: TObject); var i,sr_1: integer; s_m : real; sum : double; str : String; begin s_m := srok.value; sr_1 := Round(s_m); sum := 0; for i:= 1 to sr_1 do begin str := StringGrid.Cells[5,i]; sum := sum + StrToFloat(str); end; ShowMessage(FloatToStr(sum)); end;
И все равно не правильно считает итоговую сумму.... :((

← →
Md (2003-05-13 07:57) [13]

Приведи пример значений и итога. И ещё: чему равно srok_value?

Значения такие
2083
1893
1704
1514
1325
1135
945
756
566
377
187

Итог должен получиться 12485
А программа выдает 12482.... :((
srok_value равняеться 12

Все наел свою ошибку! спасибо всем за помощь!

Сумма значений ячеек в столбце Найти похожие ветки