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

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

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

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

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

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

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

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

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

ОТЧЕТ

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

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

Вариант 19

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

Факультета

Группы

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

20**

Задание 1.

	Y = (X + (a + b)/(Abs(X) + 1.5))/(Exp(-Abs(X)) + Sqr(Abs(a + b)+pi)) * Tan(x/(a + b))
	a10 = (-0.3) ^ -3
	fi = 0.47E5
	m = Abs((x + a)/a)
	f = Sin(a) + 2* cos(b)
	y = a ^ (x+1) * Sqr(x) + Exp(r)

Задание 2.

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

В шар радиуса R вписан усеченный конус. Основания усеченного конуса отсекают от шара два сегмента с дугами в осевом сечении соответственно равными α и . Найти боковую поверхность отсеченного конуса

если β = 2,15 рад; α = 0,75 рад; R = 15 см.

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

beta – отсекаемая дуга 1, переменная вещественного типа,

alpha – отсекаемая дуга 2, переменная вещественного типа.

R – радиус шара, переменная вещественного типа

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

S – боковая поверхность отсеченного конуса, переменная вещественного типа.

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

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

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

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

Private Sub Command1_Click()

Dim S As Single, R As Single, Alpha As Single, Beta As Single

Const pi As Single = 3.14

Beta = Val(Text1.Text)

Alpha = Val(Text2.Text)

R = Val(Text3.Text)

S = 2 * pi * R ^ 2 * Sin((Alpha + Beta) / 2) * Cos((Alpha + Beta) / 4)

Text4.Text = Str(S)

End Sub

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

Ручной счет: