Скачиваний:
3
Добавлен:
22.01.2025
Размер:
61.66 Кб
Скачать

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

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

«ПЕТЕРБУРГСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ ПУТЕЙ СООБЩЕНИЯ ИМПЕРАТОРА АЛЕКСАНДРА I»

Кафедра «ИНФОРМАЦИОННЫХ И ВЫЧИСЛИТЕЛЬНЫХ СИСТЕМ»

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

ОТЧЕТ

по лабораторной работе 2:

«СТРУКТУРА СЛЕДОВАНИЕ»

Вариант 20

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

Факультета АСБ А.А. Сидорович

Группы АСБ -405-З подпись дата

/07-405-20-АСБз/

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

2025

Отчет по лабораторной работе № 2 Структура «Следование» Вариант 20 Обучающийся группы АСБ -405-З Сидорович А.А. 16.01.2025

1. Предложенные формулы записать в виде операторов присваивания. Числа представить в виде констант языка программирования, переменные по необходимости переобозначить.

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

,

если С = 14 см; L = 0,65 рад.

Задача 1

x = -3.01

sigma = 0.4e-12

f = 143000000

c = 0.267e-3 * a

I = 0.3 * a * a - b * a

y = (a * b * cos(x)) / (a + b) + 1

Отчет по лабораторной работе № 2 Структура «Следование» Вариант 20 Обучающийся группы АСБ -405-З Сидорович А.А. 16.01.2025

Задача 2

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

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

если

  1. Состав входных и выходных данных:

Входные данные: C – вещественное, гипотенузы треугольников L – вещественное, угол между треугольниками

Выходные данные: V – вещественное, объем пирамиды

  1. Математическое описание задачи:

,

1

  1. Схема алгоритма решения задачи:

2

4

5

3

Конец

Начало

V

,

C,L

Отчет по лабораторной работе № 2 Структура «Следование» Вариант 20 Обучающийся группы АСБ -405-З Сидорович А.А. 16.01.2025

5. Листинг кода программы:

Private Sub CommandButton1_Click()

Dim C As Single

Dim L As Single

Dim V As Single

C = Val(TextBox1.Text)

L = Val(TextBox2.Text)

V = 1 / 6 * C ^ 3 * Sin(L / 2) * Sqr(Cos(L))

TextBox3.Text = Str(V)

End Sub

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

Исходные данные: С=14см; L=0,65 рад