Предмет: Информатика,
автор: viktoriaaaaaaa
Даны два числа. Найти среднее арифметическое их квадратов и среднее арифметическое их модулей.
Ответы
Автор ответа:
0
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
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
Похожие вопросы
Предмет: Русский язык,
автор: narkotk828
Предмет: Английский язык,
автор: Аноним
Предмет: Қазақ тiлi,
автор: plodik123
Предмет: Литература,
автор: Аноним
Предмет: Алгебра,
автор: НастасьяЮрьевна