Задача 1
Вычислить значение
выходной переменной
при указанных значениях входных
переменных
.
Ввод значения одной из входных переменных
организовать с клавиатуры. Результат
вывести в окно сообщений.
Схема 1
Private Sub Command1_Click()
Dim a As Single, x As Single, k As Single, z As Single
a = InputBox("Введите значение a", "Ввод данных")
x = 1.2
k = 2.1
z = Abs(Sqr(k) - Exp(x)) + a
MsgBox "z=" + Str(z)+” при a=”+str(a), vbInformation, "Результат"
End Sub
Рисунок 1
Задача 2
Определите значение
функции
,
заданной графически, для введенного
значения аргумента
.
Результат вывести в текстовое поле.
Схема 2
Private Sub Command2_Click()
Dim x As Single, f As Single
x = InputBox("Введите значение аргумента x", "Ввод")
If x < -1 Then
f = x + 1
Else
If x > 0 Then f = 1 Else f = Sqr(1 - x ^ 2)
End If
Text1.Text = Str(f) + " при x=" + Str(x)
End Sub
Рисунок 2
Задача 3
Вычислить сумму
.
Результат вывести на форму.
Схема 3
Private Sub Command3_Click()
Dim s As Single, n As Integer
s = 0
For n = 1 To 10
s = s + (2 * n - 1) / (n ^ 2 + 3)
Next n
Print "S="; s
End Sub
Рисунок 3
Заключение
В настоящей работе мы рассмотрели три задачи.
В первой задаче был реализован линейный вычислительный процесс. Вывод данных был организован в окно сообщений.
Во второй задаче был реализован процесс ветвления. Данные выводились в текстовое поле.
В третьей задаче использовался циклический вычислительный процесс. Данные были выведены на форму.
Умение реализовывать типовые фрагменты вычислительных задач поможет в дальнейшем при разработке алгоритмов, написании и отладке приложений, непосредственно связанных с профессиональной деятельностью.
Список использованной литературы
Лукин, Н.С. Visual Basic. Самоучитель для начинающих [Текст] / Н.С. Лукин - М.: Диалог - МИФИ, 2003.
Информатика. Конспект лекций. Учебное пособие. [Электронный ресурс]. – Электрон. текстовые, граф., дан. (Мб). – Рязань: РВАИ, 2003. – Систем. требования: ПК 486 или выше; 8 Мб ОЗУ; Windows 95 и выше; SVGA 32768 и более цв.; 640х480.
ГОСТ 19.701-90. Схемы алгоритмов, программ, данных и систем. Обозначения условные и правила выполнения. М.: Изд-во стандартов, 1990.
…
Таблица вариантов задач
Для студентов, фамилии которых начинаются с букв А, Б, В, Г, Д, Е, Ж, З, И
Последняя цифра в № зачетной книжки |
0 |
1 |
2 |
3 |
4 |
5 |
6 |
7 |
8 |
9 |
Задача 1 |
1.1 |
1.2 |
1.3 |
1.4 |
1.5 |
1.6. |
1.7 |
1.8 |
1.9 |
1.10 |
Задача 2 |
2.11 |
2.12 |
2.13 |
2.14 |
2.15 |
2.16 |
2.17 |
2.18 |
2.19 |
2.20 |
Задача 3 |
3.21 |
3.22 |
3.23 |
3.24 |
3.25 |
3.26 |
3.27 |
3.28 |
3.29 |
3.30 |
Для студентов, фамилии которых начинаются с букв К, Л, М, Н, О, П, Р
Последняя цифра в № зачетной книжки |
0 |
1 |
2 |
3 |
4 |
5 |
6 |
7 |
8 |
9 |
Задача 1 |
1.11 |
1.12 |
1.13 |
1.14 |
1.15 |
1.16 |
1.17 |
1.18 |
1.19 |
1.20 |
Задача 2 |
2.21 |
2.22 |
2.23 |
2.24 |
2.25 |
2.26 |
2.27 |
2.28 |
2.29 |
2.30 |
Задача 3 |
3.1 |
3.2 |
3.3 |
3.4 |
3.5 |
3.6 |
3.7 |
3.8 |
3.9 |
3.10 |
Для студентов, фамилии которых начинаются с букв С, Т, У, Ф, Х, Ц, Ч, Ш, Щ, Э, Ю, Я.
Последняя цифра в № зачетной книжки |
0 |
1 |
2 |
3 |
4 |
5 |
6 |
7 |
8 |
9 |
Задача 1 |
1.21 |
1.22 |
1.23 |
1.24 |
1.25 |
1.26 |
1.27 |
1.28 |
1.29 |
1.30 |
Задача 2 |
2.1 |
2.2 |
2.3 |
2.4 |
2.5 |
2.6 |
2.7 |
2.8 |
2.9 |
2.10 |
Задача 3 |
3.11 |
3.12 |
3.13 |
3.14 |
3.15 |
3.16 |
3.17 |
3.18 |
3.19 |
3.20 |