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

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

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

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

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

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

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

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

ОТЧЕТ

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

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

Вариант 8

Выполнила

студентка факультета

группы _____________

Проверила _____________

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

Задание №1

	eta = 0.05*10^2
	Pi = 3.1415926
	r=-1E7
	t=Sin(a)^Cos(b)
	y=1/(x-1)
	z=Exp(Sin(x*a)^3)

Задание №2

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

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

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

если a = 34,7 см; L = 20⁰.

1.2 Состав входных и выходных переменных (обязательно указать тип переменных).

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

a – длина стороны ромба, переменная вещественного типа,

L – острый угол ромба, переменная вещественного типа.

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

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

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

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

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

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

Private Sub Command1_Click()

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

Const pi As Single = 3.14

a = Val(Text1.Text)

L = Val(Text2.Text)

L = L * pi / 180

V = 2 * a ^ 3 * Sin(L / 2) * Sqr(Sin(3 / 2 * L) * Sin(L / 2))

Text3.Text = Str(V)

End Sub

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