Лабораторная 1

МИНИСТЕРСТВО ТРАНСПОРТА РОССИЙСКОЙ ФЕДЕРАЦИИ ФЕДЕРАЛЬНОЕ АГЕНТСТВО ЖЕЛЕЗНОДОРОЖНОГО ТРАНСПОРТА

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

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

«ПЕТЕРБУРГСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ ПУТЕЙ СООБЩЕНИЯ ИМПЕРАТОРА АЛЕКСАНДРА 1»

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

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

ОТЧЕТ

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

на тему:

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

Вариант 29

Выполнил студент факультета УПЛ-702 Шептунов Н.А.

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

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

2016

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

Разработать информационную технологию, позволяющую вычислить объем конуса по данному полной поверхности конуса S=150 (см²) и образующей его наклонной плоскости основания под углом L=0,55 (рад).

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

• V- Объем конуса

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

• S- Площадь полной поверхности

• L- Угол

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

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

Начало

П=3,14

S,L

V S L

Конец

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

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

Private Sub Command1_Click()

Const pi As Single=3.1415926

Dim S As Single, L As Single, V As Single

S=Val ( Text 1. Text); L=Val ( Text 2. Text)

V=1/3*S*tan(L/2)*sqr(cos(L/2pi))/cos(l/2)

Text3.Text=Str(V)

End Sub

4. Отладка проекта.

2.

∆L=-29,8*10^(-8)	Delta=-29.8E^(-8)
Pcр= 27,36	Pср=27.36
К2=50,0	К2=50.0
Т=│l^(a+b)/c│	T=abs ( L^((a+b)/c))
Y=2bx-(x^2/b)	Y=2*b*x-x^2/b
F= ^5√пd^3	F= pi^(1/5)*d^(3/5)