среднее значение в SrtingGrid

[radzivill]

Здравствуйте, очень нужна ваша помощь. Мне необходимо посчитать в одной ячейке StringGrid среднее значение цифр строки, а так же посчитать количество ячеек строки, в которых цифра 0. Заранее спасибо.

[Stilet]

Раскладка на цифры:

n:=Число;i:=0;s:=0;
while n<>0 do begin
 s:=s+n mod 10;
 n:=n div 10;
 inc(i);
end;
Результат:=s/i;

посчитать количество ячеек строки, в которых цифра 0

Неудачно ты выбрал компонент...

with StringGrid1.Rows[Такая-то строка] do begin
 n:=0; // Это кол-во нулевых
 for i:=0 to Count-1 do if StrToInt(trim(Strings[i]))=0 then inc(n);
end;

[radzivill]

Я вот касательно первой не пойму, во первых, это в стринггрид вставлять, или куда? а во вторых объясни пожалуйста, как этот код работает? как он определяет ячейку в которой будет результат и из какой строки брать числа? Понимаю, что компонент не удачный, но по другому боюсь вряд ли получится. Спасибо

[Stilet]

Я вот касательно первой не пойму, во первых, это в стринггрид вставлять, или куда?

Что вставлять?

как он определяет ячейку в которой будет результат и из какой строки брать числа?

Кто определяет? Я такого не писал.

Число:=StrToInt(StringGrid.cells[Колонка, строка]);

Это и будет говорить откуда брать число для цикла разворота на цифры.

[radzivill]

Прости, я совсем чайник в этом деле, ты меня окончательно запутал. В твоем первом сообщении вообще не было такой строчки, какую ты во втором написал. И я не очень понял в какое место программы вставлять этот код? К стринггриду?

[Stilet]

Пф.... Билдер. Не заметил.
Значит разворот будет таким:

int n=StrToInt(StringGrid->Cells[StringGrid->Col][StringGrid->Row]);
int i=0;
double s=0;
for(;n;n/=10,i++) s+=n%10; 
s/=i;
ShowMessage(FloatToStr(s))

Можешь это поместить в клик какой нибудь кнопки.
Выберешь ячейку и нажмешь на кнопку - получишь результат.

И мой совет: Если не знаешь как правильно работать с гридом, то лучше эту задачу решай в консольном приложении используя простые массивы, а не делай проект с формой. Ранно тебе еще.

[radzivill]

Перевел как "не является допустимым целым значением", не пойму, из за чего это?

[Stilet]

Из-за того что в ячейке кроме цифр что-то еще вписано.
Проверяется так:

int n;
if(TryStrToInt(StringGrid->Cells[StringGrid->Col][StringGrid->Row],n)){
 ...
} else {
 ShowMessage(StringGrid->Cells[StringGrid->Col][StringGrid->Row]+" Не число");
}

[radzivill]

теперь понятно почему ошибка, но программа вычисляет ср.арифметическое в ячейке, а нужно из всей строки: типо первая ячейка + вторя делить на количество. И еще хотелось бы, что бы результат записывался в выделенную ячейку, а не выдавался сообщением.

[Stilet]

Ниче не понял, но: Оформи код в функцию, принимающую string, возвращающую Double. Что-то типа:

double summa(string s){
 double r=0;
 тут разворачиваем строку в число, суммируем цифры в r и...
 return r
}

А в нее уже в цикле передавай этот StringGrid->Cells[StringGrid->Col][StringGrid->Row]