Прочее / Следование / Вторая лабораторная (следование)

Федеральное агентство железнодорожного транспорта

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

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

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

ПУТЕЙ СООБЩЕНИЯ императора Александра I»

Кафедра «ИНФОРМАТИКА И ИНФОРМАЦИОННАЯ БЕЗОПАСНОСТЬ»

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

Отчёт

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

на тему:

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

Вариант 17

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

факультета ТЭС

группы ПТМ-613 ______________ Сызранов И.Ю.

подпись, дата

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

2016

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

Найти площадь полной поверхности правильной треугольной пирамиды зная её объём V и угол наклона боковой грани к основанию пирамиды L.

1.2 Определение состава и характеристики входных и выходных данных

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

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

L – Угол наклона боковой грани к основанию пирамиды, вещественная переменная

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

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

1.3 Описание математической модели алгоритма

Ввести в память компьютерной системы значения: объёма правильной треугольной пирамиды V, угла наклона боковой грани к основанию пирамиды L.

Вычислить значение площади по формуле: S = ((36 * V ^ 2 * Tan(L)) ^ (1 / 3)) * (1 / Tan(L / 3))

Вывести на экран монитора значение S

2

1

. Разработка схемы алгоритма

2

3

4

5

3. Разработка проекта

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

Для ввода значений V и L используем элемент управления Текстовое поле (text1, text2).

Перед каждым текстовым полем расположим элемент управления Надпись (Label1, Label2, Label3), поясняющий действия пользователя информационной технологии.

Текстовое поле с соответствующими им надписями разместим в двух элементах управления Рамка (входные данные, выходные данные).

Для запуска кода приложения на выполнение используем элемент управления Командная кнопка (ОК) и событие – щелчок по командной кнопке.

Входные данные – Frame 1

Выходные данные – Frame 2

3.2 Разработка кода приложения

Private Sub Command1_Click()

Dim V As Single, L As Single

Dim S As Single

V = Val(Text1.Text)

L = Val(Text2.Text)

S = ((36 * V ^ 2 * Tan(L)) ^ (1 / 3)) * (1 / Tan(L / 3))

Text3.Text = Str(Format(S, "0.00"))

End Sub

3.3 Отладка

Запись формул на языке программирования Visual Basic:

1. x = Min = 0.025 * 10^3

2. j = 1

3. Pi = (-0.6)^2

4. m = -((Cos(x)^4)/4)

5. s = (1/a) ^2 * (r/12.3)^3

6. y = Abs(0.5 * x + Log(a))