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

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

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

Кафедра обчислювальної математики та програмування

[pic 1]

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

з дисципліни ”Інформатика ”

Варіант-22

Виконала:

студентка групи

Прийняв:

                                                                                    д.ф-м.н., професор кафедри

обчислювальної математики і

програмування

Львів-2023

Завдання 1

[pic 2]

Код:

Sub task1()

Dim A, B, C, lg As Double

lg = Log(2) / Log(10)

A = 0.75 * Sqr(0.5) - (1 / 2) * (4 * (1 / 9))

B = (100 ^ ((1 / 2) * Log(9) - lg)) * Tan(1 / 3)

C = Sqr(15 * (A ^ 2) + 21 * (B ^ 2))

MsgBox "A: " & A & ", B: " & B & ", C: " & C

End Sub

[pic 3]

Результат:

 [pic 4]

Завдання 2

[pic 5]

Код:

Sub task2()

Dim a, b, c, t, y As Double

a = InputBox("a: ")

b = InputBox("b: ")

c = InputBox("c: ")

If a >= 2 * b Then

t = (Exp(a) + Exp(-a)) / (a + b)

Else

t = Exp(a * c) + (b * c) / Cos(a)

End If

y = (t ^ 2 + Sqr(t)) / (a * b * c)

MsgBox "y = " & y

End Sub

[pic 6]

Результат:

[pic 7]

[pic 8]

[pic 9]

[pic 10]

Завдання 3

[pic 11]

Код:

Sub task3()

    Dim a, b, zmax, zser, z, t, count, func, sum As Double

    Dim ws As Worksheet

    Dim rowIndex As Integer

    Set ws = Worksheets.Add

    a = 0.5

    b = 1.05

    t = 0

    sum = 0

    zmax = 0

    zser = 0

    count = 0

    ws.Cells(1, 1).Value = "t"

    ws.Cells(1, 2).Value = "z"

    For t = 0 To 4 Step 0.13

        If (b * t > 0 And b - a > 0 And 1 + (a ^ 2) >= 0) Then

            z = (Sin(t) + Sin(b)) / (Sqr(1 + (a ^ 2) * Log(b * t)) - Log(b - a))

            count = count + 1