Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

ИТиП_№8

.docx
Скачиваний:
0
Добавлен:
02.08.2026
Размер:
220 Кб
Скачать

Министерство цифрового развития, связи и массовых коммуникаций Российской Федерации

Ордена Трудового Красного Знамени федеральное государственное бюджетное образовательное учреждение высшего образования

Московский технический университет связи и информатики

(МТУСИ)

Кафедра «Системное программирование»

Лабораторная работа №8

по дисциплине «Информационные технологии и программирование»

«Вычисление формул, заданных в виде строк»

Выполнила:

студентка группы БФИ2203

Мячина Лада Андреевна

Проверил:

Клешнин Никита Геннадиевич

Москва, 2024 г.

Оглавление

Введение 3

Выполнение работы 4

Результат работы программы 5

Вывод 6

Введение

Умение эффективно работать с данными является ключевым навыком, особенно в контексте использования программных средств, таких как MS Excel. Приобретенные в ходе выполнения лабораторной работы навыки не только облегчат повседневные задачи, но и откроют двери к более сложным аналитическим и организационным возможностям. Лабораторная работа поможет улучшить свои навыки в работе с MS Excel и научиться использовать функции вычисления Evaluate.

Цель работы: получение навыков использования функции вычисления Evaluate.

Задание: разработать программу, выполняющую вычисление функции с одной переменной x, например: 𝑓(𝑥) = 𝑎𝑥2 + 𝑏. Пользователь программы должен имеет возможность определения уравнения функции и значения x. В качестве значения x выбрать любое допустимое значение. Подготовить отчет по лабораторной работе.

Выполнение работы

  1. Создать новый лист в MS Excel и разработать интерфейс программы, результат представлен на рисунке 1.

Рисунок 1 – Интерфейс программы

  1. Код макроса для вычисления формулы, заданной в виде строки, представлен в листинге 1.

Листинг 1 - Программный код для вычисления

Sub EvaluateFunc()

Dim x As Double

Dim Formula As String

x = ActiveSheet.Range("B2").Value

Formula = ActiveSheet.Range("B1").Value

Formula = Replace(Formula, "x", x)

ActiveSheet.Range("A3").Value = "f(" & CStr(x) & ")="

ActiveSheet.Range("B3").Value = Evaluate(Formula)

End Sub

Результат работы программы

Результат работы программы представлен на рисунке 2.

Рисунок 2 - Результат работы программы

Вывод

В ходе лабораторной работы были получены навыки использования функции вычисления Evaluate.

Соседние файлы в предмете Информационные технологии и программирование