Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
0 / 0 / 0
Регистрация: 05.12.2010
Сообщений: 7
1

Цикл с параметром S=Sin(x)+2/4+3/5+4/6+..

07.12.2011, 08:10. Показов 1269. Ответов 8
Метки нет (Все метки)

Цикл с параметром
S=Sin(x)+2/4+3/5+4/6+...... Всего десять членов! Ответ должен получиться 6,96

Цикл с условием
S=2+x+2/x^2+3/x^3+......... с точностью E=10^-3
WHILE условие!


Помогите пожалуйсто а то зачет немогу получить(((
Заранее огромное спасибо
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.12.2011, 08:10
Ответы с готовыми решениями:

Цикл: Написать программу для вычисления значения выражения: (1+sin 0.1)*(1+sin 0.2)*……*(1+sin 10)
дана задача: Написать программу для вычисления значения выражения: (1+sin 0.1)*(1+sin...

Цикл: Вычислить значение контрольной суммы sin(x)/1 + sin(2x)/2 + ... + sin(n*x)/n...
Задача вычислить значение контрольной суммы sin(x)/1 + sin(2x)/2 + ... + sin(n*x)/n Код получился...

Цикл с предусловием и постусловием. Вычислить: sin(x)+sin(x)^2+...sin(x)^n
что в ней не так,ребят помогите Даны натуральное число n и вещественная число x....

Цикл: Вычислить sin x + sin x в квадрате + ...sin x в степени n.
Даны действительное х и натуральное n. Вычислить: sin x + sin x в квадрате + ...sin x в степени n.

8
13 / 13 / 0
Регистрация: 18.11.2011
Сообщений: 44
07.12.2011, 09:39 2
В первом случае чему равен икс?
0
Эксперт Hardware
2681 / 1859 / 317
Регистрация: 25.10.2011
Сообщений: 5,429
07.12.2011, 09:53 3
Visual Basic
1
2
3
4
s = Sin(x)
For i = 2 To 10
    s = s + i / (i + 2)
Next
Visual Basic
1
2
3
4
5
6
7
8
Const e = 0.001
s = 2 + x
i = 2
Do
    t = i / x ^ i
    s = s + t
    i = i + 1
Loop While t > e
Учти, во второй задаче цикл будет сходящимся при условии x>1

auts
x = пи/6, если понимать "Всего десять членов!", что 10 включая sin(x)
1
13 / 13 / 0
Регистрация: 18.11.2011
Сообщений: 44
07.12.2011, 09:53 4
Visual Basic
1
2
3
4
5
6
7
8
Private Sub Command1_Click()
x = 0 'не знаю чему равен икс, если это надо решить уравнение, то тебе в маткад =)
s = Sin(x)
For i = 1 To 10
    s = s + (i + 1) / (i + 3)
Next i
Print s 'сумма ряда s=7.306 - тебе надо решить уравнение вида sin(x)=6.96-7.306?
End Sub
1
Эксперт Hardware
2681 / 1859 / 317
Регистрация: 25.10.2011
Сообщений: 5,429
07.12.2011, 10:21 5
Зачем маткад?
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
res = 6.96
x = ASin(res - s)
 
'-------------------------------------------
Function ASin(x As Double) As Double
If Abs(x) = 1 Then
    ASin = 3.14159265358979 / 2 * Sgn(x)
ElseIf Abs(x) < 1 Then
    ASin = Atn(x / (1 - x ^ 2) ^ 0.5)
End If
End Function
1
13 / 13 / 0
Регистрация: 18.11.2011
Сообщений: 44
07.12.2011, 10:36 6
Объясните пожалуйста чуток поподробней.
я так понял, что встроенный набор функций в ВБ6 ограничен, и пришлось создавать собственную функцию арксинуса?
разве нету встроенной константы пи?
нету оператора перевода расчета тригонометрических функций из рад в градусы? или константы как в маткаде - "deg"?
не понял условие - если икс равен 1 или -1, для чего это?
Sgn(x) и Atn(x) - это встроенные функции? или что? и что они означают?
0
Эксперт Hardware
2681 / 1859 / 317
Регистрация: 25.10.2011
Сообщений: 5,429
07.12.2011, 10:49 7
Встроенной функции asin и acos нет, есть только atan. Сама функция - простая математика.
Пи в vb6 нет. Функции перевода градусы-радианты так же не встречал (grad = 180/pi*rad)
Если x = 1 (или -1) будет ошибка - деление на ноль, поэтому прописываем данные значения отдельно.
Sgn(x) - возвращает знак числа, Atn(x) - возвращает арктангенс числа в радианах, смотрим Краткие описания основных функций
1
13 / 13 / 0
Регистрация: 18.11.2011
Сообщений: 44
07.12.2011, 10:51 8
Спасибо!
0
0 / 0 / 0
Регистрация: 05.12.2010
Сообщений: 7
07.12.2011, 13:06  [ТС] 9
Ну вроде я понял немного спс!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.12.2011, 13:06

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Создать программу по всем 3 видам циклов...цикл с параметром,цикл с условием,цикл,и цикл с предусловием...
Найти сумму чисел 1 в квадрате до 10 c квадрате...операцию возведению в степень не использовать...

Для заданного числа x распечатать числовую последовательность: sin(x), sin(sin(x), sin(sin(sin(x), …
var x,z:integer; y:real; begin readln(x); y:=abs(sin(x)); while y&gt;0.01 do begin ...

Цикл: Вычислить y= sin x+ sin х^2 + ... + sin x ^ n
Дано натуральное число n и вещественное число х. Вычислить y= sin x+sin х в квадрате+...+sin x в n...

Вычислить у - первое из чисел sin х, sin sin x, sin sin sin x, ., меньшее по модулю 10-4
Вычислить у - первое из чисел sin х, sin sin x, sin sin sin x, ..., меньшее по модулю 10-4 Видел...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.