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

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

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

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

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

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

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

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

О Т Ч Е Т о лабораторной работе № 1 на тему: «С Т Р У К Т У Р А С Л Е Д О В А Н И Е»

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

факультета

группы

_____________

Проверил _____________

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

1.

	m2p=22*10^2
	h=-48.3
	sigma=5E-4
	y=d^(1/5)
	p=y^2+4*x/3
	t=Abs(c+m)*Tan(c^2)

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

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

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

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

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

Входные переменные: R – переменная вещественного типа, L – переменная вещественного типа.

Выходные переменные: V – переменная вещественного типа.

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

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

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

2.5. Код программы

Private Sub Command1_Click() Dim L As Single, R As Single, V As Single Const pi As Single = 3.14 L = Val(Text1.Text) R = Val(Text2.Text) V = 4 / 3 * R ^ 3 * Sin(L) ^ 2 * Cos(L / 2) * Sqr(Sin(pi / 3 + L / 3) * Sin(pi / 3 - L / 3)) Text3.Text = Str(V) End Sub

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