Студопедия Главная Случайная страница Обратная связь

Разделы: Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

Задача 4. Вычислить произведение положительных значений функции и значение по формуле:




Вычислить произведение положительных значений функции и значение по формуле:

 

 

Блок – схема.

 

 

Добавить необходимые элементы управления (см. рисунок).

CommandButton1
TextBox2
Label3
Label2
Label1
TextBox1
ListtBox1

Событийная процедура кнопки Вычислить.

 

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







Дата добавления: 2015-08-12; просмотров: 240. Нарушение авторских прав


Рекомендуемые страницы:


Studopedia.info - Студопедия - 2014-2020 год . (0.001 сек.) русская версия | украинская версия