Старые отчёты / Инфoрматика / Лабораторные по Информатике / Лабораторная работа Следование 1 / Вариант 19

ВАРИАНТ 19

1. 1.

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

если S=150см²; L=0,55рад.

2. 1. Deltal = - 29.8 * 10 ^ ( - 8 ) a = Sin ( m + ( Pi * r ) / 2 )

Psr = 27.36 y = Sin ( x ) ^ Cos ( a )

K2 = 50.0 S = Sqr ( a * b + a ^ 2 ) / ( a * Cos ( Pi * x )

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

Разработать информационную технологию, позволяющую:

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

если S=150см²; L=0,55рад.

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

S	Single	Поверхность конуса
L	Single	Угол наклона к основанию

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

V

Single

Объем конуса

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

6. Блок-схема алгоритма:

1

2

3

4

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

Private Sub Command1_Click()

Const Pi = 3.14159

Dim S As Single, L As Single

Dim V As Single

S = InputBox("Введите значение поверхности конуса S=")

L = InputBox("Введите значение угла L=")

V = (1 / 3 * S * Tan(L / 2) * Sqr(S * Cos(L) / (2 * Pi))) / Cos(L / 2)

MsgBox "Объём конуса V=" & V

End Sub

8. Отладочный пример: