Составить программу вычисления среднего арифметического отрицательных значений и среднего геометрического положительных значений функции

@Malavit · Регистрация: 06.06.2013

Студворк — интернет-сервис помощи студентам

Составить программу вычисления среднего арифметического отрицательных значений и среднего геометрического положительных значений функции $https://www.cyberforum.ru/cgi-bin/latex.cgi?Z=\frac{x*y}{{x}^{2}+{y}^{2}}$ если $https://www.cyberforum.ru/cgi-bin/latex.cgi?-5\leq y\leq 5$ , h=2; х принимает 8 произвольных значений, задаваемых вводом.

@Joker_vad · 28.06.2013, 14:59

Pascal

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.

Сбоит когда оба х и у выпадают в нули. Можно переделать на ручной ввод)

@Malavit · 28.06.2013, 15:16 **[ТС]**

спасибо огромное за помощь!!!

@Malavit 0 / 0 / 0 Регистрация: 06.06.2013 Сообщений: 11
		1
	Составить программу вычисления среднего арифметического отрицательных значений и среднего геометрического положительных значений функции 28.06.2013, 10:02. Показов 4564. Ответов 2 Метки нет (Все метки) Составить программу вычисления среднего арифметического отрицательных значений и среднего геометрического положительных значений функции $https://www.cyberforum.ru/cgi-bin/latex.cgi?Z=\frac{x*y}{{x}^{2}+{y}^{2}}$ если $https://www.cyberforum.ru/cgi-bin/latex.cgi?-5\leq y\leq 5$ , h=2; х принимает 8 произвольных значений, задаваемых вводом. 0

@Malavit 0 / 0 / 0 Регистрация: 06.06.2013 Сообщений: 11
	28.06.2013, 15:16 [ТС]	3
	спасибо огромное за помощь!!! 0

Опции темы

Составить программу вычисления среднего арифметического отрицательных значений и среднего геометрического положительных значений функции

Решение