Отчёт
.docЛабораторная работа № 1
Линейный алгоритм. Вычисление арифметического выражения
Вычислить значение функции при А, В, С – константах (задать значения самостоятельно) и произвольном х (ввести с клавиатуры):
y =
Описание блоков:
1 Задание констант А, В.
2 Ввод переменной Х.
3 Расчёт функции У по заданной формуле.
4 Вывод значения функции У.
5 Конец программы.
А = 2,5
В = 3
y =
Текст Программы:
Private Sub CommandButton1_Click()
Dim y As Double
Dim x As Double
Const A = 2.5
Const B = 3
x = InputBox("Введите x", "Окно ввода данных")
y = Sin(x) + Sqr(Abs(A * B + 3 * x ^ 2))
Res = MsgBox("y= " & y, , "Результат")
End Sub
Результат работы программы:
Таблица идентификаторов:
Идентификатор |
Название в программе |
А, В |
Константы |
х |
Переменная |
у |
Результирующая переменная |
Лабораторная работа № 2
Линейный алгоритм. Вычисление по математическим и физическим формулам.
Рассчитать среднее арифметическое и среднее геометрическое двух чисел.
Описание блоков:
1 Ввод переменных А, В (двух чисел)
2 Расчёт значения С по заданной формуле
3 Расчёт значения G по заданной формуле
4 Вывод значения С
5 Вывод значения G
6 Конец программы.
Блок-схема алгоритма:
C =
G =
Текст программы:
Private Sub CommandButton1_Click()
Dim y As Double
Dim x As Double
A = InputBox("Введите первое число")
B = InputBox("Введите второе число")
C = (A + B) / 2
G = Sqr(A * B)
MsgBox "Среднее арифметическое этих чисел равно" & C
MsgBox "Среднее геометрическое этих чисел равно" & G
End Sub
Результат работы программы:
Таблица идентификаторов:
Идентификатор |
Назначение в программе |
А, В |
два любых числа |
С |
Среднее арифметическое |
G |
Среднее геометрическое |
Лабораторная работа № 3
Разветвляющийся алгоритм: выбор по условию
Дано целое число. Если оно является положительным, то отнять от него 2 ; в противном случае не изменять его. Вывести полученное число.
Описание блоков:
1 Ввод переменной Х
2 Если Х>0, то
2.1 Х=Х-2
3 Конец программы
Блок схема алгоритма:
x =
x - 2
х
Текс программы:
Private Sub CommandButton1_Click()
Dim x As Double
x = InputBox("Введите x", "Окно ввода данных")
If x > 0 Then
x = x - 2
MsgBox "Это число больше нуля, поэтому x=" & x
Else
MsgBox "Это число меньше нуля, поэтому х=" & x
End If
End Sub
Результат работы программы:
Таблица идентификаторов:
Идентификатор |
Назначение в программе |
x |
Переменное |