Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 09.06.2020 08:47
- Информатика
- remove_red_eye 579
- thumb_up 9
Ответы и объяснения 1
Ответ:
На Паскале:
uses crt; var f,s,sr:real;
x,y,i:integer;
begin
randomize;
s:=1; sr:=1;
for i:=1 to 8 do begin
x:=random(2)-1;
y:=random(10)-5;
f:=(x*y)/(sqr(x)+sqr(y))+2;
Writeln('При=',x,' и y=',y,', F=',f:7:2);
if f>0 then s:=s*f
else sr:=sr+f;
end;
Writeln('Среднее арифметическое=',(sr/8):7:2);
writeln('Среднее геометрическое =', Exp((1/8)*ln(s)):10:8);
readln;
end.
На VB (но при вводе 3 действительных чисел)
---------------------
Sub l()
Dim A, B, C As Integer
A = InputBox("Введите число")
B = InputBox("Введите число")
C = InputBox("Введите число")
sred = (A + B+C) / 3 geom = (A * B*С)^(1/3)
MsgBox "Среднее арифметическое=" & sred
MsgBox "Среднее геометрическое=" & geom
End Sub
- 09.06.2020 12:05
- thumb_up 2
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.