Вычислить F по формуле:
Решение:
1. Создадим интерфейс программы, показанный на рисунке 2.2.
Рисунок 2.2 – Интерфейс программы
2. Напишем программный код для кнопки Старт:
Private Sub CommandButton1()
Dim x As Double
Dim F As Double
x=TextBox1.Value
Ifx=0 ThenMsgBox “Функция не определена”
If x>0 Then
F=x/2
Else
F=(x+1)/2
End If
TextBox2.Value=F
EndSub
3. Напишем программный код для кнопки Выход:
Private Sub CommandButton2_Click()
Unload Me
EndSub
2.4 Блок-схема программы
Блок-схема программы представлена на рисунке 2.3
Рисунок 2.3 – Блок-схема алгоритма
2.5 Выполнение задания в программеMathCad
Решение задачи программирования условного алгоритма в программе MathCAD показано на рисунке 2.4.
Рисунок 2.4 – Решение задачи в программе MathCAD.
2.6 Задания к выполнению
Задания к выполнению представлены в таблице 2.1
Таблица 2.1 – Задания к выполнению
№ варианта | Вид функции |
Продолжение таблицы 2.1 | |
Продолжение таблицы 2.1 | |
Продолжение таблицы 2.1 | |
Продолжение таблицы 2.1 | |
3 Лабораторная работа № 3