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

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

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

«Петербургский государственный университет путей сообщения

Императора Александра I»

(ФГБОУ ВО ПГУПС)

Кафедра «Информационные и вычислительные системы»

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

ОТЧЕТ

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

на тему:

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

Вариант 1

Выполнила студентка факультета группы Проверил

_____________ _______________

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

20**

Задание №1

Δf=0,00015	df=1.5E-4
dmax=3,5*103	dmax=3.5*10^3
n=17*104	n=17E4
	y=tan(a*sqr(2)/x)
	c=Log(a+Exp(p))
	r=Cos(Pi)*(1-x)/(a+x)

Задание №2

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

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

Основание прямой призмы – ромб. Одна из диагоналей призмы равна a и составляет с плоскостью основания угол, равный L, а с одной из боковых граней угол равный β. Найти объём призмы по формуле: если a=28 см; L=40°; β=30°.

2. Состав входных и выходных данных

Входные данные: a – переменная вещественного типа, L – переменная вещественного типа,

Beta – переменная вещественного типа.

Выходные данные: V – переменная вещественного типа.

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

3. Схема алгоритма

4. Визуальная часть проекта

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

Private Sub Command1_Click()

Dim V As Single, a As Single, L As Single, Beta As Single

Const Pi As Single = 3.141593

a = Val(Text1.Text)

L = Val(Text2.Text)

L = L * Pi / 180

Beta = Val(Text3.Text)

Beta = Beta * Pi / 180

V = a ^ 3 * Sin(2 * L) * Sin(Beta) * Cos(L) / (4 * Sqr(Cos(L + Beta) * Cos(L - Beta)))

Text4.Text = Str(V)

End Sub

6. Отладка программы