[Andrew1266]

Пожалуйста, ответьте на несколько вопросов:

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-ю знаками после запятой и ответ неправильный. Как это исправить???

Пожалуйста, помогите. Заранее благодарен)))