Последние записи

made in programmersforum 4

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

17th
Июл

Найти среднее арифметическое целых чисел, которые вписаны в несколько полей edit

Posted by Chas under Delphi

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

Serge_Bliznykov
тогда уже так:

Cnt := 0;

 Summ :=0 ;

for i :=0 to Components.Count-1 do

 if Components is TEdit then begin

      Summ:=Summ+StrToIntDef(TEdit(Components).Text,0);

      Inc(Cnt);

 end;

 if Cnt<>0 then

   Memo.Lines.Append(format('%10.1f',[Summ/Cnt]));

использовать перебор ВСЕХ компонентов Edit на форме нужно понимая, все тебе нужны или нет. Если задача стоит найти среднее ВСЕХ Edit’ов на форме

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