Лабораторная работа № 23. Программирование разветвляющихся вычислительных процессов
Цель работы: освоение приемов программирования разветвляющихся вычислительных процессов.
Для реализации алгоритмов разветвляющейся структуры в программе используется оператор условного перехода, который может иметь следующий синтаксис:
1) If условие Then оператор1 Else оператор2
Оператор1 выполняется, если условие истинно, в противном случае выполняется оператор2.
2) If условие
Then
блок операторов 1
Else
блок операторов 2
End if
Блок операторов 1 выполняется, если условие истинно, в противном случае выполняется блок операторов 2.
Задача 1. Составить программу для решения квадратного уравнения вида ах2+bх+с=0. Для решения выполнить следующее:
Переименовать текущий рабочий лист Excel в Решение уравнения.
На листе Решение уравнения создать таблицу:
На листе Модуль ввести текст программы, используя Редактор Visual Basic (блок-схема решения задачи представлена на стр.48). Ввод исходных данных осуществлять с клавиатуры. Окно ввода данных должно содержать заголовок «Исходные данные». Вывод результатов осуществлять в окнах сообщений. В начале программы поставить оператор описания переменных:
DIM a,b,c,x,x1,x2 As Single
Скопировать текст программы. В копии программы изменить имя. Изменить текст программы таким образом, чтобы исходные данные брались из соответствующих ячеек с листа Решение уравнения, а результаты помещались в следующие ячейки на лист Решение уравнения:
С5 |
С6 |
D6 |
C7 |
D7 |
Уравнение не имеет действительных корней или Уравнение имеет один корень или Уравнение имеет два корня |
«x=»
«x1=» |
Значение х
Значение х1 |
«х2=» |
Значение х2 |
Для очистки блока ячеек C5:D7 в соответствующем месте программы вставить оператор:
Worksheets(“Решение уравнения”).Range(“C5:D7”).Clear
Используя обе программы решить квадратные уравнения:
5х2+2х-6=0
3х2-9х+2=0
2х2-0,4х-4=0
Задача 2. Составить программу, реализующую гороскоп на ближайшие дни. В результате работы программы на экране должно появляться окно ввода с заголовком «Гороскоп на ближайшие дни», содержащее сообщение «Введите дату своего рождения» и поле ввода, куда пользователь будет вводить дату своего рождения. В программе введенная дата должна анализироваться, определяться какому знаку Зодиака она соответствует, и выдаваться резюме в окне сообщения (например, «Вы – Овен. Завтра Вас ожидает крупное денежное вознаграждение»).
При написании программы использовать следующее:
Переменная типа Date используется для хранения информации о дате и времени (диапазон значений: от 1 января 100 г. до 31 декабря 9999 г.). Указать в операторе объявления переменных Dim.
Функция преобразования типов Cdate(выражение) – преобразует числовое или текстовое значение в дату.
Функции даты и времени:
Day(Дата) – возвращает число от 1 до 31, соответствующее числу месяца в аргументе Дата.
Month(Дата) - возвращает число от 1 до 12, соответствующее номеру месяца в аргументе Дата.