Среднее арифметическое в Delphi

[Stas_]

Подскажыте как в Delphi найти среднее арифметическое целых чисел, которые вписаны в несколько полей edit и вывести результат в поле memo с помощью кнопки button. Результат не всегда будет целым, его будет нужно округлять до десятых.

[FaTaL]

В точности так же как и в математике, только с использованием переменных (контролов). Где Ваши наработки7 Что не получается?

[Serge_Bliznykov]

Memo1.Lines.Append( FloatToStr( 
   Round( (IntToStrDef(Edit1.Text,0) + IntToStrDef(Edit2.Text,0) 
               + IntToStrDef(Edit3.Text,0) {повторить сколько Edit'ов}) 
    / 3 {на сколько делить = сколько Edit'в}) * 10)/10 ));

[Stilet]

IntToStrDef

StrToIntDEF
И Round я бы заменил на:

 Summ:=0;
for i :=0 to Components.Count-1 do
 if Components[i] is TEdit then Summ:=Summ+StrToIntDef(TEdit(Components[i]).Text);
Memo.Lines.Append(format('%10.2f',[Summ]));

ИМХО надежнее.

[Serge_Bliznykov]

Stilet, +1

всё так. согласен с замечаниями и поправками!
спасибо.

НО!
1-е. Вы забыли среднее найти. (TC нужна не сумма, а среднее арифметическое)
тогда уже так:

 Cnt := 0; 
 Summ :=0 ;
for i :=0 to Components.Count-1 do
 if Components[i] is TEdit then begin
      Summ:=Summ+StrToIntDef(TEdit(Components[i]).Text,0);
      Inc(Cnt);
 end; 
 if Cnt<>0 then  
   Memo.Lines.Append(format('%10.1f',[Summ/Cnt]));

2-е. использовать перебор ВСЕХ компонентов Edit на форме нужно понимая, все тебе нужны или нет. Если задача стоит найти среднее ВСЕХ Edit'ов на форме, Ваш код, конечно, намного проще, надёжнее и эффективнее.



p.s. Виталий, я функцию неправильно написал, но и Вам StrToIntDef тоже не далась! у функции должно быть два параметра, второй - значение, если в строке не целое число

[Stilet]

Вы забыли среднее найти.

Я не забыл, я это оставил автору.

но и Вам StrToIntDef тоже не далась!

Ну голова у автора то наверное должна быть не только для едьбы
Пусть подкумекает малость - компилятор подскажет.