Структура следование / 23

МИНИСТЕРСТВО ТРАНСПОРТА РОССИЙСКОЙ ФЕДЕРАЦИИ

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

Государственное бюджетное образовательное учреждение

высшего образования

«ПЕТЕРБУРГСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ

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

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

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

ОТЧЕТ

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

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

Вариант 23

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

Факультета

Группы

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

20**

Задание 1.

	X=(Sin(a^2 / (a^2 + 1.2))^1.5 + Exp(-Abs(a + b))) / ((Log(a^2 + b^2) / Log(10))^2 + pi / (Sin(a^4+b^2)^2 + 2.7)
	m2p = 22E-2
	sigma = 0.0005
	y = d ^ (1/5)
	p = y^2 + 4 * x / 3
	t = Abs(c + m) * Tan(c ^ 2)

Задание 2.

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

Вычислить объем правильной треугольной пирамиды, зная, что плоский угол при вершине равен α, а радиус окружности, описанной около боковой грани, равен R.

если R = 17 см; α = 0,32 рад.

Входные данные:

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

a – плоский угол при вершине, переменная вещественного типа.

Выходные данные:

V – объем правильной треугольной пирамиды, переменная вещественного типа.

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

3. Разработка алгоритма.

4. Разработка визуальной части проекта

5. Код приложения.

Private Sub Command1_Click()

Const pi As Single = 3.14

Dim R As Single, a As Single, V As Single

R = Val(Text1.Text)

a = Val(Text2.Text)

V = 4 / 3 * R ^ 3 * Sin(a) ^ 2 * Cos(a / 2) * Sqr(Sin(pi / 3 + a / 3) * Sin(pi / 3 - a / 3))

Text3.Text = Str(V)

End Sub

6. Отладка приложения

Ручной счет: