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

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

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

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

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

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

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

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

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

ОТЧЕТ

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

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

Вариант 13

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

Факультета

Группы

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

20**

Задание №1.

	lambda=(12E4*Sqr(Abs(x)+1.5)+Sqr((a+ b)^2+1.3))/((a-b)^3+3^-Abs(x+a+b))
	m=Exp(x-1)
	y=Sqr(x-1)
	f=Sin(x)^Cos(a)
	Q=(-0.5)^2
	t0=0

Задание №2.

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

Вычислить объем правильной треугольной пирамиды, если известен двугранный угол при боковом ребре φ и радиус R круга, описанного около одной из боковых граней:

если R = 10 см; φ = 65°.

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

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

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

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

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

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

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

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

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

Private Sub Command1_Click()

Dim Fi As Single, R As Single, V As Single

Const Pi As Single = 3.14

Fi = Val(Text1.Text)

R = Val(Text2.Text)

Fi = Fi * Pi / 180

V = R ^ 2 / 12 * Cos(Fi / 2) / Sin(Fi / 2) ^ 6 * (3 * Sin(Fi / 2) ^ 2 - Cos(Fi / 2) ^ 2)

Text3.Text = Str(V)

End Sub

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

Ручной счет: