Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

2

.docx
Скачиваний:
3
Добавлен:
22.01.2024
Размер:
82.97 Кб
Скачать

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

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

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

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

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

Отчёт

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

«Структура следование»

ВАРИАНТ 6

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

Факультет:

Группа:

Проверила старший преподаватель

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

1.

Q = 1/5

Y=10^5

q = 2.85

z = x^(y+t)

m = a+(b/(c+d))

t = Sqr (x^2 – a^2)

2.

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

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

Полная поверхность правильной четырехугольной пирамиды равна S, угол наклона боковой грани к плоскости основания равен L. Определить объем пирамиды по формуле:

если S = 0,54 м3; L = 0,8 рад.

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

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

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

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

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

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

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

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

начало

3

4

2

1

V

S, L

конец

5

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

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

Private Sub CommandButton1_Click()

Dim V As Single, S As Single, L As Single

S = Val(TextBox1)

L = Val(TextBox2)

V = ((S * (Sin(L))) / (24 * (Cos(L / 2) ^ 3))) * (Sqr(Abs(2 * S * (Cos(L)))))

TextBox3 = Str(V)

End Sub

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

Соседние файлы в предмете Информационные технологии