Задание №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

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

   1. Словесное описание задачи:

Вычислить объём цилиндра.

Исходные данные:

L – угол наклона плоскости относительно нижнего основания, b – длина хорды, β – длина стягивающей дуги.

2. Состав входных и выходных данных:

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

b – переменная вещественного типа,

L – переменная вещественного типа,

Beta – переменная вещественного типа.

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

V – переменная вещественного типа.

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

3. 

   Конец

   V

   b, L, Beta

   Начало

   Схема алгоритма:

4. Визуальная часть проекта:

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

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

6. Отладка программы:

3