Итерационные циклы

@Percy · Регистрация: 09.04.2018

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

Помогите решить задачу. Рассчитать значения функции:
$https://www.cyberforum.ru/cgi-bin/latex.cgi?Y = \frac{14.25\sqrt[3]{\left|{8x}^{2}\right|+\frac{\pi }{2}}}{atan({x}^{2-{e}^{sin({x}^{2})}})}$
При изменении аргумента от -1 с шагом ∆= 0,25 до достижения условия Y>100. Найти среднеарифметическое отрицательных значений.

@ZX Spectrum-128 · 10.04.2018, 17:50

Percy, нужно проверить формулу. От -1 вообще выбивает NaN. Подсчет идет с +1 и отрицательных значений y вообще нет.

Pascal

var
  x, y, s: real;
  i, k: integer;
 
begin
  x := -1;
  i := 1;
  repeat
    y := (14.25 * power(abs(8 * x * x) + pi / 2, 1 / 3)) / (arctan(power(x, 2 - exp(sin(sqr(x))))));
    writeln(x:8:3, y:8:3);
    x := x + 0.25;
    if y < 0 then
    begin
      s := s + y;
      inc(i);
    end;
  until y > 100;
  k := i - 1;
  writeln;
  writeln('Average: ', s / k);
end.

@Percy 0 / 0 / 0 Регистрация: 09.04.2018 Сообщений: 11
		1
	Итерационные циклы 09.04.2018, 20:02. Показов 1722. Ответов 1 Метки нет (Все метки) Помогите решить задачу. Рассчитать значения функции: $https://www.cyberforum.ru/cgi-bin/latex.cgi?Y = \frac{14.25\sqrt[3]{\left\|{8x}^{2}\right\|+\frac{\pi }{2}}}{atan({x}^{2-{e}^{sin({x}^{2})}})}$ При изменении аргумента от -1 с шагом ∆= 0,25 до достижения условия Y>100. Найти среднеарифметическое отрицательных значений. 0

	10.04.2018, 17:50

Итерационные циклы

Решение