Последние записи
- Прозрачность тайлсета в TPNGImage
- Как сделать VBA макрос в excel
- Поиск по столбцу 1-ого не нулевого значения (формулой в Microsoft Office Excel)
- Простановка единиц в ячейки под объектами (Microsoft Office Excel)
- Расчет затраченного времени между определенным рабочим временем (формулой в Microsoft Office Excel)
- Мигающий экран на Assembler
- VBA-макрос по копированию 10 строчек в выбранном диапазоне в Microsoft Office Excel
- Копирование только нужного диапазона в Microsoft Office Excel
- Перенос диапазона стоки в Microsoft Office Excel на другой лист по условию
- Мелодия в Pascal.ABC.Net с помощью System.Console.Beep — задержка воспроизведения звука
25th
Сен
Среднеарифметическое значение из Edit
Posted by micher under Delphi
Как вычислить среднеарифметическое значение из некоторых Edit, определяемых CheckBox?
Serge_Bliznykov
Пример для одного CheckBox
sum := 0.0;
countSum := 0;
if CheckBox1.Checked then begin
sum := sum + StrToIntDef(Edit1.Text, 0); {можно StrToFloat, если нужны вещественные числа}
inc(countSum)
end;
if CheckBox2.Checked then begin
sum := sum + StrToIntDef(Edit2.Text, 0); {можно StrToFloat, если нужны вещественные числа}
inc(countSum)
end;
....
if CheckBox4.Checked then begin
sum := sum + StrToIntDef(Edit4.Text, 0); {можно StrToFloat, если нужны вещественные числа}
inc(countSum)
end;
if countSum
then ShowMessage('Ни одно значение не выбрано, считать нечего!')
else ShowMessage(' среднеарифметическое = '+FloatToStr( sum / countSum) );
Похожие статьи
