Задача в StringGrid

[qpuTuJlb]

Добрый день, мне нужно написать задачу в виде таблицы StringGrid, суть её в том что нужно вписать в 1 столб числа от 0 до 20(это я сделал) но ещё и нужно найти их среднее арифметическое, каким образом можно это сделать?

[Multiman]

Могу предположить что надо на делфи, но с++ мне больше нра :D

int s = 1; float sum = 0, sr;

	for (int i = 0; i < 20; i++) {

		sum = sum +StrToFloat(StringGrid1->Cells[1][s]);

		s++;
	}
sr = sum/20;

[qpuTuJlb]

мне на с++ не надо, надо на делфи
мы с++ ещё не учили, препод сразу увидит что кто-то помог=)

[Multiman]

Ну это как пример. Пробуйте сами. Если я напишу будет не интересно =)
Все также, только на язык делфи и все.

Создаете цикл, в переменную складываете все значения из ячеек грида и потом делите на количество цифр.

[Multiman]

procedure TForm1.Button1Click(Sender: TObject);
var
  i, sum, s: integer;
  srednee: real;

begin
 s:= 0;
 sum:= 0;
 for i:= 1 to 20 do begin
    sum:= sum + StrToInt(StringGrid1.Cells[0,s]);
    s:= s + 1;
  end;

  srednee:= sum/20;
  Memo1.Lines.Add(FloatToStr(srednee));

  end;

end.

[qpuTuJlb]

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

procedure TForm1.Button1Click(Sender: TObject);
var
  i, sum, s: integer;
  srednee: real;

begin
 s:= 0;
 sum:= 0;
 for i:= 1 to 20 do begin
    sum:= sum + StrToInt(StringGrid1.Cells[0,s]);
    s:= s + 1;
  end;

  srednee:= sum/20;
  Memo1.Lines.Add(FloatToStr(srednee));

  end;

end.

программа выдаёт ошибку

[denisbrain]

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

программа выдаёт ошибку

заместо strtoint прикрути

function TryStrToInt(const S: string; out Value: Integer): Boolean;
var
  E: Integer;
begin
  Val(S, Value, E);
  Result := E = 0;
end;

http://translate.google.ru

http://docwiki.embarcadero.com/Libra...ls.TryStrToInt

Преобразует строку, которая представляет собой целое число (в десятичной или шестнадцатеричной нотации) в ряд с булевыми код успеха.

TryStrToInt преобразует строку S, который представляет собой целое число типа в десятичном или шестнадцатеричном формате, в номер, который присваивается значение. Если S не является действительным числом, TryStrToInt возвращает False, в противном случае TryStrToInt возвращает True.


а в товоем пример

for i:= 1 to 20 do begin
    sum:= sum + StrToInt(StringGrid1.Cells[0,s]);
    s:= s + 1;
  end;

а смысл.... s=0

for i:= 1 to 20 do begin
    sum:= sum + StrToInt(StringGrid1.Cells[0,i]);
    s:= s + 1;
  end;

с учетом функции выше

var sm:integer;
...

for i:= 1 to 20 do begin
  if TryStrToInt (StringGrid1.Cells[0,i],sm) then  begin
    sum:= sum + sm;
    s:= s + 1;
   end;
  end;