Найти сумму ряда - VB (62658)
Формулировка задачи:
помогите решить в Basice у = cos(x^1 )+ cos(x^2) + cos(x^3) +…+cos(x^30)
Решение задачи: «Найти сумму ряда»
textual
Листинг программы
Sub m_1() Dim i As Integer Dim vСумма As Single Dim x As Single x = 2 For i = 1 To 30 vСумма = vСумма + Cos(x ^ i) Next i Debug.Print vСумма End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д