2курс 2сем / 1
.docxГУАП
КАФЕДРА № 41
ОТЧЕТ
ЗАЩИЩЕН С ОЦЕНКОЙ
ПРЕПОДАВАТЕЛЬ
ассистент |
|
|
|
М. С. Иванова |
должность, уч. степень, звание |
|
подпись, дата |
|
инициалы, фамилия |
ОТЧЕТ О ЛАБОРАТОРНОЙ РАБОТЕ №1 |
ПЕРЕМЕННЫЕ, ТИПЫ ДАННЫХ, ФОРМУЛЫ И АРИФМЕТИЧЕСКИЕ ВЫРАЖЕНИЯ |
по курсу: ИНФОРМАЦИОННЫЕ СИСТЕМЫ И ТЕХНОЛОГИИ |
|
|
РАБОТУ ВЫПОЛНИЛА
СТУДЕНТКА ГР. |
4716 |
|
|
|
С.А. Янышева |
|
|
|
подпись, дата |
|
инициалы, фамилия |
Санкт-Петербург
2019
Лабораторная работа №1
ПЕРЕМЕННЫЕ, ТИПЫ ДАННЫХ, ФОРМУЛЫ И АРИФМЕТИЧЕСКИЕ ВЫРАЖЕНИЯ
Цель работы: освоение первоначальных понятий VB: переменные, типы переменных, арифметические выражения.
Текст индивидуального задания
Вариант 18
x = 21.5
y = 9.8
Формула:
23,5
+
–
+ ctg
–
+
Используемые диалоговые окна
Рисунок 1 – Диалоговое окно
Программные коды процедур
UserForm1
Private Sub CommandButton1_Click() Dim x, y, z As Single x = CSng(InputBox("Введите значение x")) y = CSng(InputBox("Введите значение y")) TextBox1.Text = CStr(x) TextBox2.Text = CStr(y) z = 23.5 + Cos(y) ^ 3 - 1 / (Cos(x) ^ 3) + 1 / Tan(x / 2) - (Abs((Sin(x) - Cos(y) / 12.7))) ^ (1 / 5) + Exp(-x - y) / (4.7 + (12 * x - y) ^ (1 / 2))
TextBox3.Text = CStr(z) MsgBox "z=" & z Cells(3, 1) = z
End Sub |
Private Sub CommandButton2_Click() End End Sub |
Полученные результаты
Рисунок 2 – Результат вычислений
Доказательство правильности результатов
Рисунок 3 – Расчёты по формуле
Список используемых источников
Уокенбах Д. Exel 2016. Библия пользователя / Д. Уокенбах. – М.:Вильямс, – 2018. – 1040 с.
Аграновский, А. В. Обработка данных средствами электронных таблиц Microsoft Excel / А.В. Аграновский, Д.М. Ильинская, Е.Л. Турнецкая // Методические указания по выполнению лабораторных работ по курсу «Информационные системы и технологии». – СПб.: ГУАП. – 2016. – 55 с.
Функции Excel [Электронный ресурс]
URL: https://support.office.com/ru-ru/article/Функции-Excel-по-категориям-5f91f4e9-7b42-46d2-9bd1-63f26a86c0eb.