Старые отчёты / Инфoрматика / Лабораторные по Информатике / Лабораторная работа Следование 1 / Вариант 24
.doc
Задание 1.
Предложенные формулы записать в виде операторов присваивания. Числа представить в виде констант языка программирования, переменные по необходимости переобозначить.
|
|
Const mt=-1.507
Const x2=81.3E-9
Const omega=15E7
|
|
q=sqr((a+b)/c)
y=a*sin(2*x)
t=a/2*sqr(1/(cos(x)^2)) |
Задание 2.
Около конуса описана пирамида. Основанием пирамиды служит прямоугольный треугольник, один из острых углов которого равен L. Определить объем пирамиды, если известно, что радиус основания конуса равен r и образующая наклонена к плоскости основания под углом:
если r=5; L=0,2рад; =0,8рад.
1. Математическое описание.
а. Выбор математической модели.
б. Входные данные: r, betta, L, pi
в. Выходные данные: V
2. Алгоритмизация.
3. Программирование
Private Sub Command1_Click()
Dim r As Single
Dim betta As Single
Dim L As Single
Dim V As Single
Const pi = 3.141596
r = Text1.Text
betta = Text2.Text
L = Text2.Text
V = 1 / 3 * (r ^ 2) * Tan(betta) * (1 / Tan(L / 2)) * Tan((pi / 4) + (L / 2))
Text4.Text = V
End Sub
4. Отладочный пример.
