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

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

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

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

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

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

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

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

О Т Ч Е Т о лабораторной работе № 1 на тему: «С Т Р У К Т У Р А С Л Е Д О В А Н И Е»

Вариант 24

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

факультета

группы

Проверил ____________

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

Задание №1

	xr=-3.01
	sigma=0.4E-12
	f=143E6
	c=0.267E-3*a
	l=0.3*a^3-b^a
	y=a*b*cos(x)/(a+b)+1

Задание №2

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

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

Две боковые грани треугольной пирамиды – прямоугольные равнобедренные треугольники, гипотенузы которых равны С и образуют между собой угол L. Найти объем пирамиды по формуле:

если С = 14 см; L = 0,65 рад.

1.2 Состав входных и выходных переменных.

Входные переменные:

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

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

Выходные переменные:

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

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

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

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

5. Код программы.

Private Sub Command1_Click()

Dim C As Single, L As Single, V As Single

L = Val(Text1.Text)

C = Val(Text2.Text)

V = 1 / 6 * C ^ 3 * Sin(L / 2) * Sqr(Cos(L))

Text3.Text = Str(V)

End Sub

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