ФЕДЕРАЛЬНОЕ ГОСУДАРСТВЕННОЕ БЮДЖЕТНОЕ

ОБРАЗОВАТЕЛЬНОЕ УЧРЕЖДЕНИЕ

ВЫСШЕГО ОБРАЗОВАНИЯ

«ЛИПЕЦКИЙ ГОСУДАРСТВЕННЫЙ ТЕХНИЧЕСКИЙ

УНИВЕРСИТЕТ»

Кафедра информатики

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


Тема

»

Выполнил: студент группы ХТ-21

Токарчук Роберт

Проверила: Рязанцева Е. Т.

Оценка ______ Подпись ______

Липецк 2022

Вариант 12

Задание 1

Вычислить площадь стен для оклеивания их обоями.







Sub Primer1()

Dim a As Integer, b As Integer, c As Integer, d As Integer, n As Integer, m As Integer, S As Single, S1 As Single, S2 As Single

Dim Title As String

Title = "Вычисление площади стен"

a = Val(InputBox("Введите значение ширины комнаты:", Title))

b = Val(InputBox("Введите значение высоты комнаты:", Title))

c = Val(InputBox("Введите значение ширины окна:", Title))

d = Val(InputBox("Введите значение высоты окна:", Title))

n = Val(InputBox("Введите значение ширины двери:", Title))

m = Val(InputBox("Введите значение высоты двери:", Title))

S1=c*d

S2=n*m

S=4*a*b-S1-S2

MsgBox ("Площадь комнаты равна:"+Format(S, "00.0000"))

MsgBox ("Программа завершила работу")

End Sub

Введём значения: a=40, b=40, c=10, d=15, n=15, m=20.

Результат вычислений:



2. Sub Primer1()

Dim a As Integer, b As Integer, c As Integer, d As Integer, n As Integer, m As Integer, S As Single, S1 As Single, S2 As Single

Dim Title As String

Worksheets(1).Range("A1:I1").Interior.Color = RGB(150, 180, 165)

Worksheets(1).Range("A1:I1").Interior.ColorIndex = 5

Cells(1, 1 ) = "a"

Cells(1, 2 ) = "b"

Cells(1, 3 ) = "c"

Cells(1, 4 ) = "d"

Cells(1, 5 ) = "n"

Cells(1, 6 ) = "m"

Cells(1, 7 ) = "S"

Cells(1, 8 ) = "S1"

Cells(1, 9 ) = "S2"

a = Val(InputBox("Введите значение ширины комнаты:", Title))

b = Val(InputBox("Введите значение высоты комнаты:", Title))

c = Val(InputBox("Введите значение ширины окна:", Title))

d = Val(InputBox("Введите значение высоты окна:", Title))

n = Val(InputBox("Введите значение ширины двери:", Title))

m = Val(InputBox("Введите значение высоты двери:", Title))

Worksheets(1).Cells(2, 1).Value = a

Worksheets(1).Cells(2, 2).Value = b

Worksheets(1).Cells(2, 3).Value = c

---

Worksheets(1).Cells(2, 4).Value = d

Worksheets(1).Cells(2, 5).Value = n

Worksheets(1).Cells(2, 6).Value = m

S1=c*d

S2=n*m

S=4*a*b-S1-S2

Worksheets(1).Cells(2, 7).Value = S

Worksheets(1).Cells(2, 8).Value = S1

Worksheets(1).Cells(2, 9).Value = S2

End Sub



Задание 2

Вычислить значение функции y.



Sub Primer1_2()

Dim x As Single, B As Integer, y As Single

Dim Title As String

Worksheets(1).Range("A1:C1").Interior.Color = RGB(140, 100, 155)

Worksheets(1).Range("A1:C1").Interior.ColorIndex = 7

Cells(1, 1) = "x"

Cells(1, 2) = "B"

Cells(1, 3) = "y"

x = Val(InputBox("введите значение х"))

B = Val(InputBox("введите значение B"))

Worksheets(1).Cells(2, 1).Value = x

Worksheets(1).Cells(2, 2).Value = B

y=((ABS(EXP(2*x-5)))*(EXP(Abs(4*x))))/((Atn(-x/Sqr(-x*x+1))+2*Atn(1)))^3+Atn(Abs(B))*(ABS(Log(x-B)^3))

Worksheets(1).Cells(2, 3).Value = y

End Sub

Введём значения: x=0, B=-1.

Результат вычислений:



2. Sub Primer1_2()

Dim x As Single, B As Integer, y As Single

Dim Title As String

Title = "Пример 1.Вычисление функции"

x = Val(InputBox("Введите значение х=", Title))

B = Val(InputBox("Введите значение B = ", Title))

y=((ABS(EXP(2*x-5)))*(EXP(Abs(4*x))))/((Atn(-x/Sqr(-x*x+1))+2*Atn(1)))^3+Atn(Abs(B))*(ABS(Log(x-B)^3))

MsgBox ("Значение функции =" + Format(y, "00.0000"))

MsgBox ("Программа завершила работу")

End Sub

Введём значения: x=0, B=-1.

Результат вычислений:

---

Смотрите также файлы

• !Укажите показания к плановой операции при острых желудочных кровотечениях.docx

• Военная техника участвовавшая в годы великой отечественной войны.pptx

• Министерство науки и высшего образования российской федерации федеральное государственное бюджетное образовательное учреждение высшего образования донской государственный технический университет.docx

• Анпоо мано.doc

• 11. 1390,001. 295,00220 г 1Безлимит.pdf