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

Задача 4.

Задание 1 | Задача 1.1 | Задача 1.2 | Задача 1.4. | Задача 1.5. | Задача 1.6. | Задача 1.7. | Задание 2 | Задача 1. | Задача 2. |


Читайте также:
  1. VI. Общая задача чистого разума
  2. XV. СВЕРХЗАДАЧА. СКВОЗНОЕ ДЕЙСТВИЕ
  3. Возможно выделение определенных этапов развития семьи по соответствующим им задачам.
  4. Главная задача химии и основные этапы ее развития
  5. ДОКЛАД О ЗАДАЧАХ КРАСНОАРМЕЙСКИХ ДРАМКРУЖКОВ 13 января 1924 года
  6. Другие команды — и та же боевая задача
  7. Его задача — превращение индивидуальных знаний, опыта, навыков в доступные всем сотрудникам компании технологии реализации.

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

 

 

Блок – схема.

 

 

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

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-09-05; просмотров: 40 | Нарушение авторских прав


<== предыдущая страница | следующая страница ==>
Задача 3.| Задача 5.

mybiblioteka.su - 2015-2024 год. (0.006 сек.)