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

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

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

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

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

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

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

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

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

О Т Ч Е Т

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

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

Вариант № 31

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

Факультета

Группы:

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

20**

Задание №1

	L = Atn(a / 2) * Cos(pi * (1 + x) / (a + x)) * 0.0237E4
	d1 = -32 * 2 ^ 5
	gamma = 1/5
	z = Log(2 / (sqr(4 * pi * x)))
	F = q * Sin(Abs(a))
	S = t ^ x + Exp(t ^ 2 + x)

Задание №2

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

Входные данные: d1, d2, a – вещественного типа

Выходные данные: S – вещественного типа

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

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

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

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

Private Sub Command1_Click()

Dim d1 As Single

Dim d2 As Single

Dim a As Single

Dim S As Single

Const pi As Single = 3.14

d1 = Val(Text1.Text)

d2 = Val(Text2.Text)

a = Val(Text3.Text)

a = a * pi / 180

S = 1 / 2 * d1 * d2 * Sin(a * 3.14 / 180)

Text4.Text = Str(S)

End Sub

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

Ручной счёт:

При d₁ = 45; d₂ = 68; α = 125

S = 58,18