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

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

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

«ПЕТЕРБУРГСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ ПУТЕЙ СООБЩЕНИЯ Императора Александра 1»

Кафедра «ИНФОРМАЦИОННЫЕ И ВЫЧИСЛИТЕЛЬНЫЕ СИСТЕМЫ»

Дисциплина «ИНФОРМАТИКА»

Отчёт

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

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

ВАРИАНТ 4

Выполнил студент Факультет: Специальность: Номер зачетной книжки:
Проверил старший преподаватель

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

Задание №1

	yk=2*10^-2
	x=0
	p=100001.3
	t=Exp((a+b)/x)
	y=Sin(pi*x/3)
	f=Sqr(pi*q^3*(1+x^4))

Задание №2

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

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

Плоскость, проходящая через центр нижнего основания цилиндра под углом L к основанию, пересекает верхнее основание по хорде b и стягивает дугу . Вычислить объем цилиндра по формуле:

если b=24 см, L=1,26 рад, β=0,37 рад.

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

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

b – переменная вещественного типа,

L – переменная вещественного типа,

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

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

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

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

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

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

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

Private Sub Command1_Click()

Dim b As Single, L As Single, V As Single, beta As Single

Const pi As Single = 3.14

b = Text1.Text

L = Text2.Text

beta = Text3.Text

V = pi * b ^ 3 * 1 / Tan(beta / 2) * Tan(L) / (8 * Sin(beta / 2) ^ 2)

Text4.Text = V

End Sub

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