Структура следование / 28
.docx
Задание №1
ɸ= ‒42,5 Rш=2000 t=6600·10-2 |
Fi= -42.5 Rsh=2000 t=6600E-2 |
|
t=Abs(Exp((a+b)/c))
y=2*b*x-x^2/b
f=(Pi*d^3)^(1/5) |
Задание №2
Постановка задачи:
Словесное описание задачи:
Вычислить объём цилиндра.
Исходные данные:
L – угол наклона плоскости относительно нижнего основания, b – длина хорды, β – длина стягивающей дуги.
Состав входных и выходных данных:
Входные данные:
b – переменная вещественного типа,
L – переменная вещественного типа,
Beta – переменная вещественного типа.
Выходные данные:
V – переменная вещественного типа.
Математическая модель задачи:
Конец
V
b, L, Beta
Начало
Схема алгоритма:
Визуальная часть проекта:
Код приложения:
Private Sub Command1_Click() Dim L As Single, b As Single, Beta As Single, V As Single Const Pi As Single = 3.14592 L = Val(Text1.Text) b = Val(Text2.Text) b = b * Pi / 180 Beta = Val(Text3.Text) Beta = Beta * Pi / 180 V = (Pi * b ^ 3 / Tan(Beta / 2) * Tan(L)) / (8 * Sin(Beta / 2) ^ 2) Text4.Text = Str(V) End Sub
Отладка программы: