Лабораторные по Информатике / Лабораторная работа Следование 1 / Вариант 13

ПС-207 Лабораторная работа №2 Панихин А.А.

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

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

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

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

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

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

Факультет «Транспортные и энергетические системы»

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

Специальность 23.05.03 «Подвижной состав железных дорог»

Специализация «Технология производства и ремонта подвижного состава»

Отчет по лабораторной работе

по дисциплине

«Информатика»

на тему: «Следование»

Форма обучения – очная

Вариант: 13

Выполнил обучающийся Курс 1 Группа ПС-207	__________________ подпись, дата	Алексей Панихин Александрович
Принял	__________________ подпись, дата

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

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

ВАРИАНТ 13

1.

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

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

1.

	fi=5,5*10^-1 n=3700 delta h=0,000048
	a=1 + b ^ 2 y=log(Ctgx)/Exp (x) H=sqr3(b + Cos (x))

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

Найти объём части шара.

2.2

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

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

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

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

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

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

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

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

P rivate Sub Command1_Click()

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

Const pi As Single = 3.14159

H = Val (Text1)

L = Val (Text2)

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

Text3 = Str(V)

End Sub

2.5 Выполнение проекта