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

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

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

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

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

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

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

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

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

Вариант 13

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

факультета

группы

Проверил ____________

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

Задание №1

	F = 5.5 * 10 ^ -1 n = 37E2 dh = 4.8E-5
	a = 1 + b^2 y = Log(1 / Tan(x)) / Exp(x) H = (b + Cos(x)) ^ (1 / 3)

Задание №2

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

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

На высоте конуса, как на диаметре, описан шар. Найти объем части шара, заключенный внутри конуса, если высота конуса Н, а угол при вершине его осевого сечения равен 2L.

если Н = 10 см; L = 0,35 рад.

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

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

H – переменная вещественного типа,

L – переменная вещественного типа.

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

V – переменная вещественного типа.

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

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

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

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

Private Sub Command1_Click()

Dim H As Single, L As Single, V As Single

Const Pi As Single = 3.14

H = Val(Text1.Text)

L = Val(Text2.Text)

V = 1 / 6 * Pi * H ^ 3 * Sin(L) ^ 2 * (1 + Cos(L) ^ 2)

Text3.Text = Str(V)

End Sub

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