Розрахункова робота з інформатики

Інформація про навчальний заклад

ВУЗ:

Національний університет Львівська політехніка

Інститут:

Інститут економіки та менеджменту

Факультет:

Менеджмент

Кафедра:

Не вказано

Інформація про роботу

Рік:

2026

Тип роботи:

Розрахункова робота

Предмет:

Інформатика

Коротко про документ

Про що ця робота

У роботі наведено практичні завдання з написання макросів у середовищі VBA для обчислення математичних виразів. Описано алгоритми розрахунків за розгалуженими та циклічними структурами.

У роботі розглядаються

Інформатика
Програмування в VBA
Обчислювальна математика
Розгалужені алгоритми
Циклічні алгоритми
Макроси Excel

Зміст і розділи

Завдання 1
Завдання 2
Завдання 3

Для кого:Студенти вищих навчальних закладів економічних та технічних спеціальностей.

Викладачі:Л.

Ключові поняття

VBASubMsgBoxInputBoxActiveSheetCellsIf Then ElseFor Nextмакросфункція

Схожі матеріали

Функції менеджменту Переглянути → Теоретичні питання та задачі з менеджменту Переглянути → Проектування локальної обчислювальної мережі підприємства Переглянути → Використання системи Swing в Java Переглянути → МІНІСТЕРСТВО ОСВІТИ ТА НАУКИ УКРАЇНИ Переглянути → Звіт про виконання лабораторної роботи №5 Створення та ведення таблиць в базах даних Переглянути →

Частина тексту файла (без зображень, графіків і формул):

Національний університет «Львівська політехніка» Інститут економіки та менеджменту Кафедра обчислювальної математики та програмування Розрахункова робота № 2 з дисципліни ”Інформатика ” Варіант-17 Прийняв: Л Завдання 1 Код: Sub task1() Dim a, b, m As Double a = (81 ^ 0.28) * Cos(5) - (2 ^ (-0.92)) * Sin(5) b = Sin(3 * Tan(5) * WorksheetFunction.Acos(Sqr(3) / 2)) m = Abs(a + b) MsgBox "m = " & m & ", a = " & a & ", b = " & b End Sub Результат: Завдання 2 Код: Sub task2() Dim x, L, B, Y As Double x = InputBox("x: ") If x < 0.35 Then L = (Sin(x + 1.1) ^ 2) MsgBox "L = " & L ElseIf x >= 0.35 And x <= 0.45 Then Y = Cos((0.3 ^ x) + 2 * WorksheetFunction.Log10(x + 4)) ^ 2 MsgBox "Y = " & Y Else B = ((x ^ 3) + 5.5) ^ (1 / 3) MsgBox "B = " & B End If End Sub Результат: Завдання 3 Код: Sub task3() ActiveSheet.Cells.Clear Dim x, average, sum, count As Double Dim row As Integer row = 1 For x = 10 To 60 If (x Mod 5 = 0 Or x Mod 7 = 0) Then Cells(row, 1).Value = x row = row + 1 sum = sum + x count = count + 1 End If Next x average = sum / count MsgBox "Average ariphmetic = " & average End Sub Результат:

Розрахункова робота Інформатика

Допоможи студентському архіву