Подсчитать сумму и среднее арифметическое чисел в 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;

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

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

• Симплекс метод Delphi исходник
• Состояние клавиш мыши
• Как расчитать время между нажатием и отпусканием кнопки мыши?
• Cложные градиетны альфы (OpenGL)
• Русские символы в MS Visual Studio
• Как в коснольном приложении открыть диалог сохранения?
• Округление до сотых и выгрузка всех столбцов в txt файл в execl
• Рассылка. Выпуск 126
• Микросхемы динамической памяти DRAM
• Как можно вставить код C++ в Delphi 7