Цитата:
|
Сообщение от Andrew1266
среднее арифметическое получается дробное число с 12-ю знаками после запятой. Как это исправить???
|
А надо как? Если вообще без дробной части, то:
Код:
procedure count;
begin
if Form1.RadioGroup1.ItemIndex=0
then Form1.Memo1.Lines.Append(IntToStr(Round(SrArifm)))
else Form1.Memo1.Lines.Append(IntToStr(Round(SrGeom)))
end;