- •Предисловие
- •Ознакомление со средой windows
- •1.1. Работа с мышкой и окнами
- •1.2. Создание, открытие и сохранение файлов
- •1.3. Операции копирования, перемещения, вставки
- •1.4. Поиск файла
- •1.5. Программы группы «Стандартные»
- •1.6. Содержание заданий
- •2. Текстовый редактор word
- •2.1. Ввод, редактирование и форматирование текста
- •2.2. Таблицы в текстовых документах
- •2.3. Работа с рисунками. Художественное оформление текстов
- •2.4. Математические формулы
- •2.5. Оформление текста
- •2.6. Нумерация страниц, стили, оглавление
- •2.7. Параметры страниц и печать
- •2.8. Содержание заданий
- •1.3. Текст программы
- •1.4. Вычисление суммы
- •Заключение
- •Оглавление
- •3. Приложение microsoft excel
- •3.1. Ввод и редактирование данных
- •3.2. Форматирование таблицы
- •3.3. Вычисления в Excel
- •3.4. Создание диаграмм. Вставка объектов и печать
- •3.5. Содержание заданий
- •Зарплата работников за январь
- •4. Использование vba в среде excel. Линейные программы.
- •4.1. Элементы управления
- •4.2. Среда редактора Visual Basic for Application
- •4.3. Основные конструкции vba
- •4.4. Линейные программы
- •4.5. Содержание заданий
- •5. Циклы в инженерных расчетах
- •5.1. Циклы For...Next
- •5.2. Циклы Do...Loop
- •5.3. Содержание заданий
- •6. Программы с разветвлением. Условные операторы
- •6.1. Строчный и блочный условные операторы
- •6.2. Разветвляющиеся программы со сложными условиями
- •6.3. Содержание заданий
- •7. Вычисление сумм, произведений, экстремумов
- •7.1. Примеры вычисления сумм и произведений
- •7.2. Одномерные массивы. Вычисление экстремумов
- •7.3. Содержание заданий
- •8. Формы пользователя
- •8.1 Свойства и методы элементов управления. Списки
- •8.2. Пример работы с формой пользователя
- •8.3. Содержание заданий
- •9. Приложение mathcad
- •9.1. Ввод информации
- •9.2. Графики
- •9.3. Содержание заданий
- •10. Вычисление интегралов, решение уравнений и систем уравнений
- •10.1. Приближенное вычисление интегралов
- •10.2. Решение уравнений
- •2. Содержание задания
- •10.3. Решение систем линейных уравнений
- •10.4. Содержание заданий
- •11. Компьютерная графика
- •11.1. Виды графических изображений
- •10.2. Инструменты в графическом редакторе Adobe Photoshop
- •10.3. Слои и выделение графических изображений
- •10.4. Обработка изображений, ввод текста
- •10.5. Корректировка и использование фильтров
- •10.6. Примеры использования фильтров
- •10.7. Содержание заданий
- •12. Задания для контрольной работы
- •Задание № 1. Составление программ линейной структуры на языке vba
- •Задание № 2. Программирование алгоритмов циклической и разветвляющей структуры
- •Задание № 3. Вычисление сумм, произведений, нахождение минимумов и максимумов
- •Задание № 4. Вычисление интегралов и решение уравнений
- •Литература
- •Содержание
- •Информатика и компьютерная графика
- •220006. Минск, Свердлова, 13а.
6.2. Разветвляющиеся программы со сложными условиями
Пример 2 программы вычислений значения функции y со сложным условием. Значения n и x вводятся с клавиатуры:
Private Sub CommandButton1_Click()
Dim x As Single, n As Single, y As Single
'Ввод исходных данных
x = Val(InputBox("Введите x "))
n = Val(InputBox("Введите n"))
'Проверка условий и расчет значений
If x >= 0 And n >= 0 Then y = Sqr(x)
If x < 0 And n < 0 Then y = n * x + 2
MsgBox ((“y=” & y) 'Вывод результата
End Sub
Пример 3 программы вычисления значения функции y с вложенным оператором If:
Private Sub CommandButton1_Click()
Dim x As Single, y As Single
x = Val(InputBox("Ввелите x "))
If x<0 Then y =x+5 Else If x<=5 Then y=Sqr(3*x) Else y =x^2
MsgBox (y)
End Sub
Пример 4 (использование блочного оператора If). Вычислить значения y = sin2x, w = ctgx, если х < 5; y = 1–sinx, w = arctgx, если х 5.
x = {9; 0.1; -4; 5; 12}
Private Sub CommandButton1_Click()
Dim x As Single, y As Single, z As Single
Dim w As Single, I As Integer
For i=1 to 5
x = Val(InputBox("Введите значение х"))
'Проверка условий и расчет значений
If x > 5 Then
y = Sin(x)^2
w = cos(x)/sin(x)
Else
y = 1 - Sin(x)
w = Atn(x)
End If
MsgBox (“x=” & x & “ y=” & y & “ w=” & w)
Next
End Sub
Пример 5. Вычислить значение функции n:
, x = 1,7 s = 5,2 значение j задать самостоятельно.
Оформим Лист2 согласно образцу (рис. 6.1). Переименуем «Лист2» в «Условный оператор», вставим расчетные формулы и введем исходные данные.
Рис. 6.1. Образец оформления программы с разветвлением на листе Excel
Для кнопки «Расчет If» напишем следующую процедуру:
Private Sub CommandButton1_Click()
Worksheets("Условный оператор").Range("c2") = "Вычисления с разветвлением" ‘вносит текст в ячейку «С2» листа «Условный оператор»
Dim x As Single, s As Single, v As Single, j As Single
x=Val(InputBox(“Введите значение х”))
s=Val(InputBox(“Введите значение s”))
j = Worksheets("Условный оператор ").Range("i19")
If x * j < 2 * s Then v = Cos(x * j) ^ 2 Else If x * j >= 2 * s And _
x * j <= 3 * s Then v = 2 * Tan(j * x) Else v = 5 - Exp(x / 2)
MsgBox ("Значение v=" & Format(v, "##.####"))
End Sub
Для проверки результата вычисления надо ввести в ячейку D23 формулу:
=ЕСЛИ(D19*I19<2*F19;COS(I19*D19)*COS(I19*D19);ЕСЛИ(И(D19*I19>=2*F19;D19*I19<=3*F19);2*TAN(I19*D19);5-EXP(D19:D19/2)))
Результат вычислений, полученный с помощью формул Excel и процедуры VBA должен совпасть.
6.3. Содержание заданий
Выполнить приведенные выше примеры программ с разветвлением.
Составить программу по условиям, приведенным в табл. 6.1.
Таблица 6.1
№ |
Формула для вычислений |
Исходные данные |
1 | ||
2 | ||
3 | ||
4 | ||
5 | ||
6 | ||
7 | ||
8 | ||
9 | ||
10 | ||
11 | ||
12 | ||
13 | ||
14 | ||
15 |
7. Вычисление сумм, произведений, экстремумов
Рассмотрим примеры, демонстрирующие возможности использования в программах операторов цикла и условных операторов.