Файл: Лабораторная работа 2 Тема студент группы хт21 Токарчук Роберт Проверила Рязанцева Е. Т. Оценка Подпись.docx
ВУЗ: Не указан
Категория: Не указан
Дисциплина: Не указана
Добавлен: 04.12.2023
Просмотров: 61
Скачиваний: 1
ВНИМАНИЕ! Если данный файл нарушает Ваши авторские права, то обязательно сообщите нам.
ФЕДЕРАЛЬНОЕ ГОСУДАРСТВЕННОЕ БЮДЖЕТНОЕОБРАЗОВАТЕЛЬНОЕ УЧРЕЖДЕНИЕВЫСШЕГО ОБРАЗОВАНИЯ«ЛИПЕЦКИЙ ГОСУДАРСТВЕННЫЙ ТЕХНИЧЕСКИЙУНИВЕРСИТЕТ»Кафедра информатикиЛабораторная работа №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 SingleDim 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*dS2=n*mS=4*a*b-S1-S2MsgBox ("Площадь комнаты равна:"+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 SingleDim 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 = aWorksheets(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 = nWorksheets(1).Cells(2, 6).Value = m S1=c*dS2=n*mS=4*a*b-S1-S2Worksheets(1).Cells(2, 7).Value = S Worksheets(1).Cells(2, 8).Value = S1 Worksheets(1).Cells(2, 9).Value = S2End 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 = 7Cells(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 = yEnd 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. Результат вычислений:
Worksheets(1).Cells(2, 4).Value = d Worksheets(1).Cells(2, 5).Value = nWorksheets(1).Cells(2, 6).Value = m S1=c*dS2=n*mS=4*a*b-S1-S2Worksheets(1).Cells(2, 7).Value = S Worksheets(1).Cells(2, 8).Value = S1 Worksheets(1).Cells(2, 9).Value = S2End 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 = 7Cells(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 = yEnd 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. Результат вычислений: