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

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

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

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

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

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

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

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

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

ОТЧЕТ

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

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

Вариант 14

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

Факультета

Группы

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

20**

Задание №1.

	gamma=(Sin(a+1.5^0.3)+Cos(pi*x)^3)/Exp(-Abs(a+b))*35E-5
	g=9.8
	L=1/10
	y=-Cos(x)^2
	a=x*Sin(x)/Exp(x)
	t=(2*p)^(1/2)*x^(x+1)

Задание №2.

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

Через две образующие конуса, составляющие угол α, проведена плоскость, образующая с плоскостью основания конуса угол . Плоскость сечения равна p. Вычислить высоту конуса по формуле

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

p – плоскость сечения, переменная вещественного типа,

alfa – угол между образующими, переменная вещественного типа,

beta – угол между основанием и образующей, переменная вещественного типа.

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

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

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

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

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

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

Private Sub Command1_Click()

Dim p As Single, alfa As Single, beta As Single, H As Single

Const pi As Single = 3.14

p = Val(Text1.Text)

alfa = Val(Text2.Text)

alfa = alfa * pi / 180

beta = Val(Text3.Text)

beta = beta * pi / 180

H = Sqr(p * 1 / Tan(alfa / 2) * Sin(beta))

Text4.Text = Str(H)

End Sub

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

Ручной счет: