Вычислить значение выражения - VB (59643)

Узнай цену своей работы

Формулировка задачи:

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

Решение задачи: «Вычислить значение выражения»

textual
Листинг программы
Option Explicit
 
Private Sub Command1_Click() ' "при возникновении события Click на Command1(кнопке), т.е. когда мы на нее нажмем"
                             '  и далее описываем действия которые при этом произойдут:
                             
Dim i As Integer, x As Integer, s As Integer  'объявляем три переменные типа Integer - i,x,s.
 
x = Val(Text1.Text)          ' то, что введено в Textbox, является значением его свойства Text.
                             ' Элемент называется Text1, а свойство Text. Но то что введено не является
                             ' данными типа Integer, поэтому приводим их к числовому типу с помощью Val.
                             '"Значение свойства Text элемента Text1 приводим к числовому типу и присваиваем переменной х."
 
For i = 1 To 9                          'Судя по условию элементов только девять. Значит запускаем for на 9 повторений.
                                           
 s = s + Cos(i * x) / (x ^ (i - 1))     'Сам алгоритм решения. Подставь мысленно или напиши на бумагу значения всех переменных
                                        'пошагово и все поймешь.
 
Next                                    'Выход из for.
 
Label1.Caption = s ' "Значению свойства Caption элемента Label1 присваиваем переменную s."
                   ' В s после цикла сохранилась нусжная нам сумма.
 
End Sub
 
 
'Если в Textbox будет введено не числовое значение будет ошибка.
'Это надо условия всякие писать, но скорее всего запутаешься.
'Разберись с этим для начала.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 4.3 из 5