Вычислить значение выражения - 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 будет введено не числовое значение будет ошибка. 'Это надо условия всякие писать, но скорее всего запутаешься. 'Разберись с этим для начала.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д