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

ФЕДЕРАЛЬНОЕ АГЕНТСТВО ЖЕЛЕЗНОДОРОЖНОГО ТРАНСПОРТА

Федеральное государственное бюджетное образовательное учреждение высшего образования

«Петербургский государственный университет путей сообщения

Императора Александра I»

(ФГБОУ ВО ПГУПС)

Кафедра «Информационные и вычислительные системы»

Дисциплина «Информатика»

ОТЧЕТ

о лабораторной работе № 2 на тему:

«Структура следование»

Вариант 11

Выполнил студент

факультета ПГС

группы УЗС-309 Павлов Д.Е.

Проверил: Шедько Н.А.

Санкт-Петербург

2024

1. Δ ƒ = 0,00015 y = tg

d ₘₐₓ = 3,5‧10³ c = ln ( a + e ᵖ )

n = 17‧10⁴ r =

2. Основание прямой призмы – ромб. Одна из диагоналей призмы равна  и составляет с плоскостью основания угол, равный L, а с одной из боковых граней угол, равный . Найти объем призмы по формуле:

Отчет

1.

Δ ƒ = 0,00015 d ₘₐₓ = 3,5‧10³ n = 17‧10⁴	Delta f =0,0015 d max = 3,5*10^3 n = 17*10^4
y = tg c = ln ( a + e ᵖ ) r =	y = tg ( a sqr (2))/x c = ln ( a + e^p ) r = ( cos 3,14 (1-x))/(a+x)

2.

1. Постановка задачи.

1. Словесное описание задачи:

Основание прямой призмы – ромб. Одна из диагоналей призмы равна  и составляет с плоскостью основания угол, равный L, а с одной из боковых граней угол, равный . Найти объем призмы по формуле:

V=

Если a = 28 см, L = 40°, B = 30°

2. Состав входных и выходных переменных:

Входные переменные: А - диагональ призмы, переменная вещественного типа

L – угол, между A и плоскостью, переменная вещественного типа

B – угол, между A и боковой гранью, переменная вещественного типа

Выходные переменные:

V – объём призмы, переменная вещественного порядка

2. Математическая модель

V = (A^3*Sin(2*L)*Sin(B)*Cos(L))/4*Sqr(Cos(L+B)*Cos(L-B))

3. Схема алгоритма

1.

Начало

5

4

3

2

Конец

V

V =

A, B, L

4. Визуальная часть проекта

5. Исходный код (код программы):

Private Sub CommandButton1_Click()

Dim A As Single, L As Single, B As Single

Const pi As Single = 3.141592

A = Val(TextBox1)

L = Val(TextBox2)

B = Val(TextBox3)

L = 40 * pi / 180

B = 30 * pi / 180

V = (A ^ 3 * Sin(2 * L) * Sin(B) * Cos(L)) / (4 * Sqr(Cos(L + B) * Cos(L - B)))

TextBox4 = Str(V)

End Sub

6. Откладка программы