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

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

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

(МТУСИ)

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

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

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

«Процедуры и функции»

Выполнила:

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

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

Проверил:

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

Москва, 2024 г.

Оглавление

Введение 3

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

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

Вывод 7

Введение

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

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

Задание: разработать программу перевода числа из десятичной системы счисления в двоичную и наоборот с использованием двух функций. В качестве исходных данных использовать число b вашего варианта. Подготовить отчет по лабораторной работе.

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

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

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

2. Перейти во вкладку «Разработчик», выбрать кнопку «Visual Basic».

3. В открывшемся окне необходимо создать новый модуль и добавить программный код, представленный в листингах 1-2.

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

Sub DecimalToBinaryButton_Click()

Dim decimalNum As Integer

Dim binaryResult As String

decimalNum = Range("A2").Value

binaryResult = DecimalToBinary(decimalNum)

Range("D2").Value = binaryResult

End Sub

Function DecimalToBinary(decimalNum As Integer) As String

Dim binaryResult As String

binaryResult = ""

Do While decimalNum > 0

binaryResult = CStr(decimalNum Mod 2) & binaryResult

decimalNum = decimalNum \ 2

Loop

DecimalToBinary = binaryResult

End Function

Листинг 2 - Программный код для перевода из двоичной в десятичную СС

Sub BinaryToDecimalButton_Click()

Dim binaryNum As String

Dim decimalResult As Integer

binaryNum = Range("A4").Value

decimalResult = BinaryToDecimal(binaryNum)

Range("D4").Value = decimalResult

End Sub

Function BinaryToDecimal(binaryNum As String) As Integer

Dim decimalResult As Integer

Dim i As Integer

decimalResult = 0

For i = Len(binaryNum) To 1 Step -1

decimalResult = decimalResult + (Mid(binaryNum, i, 1) * 2 ^ (Len(binaryNum) - i))

Next i

BinaryToDecimal = decimalResult

End Function

4. Кнопкам «Перевод (10 -> 2)» и «Перевод (2 -> 10)» назначить соответствующие макросы.

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

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

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

Вывод

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