Версия для печати темы Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [VB6] Вычислить прогрессию

Автор: dasha96 13.9.2014, 12:56

Привет ребята:* Учусь на менеджменте, в компьютерах вообще никогда не разбиралась( а тут началось программирование на VB 6.0., очень уж сложно дается, помогите кто чем может если не трудно 1.Вычислить s = cos x + (cos 2x)/x + (cos 3x)/x^2+ ... + (cos 9x)/x^8. Если кто вдруг поможет сделайте пояснительные записки чтоб хоть как то разобралась

Автор: Akina 14.9.2014, 19:56

Для домашних заданий, курсовых, существует "Центр Помощи". Тема перенесена!

Автор: kapbepucm 13.10.2014, 10:09

Код Public Sub Test()   Dim x As Double   Dim s As Double   Dim I As Integer   s = 0   x = InputBox("x=?")   For I = 0 To 8 Step 1     s = s + (Cos((I + 1) * x)) / (x ^ I)   Next I   MsgBox "s=" & CStr(s) End Sub

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)