Форум: "Основная";
Текущий архив: 2003.05.26;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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)?
Точно так.

---

← →
Till   (2003-05-13 07:53) [12]

У меня вот так
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?

---

← →
Till   (2003-05-13 08:14) [14]

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

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

---

← →
Till   (2003-05-13 08:45) [15]

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

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.05.26;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.48 MB
Время: 0.008 c