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

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

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

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

Отчет по лабораторной работе №4

Тема: Разработка и решение задач на ПК со структурой СЛЕДОВАНИЕ

Выполнил студент Факультета АИТ Группы АТ - 103	подпись	Обухов Ю.А.
Проверил профессор		Дергачев А.И.

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

2022

Вариант 18

1. Записать формулы в виде операторов присваивания

	D1 = -32 * 2 ^ 5
	Y = 1 / 5
	L = 2.712828
	H = (Sin(x) + 1) ^ (1 / 3)
	q = (c * d)(p * m * r)
	y = logn(2 / sqrt(4 * pi * x))

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

В правильной пирамиде двугранный угол при основании равен L. Боковая поверхность равна S. Найти расстояние от основания до боковой грани по формуле, если S = 100 см²; L = 0,85 рад.

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

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

L – вещественное число

S – целое число

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

r – вещественное число

4. Математическое описание задач

5. 

   1. Начало

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

Конец

L, S

6. Код приложения и отладочный пример

Private Sub CommandButton1_Click()

Dim S As Integer, l As Double, r As Double

S = Val(TextBox1.Text)

l = Val(TextBox2.Text)

r = (Sin(l) / 3) * (S * 3 ^ (1 / 2) * Cos(l)) ^ (1 / 2)

TextBox3.Text = Str(r)

End Sub

Рис. 1 Отладочный пример