3.2. Практическое задание №2. Линейное программирование

Задание.

Найти значение функции: при любом заданном х

Прежде чем выполнить это задание познакомимся с основами алгоритмизации и построения блок схем.

Алгоритм, составленный для некоторого исполнителя, можно представить раз­личными способами: с помощью графического или словесного описания, в виде таблицы, последовательностью формул, записанным на алгоритмическом языке (языке программирования). Остановимся на графическом описании алгоритма, называемом блок-схемой. Этот способ имеет ряд преимуществ благодаря наглядно­сти, обеспечивающей, в частности, высокую «читаемость» алгоритма и явное отображение управления в нем.

Прежде всего определим понятие блок-схемы. Блок-схема - это ориентирован­ный граф, указывающий порядок исполнения команд алгоритма.

Основные элементы языка блок-схем

Элемент	Описание
	Начало или конец алгоритма
	Выполнение операций, изменяющих команды (группы команд)
	Ввод - вывод данных
	Условный переход

Для нашей задачи мы составляем следующий алгоритм:

• Откройте приложение MS Excel.

• Выполните команду СервисàМакросРедактор Visual Basic или нажмите <Alt+F11>.

• Добавьте форму (команда Insert UserForm)

• Для изменения размеров формы используйте указатель мыши помещённый в правый нижний угол окна Формы(UserForm)

• Разработайте пользовательский интерфейс, расположив на форме с помощью панели инструментов управления (ViewToolBox), следующие объекты управления: Label (Метка), TextBox (Текстовое поле), CommandButton (Командная кнопка).

• В окне Properties (Свойства) для каждого объекта управления установить свойства, приведённые в таблице 1.

Таблица 1.

Элемент управления	Свойства	Значения
UserForm	Caption	Линейное программирование
Label1	Caption	Вычисление значения функции y=sin5x+cos3x
Label2	Caption	X=
Label3	Caption	Y=
TextBox1	Name	txtArgument
TextBox2	Name	txtFunction
CommadButton1	Name	cmdRun
	Caption	Вычисление
CommadButton2	Name	cmdClear
	Caption	Очистка

• Для перехода в окно программирования нажмите правую кнопку мыши на объекте CommandButton и в появившимся контекстом меню выбрать команду View Code

• Между строками «Private Sub cmdRun_Click()» и «End Sub» введите следующий код программы:

Dim Х As Single

Dim Y As Single

Х=Val(txtArgument.Text)

Y = Sin(5 * x) + Cos(3 * x)

txtFunction.Text = Str(Y)

• Примерный интерфейс программы и контрольные значения:

• Для очистки текстовых полей формы между строками «Private Sub cmdClear_Click()» и «End Sub» введите следующий код программы:

txtArgument.Text = ""

txtFunction.Text = ""

• Напишите программу, которая бы вычисляла значение функции

• Создайте в сетевой папке вашей группы свою папку под вашей фамилией и сохраните файл под именем «Функция»