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

• Название: Структура Следование
• Дата: 27.02.2023
• Размер: 78.42 Kb.
• Имя файла: следование.docx
• Тип: Отчет; #958647

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

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

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

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

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

ПУТЕЙ СООБЩЕНИЯ ИМПЕРАТОРА АЛЕКСАНДРА I»
Кафедра «ИНФОРМАЦИОННЫЕ И ВЫЧИСЛИТЕЛЬНЫЕ СИСТЕМЫ»
Дисциплина: «Информатика»


Отчет

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

на тему:
«Структура Следование»
Вариант 18


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

факультета БФО

____________

<sup>подпись, дата

/</sup>
Санкт-Петербург


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

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

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

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

R=15 (радиус шара, вещественная переменная);

α = 0,75 (сегмент шара, вещественная переменная);

β = 2,15 (сегмент шара, вещественная переменная);

π = 3,14 (вещественная константа)

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

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

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



3.Алгоритм задачи:



Начало



π = 3,14


R, α, β

=КККК







S


S


конец


Конец

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



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

Private Sub Command5_Click()

Dim R As Single, а As Single, в As Single, Pi As Single, S As Single

Pi = 3.14

R = Val(Text1.Text)

а = Val(Text2.Text)

в = Val(Text3.Text)

S = 2 * Pi * R ^ 2 * Sin((а + в) / 2) * Cos((а - в) / 4)

Text4.Text = Str(S)

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




Контрольный пример, сосчитанный вручную: S = 1317,66135