Следование 16-вариант / Структура Следование

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

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

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

ОТЧЕТ

по дисциплине

«Информатика»

ПО ЛАБОРАТОРНОЙ РАБОТЕ №2.

На тему:

«Разработка проекта информационной технологии на языке программирования Visual Basic. Структура Cледование »

Форма обучения - очная

Вариант 16

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

Факультета ПГС _________Ж.М. Турапов

Группы БТБ-709

№ 2-709-16

Проверил: _________Н.А. Яковлева

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

2017

“Структура Следование”

Вариант 16

Vср = 36,27 = Ф = 0,6

q = a = 2 p r y = ab Sinx

2.

Объем правильной треугольной пирамиды равен V, угол между диагоналями двух граней, проведенными из одной и той же вершины, равен L. Найти длину стороны основания призмы по формуле:

2. a=

если V = 1080 ; L = 0.62 рад

1.1

Vср = 36,27 = Ф = 0,6	V=36.27 betta=2^(-1) f=0.6*1Е+5
q = a = 2 p r y = ab Sinx	q=(a+b)^(1/3) a=2*p*r y=a*b*sin(x)

1. Словесное описание задачи:

Объем правильной треугольной пирамиды равен V, угол между диагоналями двух граней, проведенными из одной и той же вершины, равен L. Найти длину стороны основания призмы по формуле:

3. a=

если V = 1080 ; L = 0.62 рад

2.2 Описание постановки задачи

Состав входных и выходных данных:

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

v, l, - переменние вещественного типа

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

a - переменная вещественного типа

2.3 Математическое описание задачи

a=

2.4 Схема алгоритма решения задачи:

Начало

v,l

a=

а

Конец

2.5 Кода программы:

Private Sub Command1_Click()

Const pi As Single = 3.14

Dim v As Single

Dim l As Single

Dim a As Single

v = Val(Text1.Text)

l = Val(Text2.Text)

a = Sqr(16 * (Sin(l / 2) ^ 2) * (v ^ 2) / (3 * Sin(pi / 6 + l / 2) * Sin(pi / 6 - l / 2)))

Text3.Text = Str(a)

End Sub

2.6 Выполнение проекта