Старые отчёты / Инфoрматика / Лабораторные по Информатике / Лабораторная работа Следование 1 / 15(vis.bas
.).docЛАБОРАТОРНАЯ РАБОТА, 15 вариант
Задание №1
СТРУКТУРА СЛЕДОВАНИЯ:
|
|
|
|
Const m2p As Single = 22*10^-2
Const h As Single = -48.3
Const s As Single = 0,0005 |
y = d^1/3
p = y^2+4*x/3
t = abs(c+m)*Tgc^2 |
Задание №2
Вычислить объем правильной треугольной пирамиды, зная, что плоский угол при вершине равен L, а радиус окружности, описанной около боковой грани, равен R, если R=17см; L=0,32рад.
1) Постановка задачи
Определить объем правильной четырехугольной пирамиды
2) Формализация входных и выходных данных
Входные данные:
L – вещественное, угол наклона боковых граней пирамиды к плоскости основания
R-радиус окружности
Выходные данные:
V – вещественное, объем правильной четырехугольной пирамиды
3) Математическая модель
РАЗРАБОТКА АЛГОРИТМА:
СОЗДАНИЕ КОДА ПРОГРАММЫ:
Private Sub Command1_Click ( )
Dim R As Single
Dim L As Single
Dim V As Single
Const pi As Single = 3.13
R = Val(Text1.Text)
L = Val(Text2.Text)
V = 4/3*R^3*sin^2(L)*cos(L/2)*sqr(sin(pi/3+L/3)*sin(pi/3-L/3))
Text3.Text=Str(V)
End Sub