Задача 4. Вычислить произведение положительных значений функции и значение по формуле:
Вычислить произведение положительных значений функции
Блок – схема.
Добавить необходимые элементы управления (см. рисунок).
 
 
 
Событийная процедура кнопки Вычислить.
Private Sub CommandButton1_Click() Dim x, y, r,p As Single ListBox1.Clear s1 = 0: s2 = 0: p = 1 For x=2 To 6 Step 0.5 If x > 3 Then y = Log(x)/Log(2) Else y = - 3 * Sin(x) End If ListBox1.AddItem (Format(y,”0.0000”)) ‘ Вычисление произведения положительных значений функции y If y > 0 Then p = p * y ‘ Вычисление сумм s1 = s1 + x^2 s2 = s2 + x * y Next x r = s1 / s2 TextBox1.Text = Format(p,”0.00”) TextBox2.Text = Format(r,”0.00”) End Sub
|
и значение 
по формуле:
