Вычислить значение выражения

@ВитюшаВикедСик · Регистрация: 05.10.2014

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

Помогите пожалуйста с примером, добрые программисты!

$https://www.cyberforum.ru/cgi-bin/latex.cgi?sin(x)*\frac{sin(3x)}{3^3}*\frac{sin(5x)}{5^5}$

Вычисления произвести с точностью Е=10^-5

@ВитюшаВикедСик · 05.10.2014, 18:45 **[ТС]**

Помогите написать программу в Basic

Добавлено через 4 часа 44 минуты
Пацаны сессия горит

Памирыч · 05.10.2014, 19:19

ВитюшаВикедСик, я бы покумекал, но не знаю, как такое решается, вернее, по какому принципу.
Данный раздел не сильно избалован матрицами и особенно всяческими вычислениями, графиками и прочим.

Подсказку дам
Синус вычисляется как

VB.NET

1	Math.Sin(Число)

Умножение в VB - это звездочка.
Деление с округлением - "\"
Деление без округления - "/"

Возведение чисел в степень

VB.NET

1	Math.Pow(3, 2)

Тут 3 возводится в квадрат.

Вот, пожалуй, и все, что вам понадобится. Насчет "с точностью" - возможно имеется в виду цикл с шагом.
Шаг в цикле задает оператор Step

@Qwertiy · 06.10.2014, 12:11

Сообщение от Памирыч

Деление без округления - "/"
Возведение чисел в степень

Надо возводить в отрицательную степень и использовать умножение, если не хочется overflow схлопотать

Сообщение от Памирыч

Насчет "с точностью" - возможно имеется в виду цикл с шагом.
Шаг в цикле задает оператор Step

Нет, имеется в виду цикл While, в котором текущий член (точнее, его модуль) сравнивается с эпсилоном.

Памирыч · 06.10.2014, 12:21

Qwertiy, ну так возьмите да напишите код. Автору темы Ваши примечания не помогут, а мне и подавно - мне не нужно сдавать сессию)

@Qwertiy · 06.10.2014, 12:29

Памирыч, если на каждый такой вопрос писать код, то больше времени ни на что не хватит. Пусть автор либо разбирается в примечаниях, либо ждёт, пока тут появится кто-то, желающий написать код за него. Вот похожая задача, например. А тут даже рекуррентная формула не нужна, просто цикл и вычисление.

SoftIce · 06.10.2014, 13:00

Все равно получается как на VB6

VB.NET

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim n As Integer = 1
        Dim P As Double = 1
        Dim eps As Double = 10 ^ -5
        Dim x As Double = CDbl(Replace(InputBox("x =", "Введите х", 1.5), ".", ","))
        Do
            P *= Math.Sin(n * x) / (n ^ n)
            n += 2
        Loop Until Math.Sin(n * x) / (n ^ n) <= eps
        MsgBox("При х = " & x & " рад. и eps = " & eps & " произведение ряда равно " & P)
    End Sub
End Class

Добавлено через 8 минут
Забыл еще одну функцию добавить, но, я думаю, до ТС-а дойдет.

@ВитюшаВикедСик 0 / 0 / 0 Регистрация: 05.10.2014 Сообщений: 2
		1
	Вычислить значение выражения 05.10.2014, 13:54. Показов 1117. Ответов 6 Метки нет (Все метки) Помогите пожалуйста с примером, добрые программисты! $https://www.cyberforum.ru/cgi-bin/latex.cgi?sin(x)\frac{sin(3x)}{3^3}\frac{sin(5x)}{5^5}$ Вычисления произвести с точностью Е=10^-5 0

@ВитюшаВикедСик 0 / 0 / 0 Регистрация: 05.10.2014 Сообщений: 2
	05.10.2014, 18:45 [ТС]	2
	Помогите написать программу в Basic Добавлено через 4 часа 44 минуты Пацаны сессия горит 0

@Qwertiy 833 / 641 / 101 Регистрация: 20.08.2013 Сообщений: 2,524
	06.10.2014, 12:11	4
	Сообщение от Памирыч Деление без округления - "/" Возведение чисел в степень Надо возводить в отрицательную степень и использовать умножение, если не хочется overflow схлопотать Сообщение от Памирыч Насчет "с точностью" - возможно имеется в виду цикл с шагом. Шаг в цикле задает оператор Step Нет, имеется в виду цикл While, в котором текущий член (точнее, его модуль) сравнивается с эпсилоном. 0

Памирыч Почетный модератор 21400 / 9134 / 1083 Регистрация: 11.04.2010 Сообщений: 11,014
	06.10.2014, 12:21	5
	Qwertiy, ну так возьмите да напишите код. Автору темы Ваши примечания не помогут, а мне и подавно - мне не нужно сдавать сессию) 0

@Qwertiy 833 / 641 / 101 Регистрация: 20.08.2013 Сообщений: 2,524
	06.10.2014, 12:29	6
	Памирыч, если на каждый такой вопрос писать код, то больше времени ни на что не хватит. Пусть автор либо разбирается в примечаниях, либо ждёт, пока тут появится кто-то, желающий написать код за него. Вот похожая задача, например. А тут даже рекуррентная формула не нужна, просто цикл и вычисление. 0

	06.10.2014, 13:00

Вычислить значение выражения

Решение