Структура следование / 6-1
.docxЗадание №1
|
f = Tan(Abs(a) + x + 20 * pi/180)^2 * Exp(-x)/(x + 2.5^0.4) |
|
c = 13E4 * 10^-3 |
|
lambda = (1/3)^-4 |
|
t = 3/Sqr(2) * Tan(x) |
|
b = 7.39E-3 * x |
|
y = 2 * Log(a * b) |
Задание №2
1. Постановка задачи
Основание прямого параллелепипеда – ромб с острым углом φ и меньшей диагональю d. Найти объем параллелепипеда, если большая диагональ его составляет с плоскостью боковой грани угол β:
если d = 10 см; φ = 1,2 рад; β = 0,5 рад.
Входные данные: Fi – острый угол ромба, переменная вещественного типа, Beta – угол между большей диагональю и боковой гранью, переменная вещественного типа, d – меньшая диагональ ромба, переменная вещественного типа.
Выходные данные: V – объём параллелепипеда, переменная вещественного типа.
2. Математическая модель задачи
3. Разработка алгоритма
4. Разработка визуальной части проекта
5. Код приложения
Private Sub Command1_Click()
Dim Fi As Single
Dim Beta As Single
Dim d As Single
Dim V As Single
Fi = Val(Text1.Text)
Beta = Val(Text2.Text)
d = Val(Text3.Text)
V = d ^ 3 * 1 / Tan(Fi / 2) ^ 3 / (2 * Sin(Beta)) * Sqr(Sin(Fi / 2 + Beta) * Sin(Fi / 2 - Beta))
Text4.Text = Str(V)
End Sub
6. Отладка программы
Ручной счёт: