Question

Даны два числа. Найти среднее арифметическое их квадратов и среднее арифметическое их модулей.

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var a,b: real;
ssqr, smod: real;
begin 
a:= StrToFloat(edit1.text);  b:= StrToFloat(edit2.text);
ssqr:= ((a*a) + (b*b))/2; 
smod:= (abs(a) + abs(b))/2;
label1.Caption:= FloatToStr(ssqr); 
label2.Caption:= FloatToStr(smod);
end;

PS: Перед компилированием добавьте на форму следующие компоненты: 2 edit, 2 label, 1 button