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

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

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

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

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

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

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

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

ОТЧЕТ

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

на тему:

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

Вариант 18

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

_____________ _______________

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

20**

Задание №1

m­t=1,507	mt=1.507
x2=8,3*10-9	x2=8.3*10^(-9)
ξ=150000000	Xi=15E7
	q=Sqr((a+b)/c)
	y=a*Sin(2*x)
	t=a/2*sqr(1/Cos(x)^2)

Задание №2

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

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

Около конуса описана пирамида. Основанием пирамиды служит прямоугольный треугольник, один из острых углов которого равен L. Определить объём пирамиды, если известно, что радиус основания конуса равен r и образующая наклонена к плоскости основания под углом: если r=5; L=0,2 рад; β=0,8 рад.

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

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

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

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

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

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

5. Код приложения Private Sub Command1_Click() Dim V As Single, Beta As Single, L As Single, r As Single Const Pi As Single = 3.14 r = Text1.Text L = Text2.Text Beta = Text3.Text V = 1 / 3 * r ^ 3 * Tan(Beta) * 1 / Tan(L / 2) * Tan(Pi / 4 + L / 2) Text4.Text = V End Sub

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