Подсчитать сумму и среднее арифметическое чисел в Memo

Posted by micher under Delphi

Как подсчитать сумму и среднее арифметическое чисел, выведенных в столбик в Memo?

Sparkman

var i, code, n : integer;

    _sum, _avg, _tmp : real;

begin

     _sum := 0;

     _avg := 0;

     n:=0;

     for i := 0 to Memo1.Lines.Count-1 do

     begin

          val(Memo1.Lines.Strings, _tmp, code);

          if code = 0 then

          begin

               _sum := _sum + _tmp;

               inc(n);

          end;

     end;

     _avg := _sum / n;

     ShowMessage('Sum = ' + FloatToStr(_sum)+#13+

                 'Avg = ' +  FloatToStr(_avg));

end;

тема на форуме

Случайные статьи

• Как создать для текста эффект печатной машинки, например для TLabel?
• Рассылка. Выпуск 242
• FullHD Плеер в Delphi
• Многопоточность — с чего начать?
• Оператор case в delphi
• Рассылка. Выпуск 195
• Библия программиста Delphi
• Объединение ячеек со сдвигом вверх?
• PostgreSQL — чтение файла
• Рассылка. Выпуск 241