Примеры составления программ
Линейный алгоритм.
Задача.
Вычислить
, при заданных
Составляем схему алгоритма (рис.3.1.).
Рис.3.1. Схема алгоритма примера 3.1.
Составляем таблицу соответствия переменных.
В схеме
В программе
Тип
Комментарий
F
Single
Результат
L
Single
Исходные данные
B
Single
Исходные данные
Составляем текст программы.
Sub Лин_Пример()
'Составил студент группы ЗО-11с Иванов И.И.
Dim L As Single, B As Single, F As Single
L=InputBox ("Введи L", "Ввод")
B=InputBox ("Введи B", "Ввод")
F=Sqr(L)+B^2
MsgBox "При L=" & L & " B=" & B & Chr(13) & " F=" & F
End Sub
Готовим тесты для проверки правильности работы программы.
Для него подбираем такие числовые значения исходных данных, для которых результат легко просчитывается устным счетом или с помощью микрокалькулятора.
|
|
|
9 |
8 |
67 |
1,44 |
0,3 |
1,29 |
Результаты тестирования представлены в следующих окнах:
Они доказывают правильность работы программы, так как совпадают с результатами, полученными "ручным" счетом.
Разветвляющийся алгоритм.
Задача. Составить программу для расчета функции
Кроме значения F нужно выводить и № рабочей формулы.
Результаты нужно выводить в ячейки рабочего листа, оформив их в виде следующей таблицы (в ней сразу же приводится полный набор тестов; для этого взято по одной точке из каждого отрезка и точки, в которых меняется формула).
№ теста |
x |
F |
№ формулы |
1 |
-2 |
4 |
2 |
2 |
0 |
0 |
2 |
3 |
100 |
4 |
1 |
4 |
1000 |
9 |
1 |
5 |
8000 |
20 |
3 |
Составляем схему алгоритма (рис.3.2.).
Составляем таблицу соответствия переменных.
В схеме |
В программе |
Тип |
Комментарий |
x |
X |
Single |
Исходные данные |
F |
F |
Single |
Результат |
n |
N |
Integer |
Результат |
|
I |
Integer |
Вспомогательная переменная |
|
K |
Integer |
Вспомогательная переменная |
Рис.3.2. Схема алгоритма примера 3.2.
Составляем текст программы, в которую добавлен цикл, позволяющий сразу же проводить расчеты для всего набора тестов. Выполнение программы для приведенных выше тестов позволит сделать выводы о правильности ее работы.
Sub BETB3()
' Составил студент группы ЗО-11с Петров Т.М.
Dim I As Integer, N As Integer, X As Single, F As Single, K As Integer
K = InputBox("Сколько всего тестов?", "Ввод")
'Формирование заголовка
Cells(1, 1) = "№ теста"
Cells(1, 2) = "X"
Cells(1, 3) = "Y"
Cells(1, 4) = "№ формулы"
For I = 1 To K ' цикл для повторения расчетов
X = InputBox("Введи X", "Ввод")
If X > 0 And X <= 1000 Then
F = (Log(X) / Log(10)) ^ 2
N = 1
Else
If X <= 0 Then
F = X ^ 2
N = 2
Else
F = X ^ (1 / 3)
N = 3
End If
End If
Cells(I + 1, 1) = I
Cells(I + 1, 3) = F
Cells(I + 1, 4) = N
Next I
End Sub