1.3.5 Графическая иллюстрация решения
В результате выполнения программы возможно построить графики уравнений и отметить на нем введенные точки, координаты которых находятся соответственно в поле вывода координат (см. 1.3.4) и поле ввода координат точек (см. 1.3.2.). Они строятся на поле, занимающем ячейки F34 –N51. Графики позволяют пользователь оценить расположение введенных им точек в соответствии с областьюDи оценить правильность ввода. В рассматриваемом примере графики результата выглядят так:
1.3.6 Визуализация.
В вопросе оформления решения задачи в первую очередь принимались принципы создания максимального удобства в использовании и, как следствие, нивелирования эстетического неприятия.
Для этого все поля выделены цветом и обведены в рамки. Кроме того, заголовки выделены жирным шрифтом другого цвета.
Касательно взаимного расположения полей, предприняты следующие шаги: поля по возможности сведены вместе, а кнопка «Вычислить» находится в непосредственной близости от графика и поля вывода наилучших коэффициентов, что позволяет пользователю сразу после запуска программы узнать результаты вычисления и увидеть вычисленный результат в графическом отображении. Для исследуемого примера вид экрана результата представлен на следующей странице.
Выводы.
С помощью средств ExcelиVisualBasicреализовано решение задачи по поиску наилучших с точки зрения попадания вводимых точек коэффициентов уравнений, кроме того, это решение проиллюстрировано графически.
1.5 Примечания.
1.5.1 Текст программы, связанной с кнопкой «Вычислить»
Private Sub CommandButton1_Click()
S = 0
For I = 2 To 5
For J = 2 To 5
d = 0
For N = 2 To 21
X = Sheets("Лист1").Cells(N, 2).Value
Y = Sheets("Лист1").Cells(N, 3).Value
If (Y * Y <= I * X / 2) And (Y >= X * X - X + 0.1) And (Y >= J * Exp(X) / 10) Then
d = d + 1
End If
Next N
If d > S Then
S = d
K1 = I / 2
K3 = J / 10
End If
Next J
Next I
Sheets("Лист1").Cells(32, 6).Value = K1
Sheets("Лист1").Cells(32, 7).Value = K3
For I = 1 To 200
Sheets("Лист1").Cells(I + 25, 1).Value = (I - 1) / 50
Next I
For I = 1 To 200
X = (I - 1) / 50
Y = (X * K1) ^ (0.5)
Sheets("Лист1").Cells(I + 25, 2).Value = Y
Y = X * X - X + 0.1
Sheets("Лист1").Cells(I + 25, 3).Value = Y
Y = K3 * Exp(X)
Sheets("Лист1").Cells(I + 25, 4).Value = Y
Next I
End Sub
Часть 2. База данных.
2.1 Формулировка задания.
Требуется создать базу данных (БД) для завуча школы. Она должна включать сведения о расписании, учителях и их предметах, учениках, их успеваемости, и т.п.
Завучу могут понадобиться следующие сведения:
- Какой урок проходит в заданном классе в заданный день на заданном уроке.
- Какие учителя преподают в заданном классе.
- В каком кабинете проходит заданный урок в заданном классе в заданный день.
- Какие классы ведет заданный учитель.
- Составить расписание для класса на заданный день
Кроме того, необходимо предусмотреть выдачу следующих справок:
- О количестве учеников в классе.
- О количестве учителем по каждому из предметов.
- О количестве кабинетов в школе.
- О количестве учащихся на «2», «4-5» и «5» по классам и по школе.
При выполнении следует учитывать, что количество учителей, учеников, оценки учеников и номера кабинетов в которых проходят уроки могут меняться.