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

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

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

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

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

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

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

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

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

ОТЧЕТ

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

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

Вариант 6

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

Факультета

Группы

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

20**

Задание №1.

	f = Tan(Abs(a) + x + 20 * pi /180) ^2 * Exp(-x) / (x + 2.5 ^ 0.4) * 1E4
	c = 13E4*10^-3
	lambda = (1 / 3) ^ -4
	t = 3 / Sqr(2) * Tan(x)
	b = 7.39E-3 * x
	y = 2 * Log(a * b)

Задание №2.

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

Основание прямого параллелепипеда – ромб с острым углом  и меньшей диагональю d. Найти объем параллелепипеда, если большая диагональ его составляет с плоскостью боковой грани угол β:

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

d – меньшая диагональ, переменная вещественного типа,

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

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

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

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

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

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

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

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

Private Sub Command1_Click()

Dim d As Single, fi As Single, beta As Single, V As Single

d = Val(Text1.Text)

fi = Val(Text2.Text)

beta = Val(Text3.Text)

V = d ^ 3 * 1 / Tan(fi / 2) ^ 3 / (2 * Sin(beta)) * Sqr(Sin(fi / 2 + beta) * Sin(fi / 2 - beta))

Text4.Text = Str(V)

End Sub

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

Ручной счет: