1 / 1 / 0
Регистрация: 28.04.2016
Сообщений: 23
1

Цикл: найти среднее арифметическое вычисленных значений функции

06.09.2016, 13:29. Показов 1301. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Найти среднее арифметическое вычисленных значений функции, абсолютное значение которых <3.
y=10e^-0.5n * (1-sin(2Пn+45))
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.09.2016, 13:29
Ответы с готовыми решениями:

Найти сумму вычисленных значений функции, имеющих дробную часть
2 задача:y=e^-2x*Cos^2*(2Пx-30градусов).Найти сумму вычисленных значений функции,имющих дробную...

Найти среднее арифметическое положительных значений функции и произведение значений, превышающих a
Для x принадлежит Δx=0.5 найти среднее арифметическое ее положительных значений и произведение...

Найти среднее арифметическое положительных значений функции f(x)
Составить программу расчета таблицы значений функции f(x) на интервале a&lt;=x&lt;=b в n равностоящих...

Найти среднее арифметическое отрицательных значений функции на отрезке
6. Найти среднее арифметическое отрицательных значений функции Y=2 - X2 + 3*Х на отрезке , вычисляя...

1
Модератор
9599 / 4922 / 3247
Регистрация: 17.08.2012
Сообщений: 15,366
06.09.2016, 20:06 2
Лучший ответ Сообщение было отмечено Bleach7x7 как решение

Решение

Вы не указали диапазон изменения n. Для простоты буду считать, что n - целое, и шаг его изменения равен 1. Начальное и конечное значение задам константой.
Цитата Сообщение от Bleach7x7 Посмотреть сообщение
абсолютное значение которых <3.
Какое смешное условие. Данная функция неотрицательна на всём диапазоне действительных чисел, поэтому модуль функции вычислять смысла не имеет. В программе, однако, формально укажу вычисление модуля, вдруг функция поменяется, либо я её не так понял.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
const n1 = -10;
      n2 = 10;
var n, k: integer;
    y, s: real;
begin
  k := 0;
  s := 0;
  for n := n1 to n2 do
    begin
      y := 10 * exp(n / 2) * (1 - sin(2 * pi * n + pi / 4));
      writeln('y(', n, ') = ', y:0:10);
      if abs(y) < 3
        then begin
          inc(k);
          s := s + y
        end
    end;
  if k = 0
    then writeln('Нет значений функции, модуль которых меньше 3')
    else writeln('Среднее арифметическое значений функции, модуль которых меньше 3: ', s / k:0:10);
  readln
end.
Скорее всего, данная программа средствами PascalABC.NET может быть записана в одну строку.

Не по теме:

Формулу неплохо было бы написать либо в редакторе формул:

https://www.cyberforum.ru/cgi-bin/latex.cgi?<br />
y={10e}^{-0.5n}\left( 1-\sin \left(2\pi n+45^{\circ}  \right)\right)<br />

либо, на худой конец, использовать BB-коды для форматирования текста:

y=10e-0.5n(1-sin(2πn+45o))

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.09.2016, 20:06
Помогаю со студенческими работами здесь

Найти сумму вычисленных значений функции
1.F(x)=(cos4*3.14*x)/1 +x*x Найти сумму вычисленных значений функции f(x), дробная часть которых &gt;...

Найти сумму вычисленных значений функции
Найти сумму вычисленных значений функции f(x). Задание: 1. Из таблицы выбрать вариант задания....

Найти произведение вычисленных значений функции
Найти произведение вычисленных значений функции,целая часть которых кратна 2 y=9e^-0,5x *...

Найти для каждого a среднее арифметическое отрицательных значений функции
Дана функция y = f(x, a). Найти для каждого a.среднее арифметическое отрицательных значений функции...

Найти среднее арифметическое отрицательных значений функции для каждого а
дана функция y=f(x,a) .Найти среднее арифметическое отрицательных значений функции для каждого а ....

Среди вычисленных значений функции найти наибольшее и наименьшее значения
Не знаю как ввести большее или меньшее в задачу • среди вычисленных значений функции найти...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru