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

+ 0 -

Oyar41

12 июня 2016 г., 13:39:43 (7 лет назад)

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

+ 0 -

солпик

12 июня 2016 г., 16:18:16 (7 лет назад)

паскаль авс?

+ 0 -

Rerika86

12 июня 2016 г., 17:50:50 (7 лет назад)

delphi 7