Произвольной функции

Позволяющей автоматизировать построение графика

Пример разработки информационной технологии,

1. Формализация задачи.

1.1. Словесное описание задачи.

Разработать информационную технологию, позволяющую автоматизировать построение графика функции, если заданы начальное значение аргумента функции, конечное значение аргумента функции, шаг изменения аргумента функции и выражение, соответствующее вычисляемым значениям функции.

1.2. Входные данные:

- начальное значение аргумента функции х0;

- конечное значение аргумента функции xk;

- шаг изменения аргумента функции dx.

1.3. Выходные данные:

график функции, построенный средствами VBA.

1.4. Математическая модель задачи

Пусть требуется построить график функции

при изменении x0 ≤ x ≤ хk, с шагом dx.

3. Схема алгоритма

4. Код приложения

Private Sub CommandButton1_Click()

Dim x0 As Single, xk As Single, dx As Single

Dim i As Integer, n As Integer

x0 = InputBox("Введите начальное значение параметра цикла")

xk = InputBox("Введите конечное значение параметра цикла")

dx = InputBox("Введите шаг изменения параметра цикла")

n = (xk - x0) / dx + 1

x = x0

Range("A1").Value = "График функции"

Range("A2").Value = "х": Range("B2").Value = "у"

Range("A2:B2").HorizontalAlignment = xlCenter

For i = 1 To n

Cells(i + 2,1).Value = x

If x >= 0 Then

Range("A2").Offset(i, 1).Value = Sin(x)

Else

Range("A2").Offset(i, 1).Value = Cos(x)

End If

x = x + dx

Next

End Sub

В коде приложения выполняется заполнение столбца А значениями аргумента, а столбца В значениями функции. Для построения графика функции используется отредактированный макрос, запись которого была показана в пункте 8.2.

Sub Макрос1()

Range("B3:B19").Select

Charts.Add

ActiveChart.ChartType = xlLine

ActiveChart.SetSourceData Source:=Sheets("Лист1").Range ("B3:B19"), PlotBy:=xlColumns

ActiveChart.SeriesCollection(1).XValues = "=Лист1!R3C1:R19C1"

ActiveChart.SeriesCollection(1).Name = "=Лист1!R2C2"

ActiveChart.Location Where:=xlLocationAsObject, Name:="Лист1"

With ActiveChart

.HasTitle = True

.ChartTitle.Characters.Text = "График функции Y"

.Axes(xlCategory, xlPrimary).HasTitle = False

.Axes(xlValue, xlPrimary).HasTitle = False

End With

End Sub

9. Пример разработки информационной технологии

на языке программирования

Visual Basic for Application

Разработать информационную технологию, позволяющую вычислять заработную плату сотрудников бюджетного учреждения, согласно математическим зависимостям, приведенным в примере на стр. 18.

Кроме вычисления заработной платы, информационная технология должна автоматически выполнять следующие функции:

- заполнять список, содержащий данные о сотрудниках, с помощью стандартной или пользовательской формы;

- вычислять показатели Начислено, Налог, К выдаче;

- вычислять итоговые данные по показателям Начислено, Налог, К выдаче;

- подсчитывать количество сотрудников, занимающих должность, задаваемую вводом;

- выводить данные о сотруднике, имеющем минимальный доход;

- осуществлять поиск данных о сотруднике по его фамилии, задаваемой вводом;

- осуществлять упорядочение списка в алфавитном порядке;

- составлять список многодетных семей с выделением цветом данных об этих семьях в основном списке.

Каждой из перечисленных функций на электронном поле Excel должна соответствовать командная кнопка с соответствующей надписью, щелчком по которой левой кнопкой мыши будет выполняться одна из перечисленных функций (код приложения, автоматизирующий выполнение функции).

Дата добавления: 2014-12-27