Пожалуйста, ответьте на несколько вопросов:
1) На форме имеется поле Memo. При запуске программы слово "Memo1" отображается в поле. Как его убрать???
2) Имеются функции, вычисляющие среднее арифметическое и среднее геометрическое:
Код:
function SrArifm:Real;
begin
Result:=(StrToInt(Form1.MaskEdit1.Text)+StrToInt(Form1.MaskEdit2.Text))/2
end;
function SrGeom:Real;
begin
Result:=Sqrt(StrToInt(Form1.MaskEdit1.Text)*StrToInt(Form1.MaskEdit2.Text))
end;
При выводе ответа на поле Memo, среднее арифметическое получается дробное число с 12-ю знаками после запятой и ответ неправильный. Как это исправить???
Пожалуйста, помогите. Заранее благодарен)))