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

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

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

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

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

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

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

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

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

ОТЧЕТ

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

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

Вариант 24

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

Факультета

Группы

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

20**

Задание №1.

	Y=(X+a/(Exp(-Abs(x)))+Sin(75/180*pi))/ ((Abs(a)+Sqr(Abs(a+b)))^(1/3)*pi/((a+b)^4 +1.5))
	delta = 0.00005
	Vt=-1.5E2
	m=x*Sin(y)/2
	y=2*Sin(3.14+z)^2
	x=g*Exp(1)*Exp(-b)

Задание №2.

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

Основание прямой призмы – прямоугольный треугольник с площадью S и острым углом φ. Площадь большей грани равна Q. Найти объем призмы по формуле

если S = 35 см²;  = 0,45 рад, Q = 100 см².

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

S – площадь треугольника, переменная вещественного типа,

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

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

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

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

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

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

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

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

Private Sub Command1_Click()

Dim S As Single, Fi As Single, Q As Single, V As Single

S = Val(Text1.Text)

Fi = Val(Text2.Text)

Q = Val(Text3.Text)

V = Q / 2 * Sqr(S * Sin(2 * Fi))

Text4.Text = Str(V)

End Sub

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

Ручной счет:

При S=35; φ=0,45; Q=100