Найти объем части шара, заключенный внутри конуса - VB

Формулировка задачи:

Помогите,пожалуйста,сделать программу по задаче в visual basic(((я новичок в этой программе,и толком не объяснили как делать( На высоте конуса, как на диаметре, описан шар. Найти объем части шара, заключенный внутри конуса, если высота конуса Н, а угол при вершине его осевого сечения равен 2L. V=1/6*пи*Н^3*Син^2(L)*(1+Кос^2(L)) , если Н=10см; L=0,35рад.

Решение задачи: «Найти объем части шара, заключенный внутри конуса»

textual
                            Листинг программы 
                        

                            Option Explicit
 
Private Sub Комманда1_Click()
Const пи = 3.14159
Dim H
Dim L
Dim V
H = 10
L = 0.35
V = 1 / 6 * пи * H ^ 3 * Sin(L) ^ 2 * (1 + Cos(L) ^ 2)
MsgBox V, 64, "Искомый объём"
End Sub
                        

Оцени полезность:

8 голосов , оценка 3.75 из 5

Похожие ответы